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About This Guide 



Purpose 



This guide is one of a series designed to instruct you in using the Information 
Management System (IMS) for Operating System/3 (OS/3). It describes all aspects of 
writing action programs in COBOL and basic assembly language (BAL). 



Scope 



KJ 



This guide provides detailed information on coding and implementing IMS action 
programs using COBOL and the basic assembly language. IMS action programs may 
be written in COBOL 74, COBOL 85, or Extended COBOL. Thus, the single term 
"COBOL" is used in this document lonless it is necessary to refer to a specific version 
of the language. 

The major topics in this guide include the basics of IMS action programming, rules 
and guidelines for coding action programs, using the special features of OS/3 such as 
screen format sefvices and distributed data processing capabilities, preparing action 
programs for execution, and action program problem analysis using SNAP dumps. 
Numerous examples are provided to illustrate the principles and guidelines contained 
in this document. 



Audience 



The intended audience for this document are programmers who have knowledge and 
experience in software development using COBOL and/or BAL, and who wish to use 
these languages to develop programs for use in the IMS environment. 



Prerequisites 



The programmer planning to develop IMS action programs should be experienced in 
the use of COBOL and/or BAL, and have a general understanding of IMS, how it 
operates, and what is needed to do to make it operational. This information is 
contained in the IMS Technical Overview, UP-9205. 
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Organization v 

Information in this guide is divided into twelve sections and eight appendices: 

Section 1. Transaction Processing in the IMS Environment 

Introduces COBOL and BAL programmers to action programs and their interface with 
IMS. Also previews actions, transaction structures, action program termination, 
succession, and single-thread and multithread environments. 

Section 2. General Rules for Coding Action Programs 

Discusses COBOL and BAL action program structures and compares them to regular 
COBOL and BAL program structures. Describes the activation record, its contents, 
structure, and use. 

Section 8. Communicating with IMS 

Provides a more detailed description of the COBOL and BAL program information 
blocks, including formats, contents, and use. 



Section 4. Receiving Input Messages 

Describes the input message area, including the formats, contents, and use of the 
input message control header format for COBOL and BAL programs and the 
description of input message text. Explains how an IMS action program can clear 
ICAM queues. 

Sections. Processing Data Files 

Tells how to access and update data files. 

Section 6. Sending Output Messages 

Covers all aspects of output messages, including the formats, contents, and use of the 
output message control header for COBOL and BAL programs; the use of the SEND 
function for multiple output or message switching; the use of a work area for output 
messages; continuous output; and output-f or-input queueing. 

Section 7. Using Screen Format Services to Format Messages 

Discusses and shows examples of how to display a screen format and a replenish 
screen or error format; handle error returns; receive formatted input in a successor 
program; display a screen format on an auxiliary device; and use screen formats in a 
distributed data processing environment. 
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Section 8. Calling Subprograms from Action Programs 

Describes how to call subprograms from COBOL or BAL action programs, and 
illustrates the use of a subprogram. 

Section 9. Action Programming in a Distributed Data Processing 
Environment 

Presents basic distributed data processing terminology; defines and illustrates 
directory, operator, and action program routing of transactions; and describes how to 
initiate a remote transaction and how to process a transaction initiated by a remote 
system. 

Section 10. Additional Special Features 

Describes the downline load feature and how to write your own downline load 
program. Also describes how to disconnect a single-station dial-in line from an action 
program, how to initiate batch jobs from your action program using the RUN function, 
and how to perform a SETIME WAIT within an action program. Explains the use of 
transaction buffers by BAL and COBOL programs to acquire and release blocks of 
main storage. 

Section 11. Compiling, Linking, and Storing Action Programs 

Provides control streams that are needed to compile and link your action programs, 
and describes how to store them in load libraries. 

Section 12. Debugging Action Programs 

Discusses all portions of termination and the CALL SNAP dump, and provides 
examples and a step-by-step explanation of how to interpret them. 

Appendix A. Statement Conventions 

Describes the format conventions used in this guide. 

Appendix B. COBOL Action Programming Examples 

Contains complete compiler listings with accompanying flowcharts of sample COBOL 
action programs discussed throughout this guide. Examples include simple and dialog 
transactions, external and immediate internal succession, screen format services, 
sending a message to another terminal, output-f or-input queueing, and continuous 
output. 

Appendix C. Basic Assembly Language (BAL) Action Programming Examples 

Contains complete compiler listing with accompanjdng flowcharts of sample BAL 
action programs discussed throughout this guide. 
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Appendix D. Status and Detailed Status Codes ^^ 

Provides status codes and detailed status codes returned after execution of function 
calls issued by action programs. 

Appendix E. Generating Edit Tables 

Discusses the edit table generator, including coding rules, parameter values that 
describe the edit table, edit table execution, and error processing. Shows how input 
messages entered at the terminal are edited. Includes a sample action program that 
uses an edit table. 

Appendix F. Using Device-Independent Control Expressions and Field 
Control Characters 

Explains device-independent control expressions (DICE), their values, interpretation, 
how to create them via the DICE macroinstructions, and when to use them. 

Appendix G. Differences between Extended COBOL and 1974 ANS COBOL 

Describes the minor differences between using the extended COBOL and 1974 
American National Standard (ANS) COBOL compilers to compile action programs. 

Appendix H. Listing IMS DSECTs 

Related Product Information 

As one of a series, this document is designed to guide you in programming and using 
the OS/3 Information Management System. Depending on your need, you should also 
refer to the current versions of other documents in the series. Complete document 
names, their ordering numbers, and a general description of their contents and use 
are as follows: 

Note: Throughout this manual, when we refer you to another manual, use the 
version that applies to the software level in use at your site. 

Information Management System (IMS) Technical Overview, UP-9205 

Describes the basic concepts of IMS and the facilities that IMS offers. 

Information Management System (IMS) System Support Functions 
Programming Guide, UP-11907 

Describes the procedures to generate, initiate, and recover an online IMS system. 
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Information Management System (IMS) Action Programming in RPG II 
Programming Guide, UP-9206 

Describes how to write action programs in RPG II with extensive examples. 

Information Management System (IMS) Data Definition and UNIQUE 
Programming Guide, UP-9209 

Describes data definitions for use with the uniform inquiry update element (UNIQUE) 
and explains how to use UNIQUE. 

Information Management System (IMS) Operations Guide, UP-12027 

Describes terminal operating procedures, standard and master terminal commands, 
and special-purpose IMS transaction codes. Also includes UNIQUE command formats 
with brief descriptions. 

Information Management System (IMS) to DMS Interface Programming 
Guide, UP-8748 

Describes how to access a data base management system (DMS) data base from IMS. 

Extended COBOL Programming Reference Manual, UP-8059 

1974 American Standard COBOL Programming Reference Manual, UP-8613 

COBOL 85 Technical Overview, 7002 3982 

COBOL 85 Programming Reference Manual, 7002 3940 

Assembler Programming Reference Manual, UP-8914 

If your action programs access a DMS data base, consult the following documents: 

IMS to DMS Interface Programming Guide, UP-8748 

DMS Data Description Language Programming Reference Manual, UP-8022 

DMS Data Manipulation Language Programming Guide, UP-12013 

DMS System Support Functions Programming Guide, UP-10870. 



Notation Conventions 



Information on statement conventions used in this document is contained in 
Appendix A. 
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Section 1 

Transaction Processing in the IMS 

Environment 

1.1. Introducing IMS 

The Unisys Information Management System (IMS) is an interactive, transaction- 
oriented file processing system. It is interactive because it carries on a conversation 
with the terminal operator; it is transaction-oriented because, for each input message, 
the terminal operator receives a response or output message. In this way, operators 
are constantly informed of the results of their inquiries. 

1.2. Interacting with IMS 

Application programs, called action programs, interact with IMS to process input 
messages from terminals, perform file retrieval or updating functions, and create 
output messages. 

You can write action programs in RPG II, COBOL, or basic assembly language (BAL). 
IMS also provides a set of action programs called the uniform inquiry update element 
(UNIQUE) that performs file retrieval and updating functions through commands 
from the terminal. 

This guide tells you how to write action programs in COBOL and BAL. Action 
programs are similar to standard COBOL and BAL programs, but they must follow 
specific rules because they operate under the control of IMS. 

Throughout this guide, it is assumed you have read and understood the IMS Technical 
Overview and the appropriate language manual. However, as required, terms and 
concepts that are directly related to RPG II action programming will be briefly 
described and defined. 
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1.3. Basic IMS Terms 

The term action programming comes from the fact that the unit of work in IMS is 
the action. An action begins when an operator enters a message at a terminal and 
ends when a response to that message is returned. This is an important point to 
remember, since the action programs you write are involved primarily with this 
activity - processing input messages, performing file retrieval or updating, and 
creating output messages. 

An action always consists of three activities: 

1. Input 

2. Processing 

3. Output 

A transaction is one action or a series of actions. 

A simple transaction (Figure 1-1) consists of a single action. 



c 



INPUT MESSAGE 



ACTION PROGRAM 



OUTPUT MESSAGE 



CKACCT 2-412-733 



CURRENT ACCOUNT BALANCE = $869.22. 
♦PROCESSING COMPLETE* 



TRANSACTION CODE 
ACCOUNT NUMBER 



In tills example, one action program processes the Input message 
and produces an output message - the checking account balance for the 
account specified and a PROCESSING COMPLETE notice. 

Figure 1-1. A Simple Transaction 
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A dialog transaction (Figure 1-2) consists of two or more related actions. 



INPUT MESSAGE 



ACTION PROGRAM 



OUTPUT MESSAGE 
INPUT MESSAGE - 



ACTION PROGRAM 



OUTPUT MESSAGE 



CUST 35567 



AMOUNT DUE = $79.25. 



ENTER PAYMENT AMOUNT $25.33 



J 



NEW BALANCE IS $53.92 
♦PROCESSING COMPLETE* 



TRANSACTION CODE 
ACCOUNT NUMBER 



In this example, t^/o action programs are sequenced to produce amount due 
information, allow data entry, and compute a new balance for a specific 
customer account. 

Figure 1-2. A Dialog Transaction 

To begin a transaction, the operator enters a 1- to 8-character transaction code. (In 
single-thread IMS, the transaction code is from 1 to 5 characters long.) This code tells 
IMS the name of the action program that will process the input message. 

Transaction codes are either the entire input message or a part of it. Transaction 
codes are defined to IMS at configuration time. 



1.4. Structuring Transactions 



Sometimes a single action program can process the function required. But more often, 
a series of action programs is needed. In either case, a transaction structure is created. 

Transaction structure depends on how you terminate action programs. There are four 
major types of termination: 

• Normal 

• External succession 

• Delayed internal succession 

• Immediate internal succession 
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From here on, the termination types will be referred to as normal termination, and 
external, delayed, and immediate succession. 

Using the words termination and succession in the same context can be somewhat 
confusing. In IMS, termination means that an action program is finished processing. 
Whether you specify normal termination, or external, delayed, or immediate 
succession, you are telling IMS that the current action program is finished processing 
and is now terminating. 

Succession means that, although the action program is terminating, the transaction is 
not complete. A successor action program will continue processing the transaction. 

Normal termination means that the transaction itself is complete. No more processing 
occurs. 

However, external, delayed, or immediate succession means that another action 
program follows and processing should continue. 

Figures 1-3 through 1-6 illustrate these concepts. 
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Figure 1-3. Normal Termination 

Use normal termination to tell IMS that once your program creates an output 
message, the transaction is complete. When you don't specify the t3T)e of termination, 
IMS terminates normally. The last action program in a transaction always ends with 
normal termination. 
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Figure 1-4. External Succession 



\_^ 



Use external succession to tell IMS that the current action program is sending an 
output message and terminating; however, the transaction is not complete. When the 
terminal operator enters a second input message, the action program you named as 
external successor processes the second action, produces an output message, and 
terminates. 



UP-9207 Rev. 2 



1-5 



Transaction Processing in tiie IIVIS Environment 





















;\'PU I 

MfSSA'^t 

.1, 





Ph ■ j;«M 
.11 





OUTPUT 

MESSA'iF 

111 










1 

bPf CU Its DFt AYED 
SUCCTSSION AND NAMES 
SUlXtSStON PROGRAM 






OUTPUT MESSAGF 

.■. ':!urijrn a^ 

INPUI MbSsAi.i 





Ai HON 

PHiU.R-^M 
i2l 





OUTI'Jl 

ME-iSAdt 

(2) 




♦ 

SPECIFIES NORMAL 
TERMlNATiON 


- 











Figure 1-5. Delayed Succession 



Use delayed succession to tell IMS that the current action program has processed an 
input message and produced an output message; however, that message isn't going to 
the terminal. Instead, it becomes the input message to the action program you named 
as successor. The successor program produces an output message that does go to the 
terminal and terminates. With delayed succession, the second action program uses the 
output message of the predecessor as its input message. Even though only one input 
message and one output message are seen at the terminal, internally there are two 
separate actions, each with an input and output message. 
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Figure 1-6. Immediate Succession 

Use immediate succession to tell IMS that the current action program processed an 
input message but is not producing an output message. When it terminates, its 
successor action program immediately takes up where processing left off, produces an 
output message, and terminates. In immediate succession, there is only one input 
message and one output message. Thus, two action programs are processing a single 
action. 
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With these four types of termination or transaction structures, there is a good deal of 
flexibility in structuring transactions. There are basically no limitations on how you 
can combine them. For example, you can specify immediate succession, delayed 
succession, external succession, and finally normal termination, all in turn 
(Figure 1-7). 
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Figure 1-7. Dynamic Transaction Structure 
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In part, the coding you use in your action program determines the efficiency of your 
message processing. The most efficient way to code an action program is to make the 
code reentrant or sharable. Action programs can be shared only in a multithread IMS 
environment. However, even in a single-thread environment, you should write 
reentrant or sharable code because you may later wish to use multithread IMS. 

A reentrant program is completely sharable, and none of the code is self -modifying. 
BAL and COBOL action programs can be reentrant. This can mean great performance 
improvement because it prevents waiting when several actions require the same 
action program. 
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Shared code is a means of executing a COBOL program as if it were reentrant. 
Shared-code COBOL programs are sharable in the procedure division and working- 
storage section but not in IMS control regions. Don't use shared code in 1974 COBOL 
programs. 



A third type of coding that is used for action programs is serially reusable code. 
Serially reusable action programs can process only one action at a time. You can 
modify the action program code, but you must reset or restore it because the same 
copy of the program sometimes remains in storage to process the next action. 
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Remember that your action programs should serve the best interests of terminal 
operators who request information from your file. For this reason, messages you 
receive or create should be simple and understandable with a minimum of operator- 
entered codes or other data required at the terminal. 

1.6. How IMS Action Programs Interface with IMS 

To communicate with IMS, an action program must link itself to IMS. This link is the 
activation record, which handles the control and communication of data between IMS 
and your action program. The activation record can contain up to six interface areas: 

Input message area 

Output message area (OMA) 

Program information block (PIB) 

Continuity data area (CDA) 

Work area (WA) 

Defined record area (DRA) 

Whether or not you use all six interface areas depends on the needs of your action 
program. All the interface areas are optional except the input message area and 
program information block. 

Even if you don't access the program information block, IMS automatically returns 
values there to the status code fields after each I/O request. 

Figure 1-8 shows how main storage looks when the action program PROGOl is loaded 
in a multithread IMS system. The layout of the activation record is sHghtly different 
in single-thread IMS. 
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Figure 1-8. Activation Record in Main Storage 

Figure 1-9 shows the relationship between an action program and its interface areas. 
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Figure 1-9. The Action Program and Its interface Areas 
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Your action program must define the formats of the interface areas that make up the 
activation record. 

For COBOL action programs, you use COPY statements to copy the program 
information block and the input and output message area headers into the linkage 
section of your action program. You have to code the descriptions of the continuity 
data area and work area according to the action program application. 

In BAL action programs, you assign registers to receive the addresses of interface 
areas. The formats for the program information block and the input and output 
message area headers are in the form of DSECTs in the system macro library, 
$Y$MAC. You issue macroinstructions to copy these formats into your program. 

Action programs also interface with IMS through the COBOL CALL statement or the 
BAL CALL or ZG#CALL macroinstruction. You use these CALL functions to issue 
requests to IMS for file access and other operations. 
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Section 2 

General Rules for Coding Action Programs 

2.1. COBOL Action Program Structure 

Though COBOL action programs are similar to conventional COBOL programs, 
certain differences characterize them. 

2.1.1. identification Division 

The identification division is the same as any COBOL identification division. 

2.1.2. Environment Division 

The first important difference is in the environment division. 

0~ You must omit the input-output section in the environment division. It is not needed 

' because you supply a file description in the file section of the IMS configuration. You 

also name your files, give file types, and give any additional information concerning 
file processing as part of IMS configuration. 

2.1.3. Data Division 

Instead of using an FD statement to name the file you are accessing, omit the file 
section and place the file name in the working-storage section. 

When you use a fiinction CALL statement for a particular file later in your program, 
IMS associates the file name you specified at configuration time with the file you 
name in the working-storage section. 

In a sharable or reentrant COBOL action program, the working-storage section in an 
action program may contain constants only. Describe each elementary item in the 
working-storage section with a VALUE clause. 

Figure 2-1 shows an example of correct and incorrect working-storage section coding 
for an action program. 
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INCORRECT 


CORRECT 


DATA DIVISION. 


DATA DIVISION. 


WORKING -STORAGE SECTION. 


WORKING -STORAGE SECTION. 


77 ERR- INDICATOR PIC X(19). 


77 DHOALT PIC X(6) VALUE 'DMOALT' . 


01 ERR-MSG-LITS. 


01 ERR-MSG-LITS. 


02 ERR-1 PIC X(19). 


02 ERR-1 PIC X(19) 




?lQiiaiOiO.'ALIDKEY**-. 


02 ERR-2 PIC X(19). 


02 ERR-2 PIC X(19) 




mi^^&:oF.lfi1ffi*it?.' 


02 ERR-3 PIC X(19). *- 




02 ERR-3 PIC X(19) 

yirailiSfaiD REQUEST**'-; 


ERR-4 PIC X(19). 




02 ERR-4 PIC X(19) 










)immi*^m~mmB 




NO VALUE CLAUSES 











Figure 2-1. Describing Working-Storage Items in a Sharable COBOL Action Program 

Every COBOL action program requires a linkage section. This section is optional in a 
conventional COBOL program. 

Your action program's linkage section defines the areas your program uses to interface 
with IMS. The names of these areas must correspond with the interface areas in the 
activation record and also with the names in the USING clause parameter list in the 
procedure division (Figure 2-2). 
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Figure 2-2. Describing Interface Areas in a COBOL Action Program 
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2.1.4. Procedure Division 



An action program always contains a USING clause in the procedure division 
statement. This is for naming the interface areas your program uses in processing 
messages. 

Because parameters in the USING list are positional, you must code them in the 
prescribed order shown in Figure 2-2. 

If, for example, your COBOL action program does not need the work area and 
continuity data area, you must still code a dummy parameter to indicate their 
omission from the USING list as follows: 



PROCEDURE DIVISION USING PROGRAM- INFORMATION-BLOCK 
I NPUT - MESSAGE - ARE/B OUTPUT - MESSAGE - AREA . 



In this case, you are choosing the letter D as a dummy parameter name. Because 
continuity data area is the last parameter of the list, you can omit the dummy 
parameter. 

Action programs do not use standard I/O COBOL verbs in the procedure division. 
Instead, they issue CALL function statements to IMS. (See Section 5.) 

Figure 2-3 shows the correct and incorrect way to access data files from a COBOL 
action program. 
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BEGIN-ROUT. 
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HYKEY. 


READ NYFIL. 






MUST BE CALL FUNCTION, 
NOT COBOL VERB 











Figure 2-3. Accessing a Data File 
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When you want to end em action program, use the CALL 'RETURN' function. It 
returns control to IMS, and if you've built an output message in the output message 
area, the CALL 'RETURN' sends the output message to the destination terminal. 
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2.2. COBOL Program Structure Comparison 



COBOL action programs are distinguished from conventional COBOL programs by 
the: 

• Absence of an input-output section 

• Absence of a file section 

• Linkage section containing a 77- or 01 -level data description corresponding to 
each parameter on the procedure division USING clause 

• CALL functions to access and manipulate files 

• CALL 'RETURN' function that ends the action program 

Figure 2-4 shows the similarities and differences between conventional COBOL 
programs and COBOL action programs. 
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CONVENTIONAL PROGRAM STRUCTURE 


ACTION PROGRAM STRUCTURE 


IDENTIFICATION DIVISION. 


IDENTIFICATION DIVISION. 


PROGRAM- ID. program-name. 


PROGRAM- ID. program-name. 


(Any optional entry) 


(Any optional entry) 


ENVIRONMENT DIVISION. 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


CONFIGURATION SECTION. 


SOURCE -COMPUTER. UNISYS 0S3. 


SOURCE -COMPUTER. UNISYS OS/3. 


OBJECT-COMPUTER. UNISYS 0S3. 


OBJECT -COMPUTER. UNISYS OS/3. 


SPECIAL-NAMES. 


SPECIAL-NAMES. 


(Any OS/3 implementor-names) 


(No special names) 


INPUT -OUTPUT SECTION. 


(No input-output section) 


FILE -CONTROL 




SELECT filename 




ASSIGN TO DISK-lfdname-V 




ORGANIZATION file -type. 




DATA DIVISION. 


DATA DIVISION. 


FILE SECTION. 


(No file section) 


FD filename 




LABEL RECORD STANDARD. 




01 data-name-2 




02 data-name-2 




02 data-name-3 






WORKING-STORAGE SECTION. 






WORKING -STORAGE SECTION. 






77 data-name. 






71 data-name. 






01 record -name. 






■ 




[LINKAGE SECTION.] 


[ • J 
LINKAGE SECTION. 






01 PROGRAM- INFORMATION -BLOCK 


(No control area description) 


01 INPUT-MESSAGE-AREA 




[01 WORK -AREA] 




[01 OUTPUT -MESSAGE -AREA] 



o 



Figure 2-4. Conventional COBOL Structure versus COBOL Action Program Structure 

(Part 1 of 2) 
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CONVENTIONAL PROGRAM STRUCTURE 


ACTION PROGRAM STRUCTURE 


PROCEDURE DIVISION. 


[01 CONTINUITY-DATA-AREA] 
PROCEDURE DIVISION USING program- 
information-block input -message- area 
[work- area] [output -message- area] 
[continuity-data-area]. 
Para-l. 

Para-2. 

CALL 'RETURN'. 



Figure 2-4. Conventional COBOL Structure versus COBOL Action Program Structure 

(Part 2 of 2) 

2.3. COBOL Language Restrictions 

In addition to omitting input-output and file sections, there are several restrictions to 
observe when you write a COBOL action program. 

Some programmers like to use a function key to identify the action program load 
module. If you do this, don't use a function key (F#nn) as the program-id name 
because the COBOL compiler treats the # symbol as invalid. Instead, supply a valid 
program-id name in the identification division and then include a LOADM statement 
with F#nn as the load module name at link-edit time. 

For example, you can identify your action program as follows: 

IDENTIFICATION DIVISION. 
PROGRAM- ID. CREDIT. 

CREDIT is your program name. You then associate your program-id with a function 
key at link-edit time in the following job control stream: 

// EXEC LNKEDT 
/$ 

LOADM YMM. 

INCLUDE iRlMt 
/* 

Some COBOL verbs, clauses, and sections are illegal in action programs. If you 
compile them with the shared code parameter, PARAM IMSCOD=YES, or with the 
reentrant parameter, PARAM IMSCOD=REN, the compiler locates and deletes them 
from your program. (See Section 11.) 
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The following reserved words are illegal in COBOL action programs. For language 
restrictions on extended COBOL programs, refer to G.7. 



ACCEPT MESSAGE COUNT 


SEGMENT-LIMIT 


ALTER 


SEND 


CALL identifier 


SORT 


CANCEL 


START 


CLOSE 


STOP 


COMMUNICATION SECTION 


SYSCHAN-n 


DECLARATIVES 


SYSCONSOLE 


DELETE 


SYSFORMAT 


DISABLE 


SYSIN 


ENABLE 


SYSIPT 


EXHIBIT 


SYSLOG 


FILE SECTION 


SYSLST 


INPUT-OUTPUT SECTION 


SYSOPT 


MERGE 


SYSOUT 


OPEN 


SYSSCOPE 


READ 


SYSTERMINAL 


RECEIVE 


SYSWORK 


RELEASE 


TRACE 


RETURN 


WRITE 


REWRITE 





X—^ 



Other COBOL verbs must not have working-storage items as receiving operands. 
These verbs are: 

ACCEPT PERFORM (varying) 

ADD SEARCH (varying) 

COMPUTE SET 

DMDE STRING 

INSPECT SUBTRACT 

MOVE TRANSFORM 

MULTIPLY UNSTRING 

When you compile your action program with the shared code parameter, the compiler 
flags the erroneous statement and issues a precautionary diagnostic. 

When you compile your COBOL action program with the IMSCOD=REN parameter, 
the compiler deletes the erroneous statement and issues a serious diagnostic. 

Do not use these subroutine names in reentrant COBOL action programs: 

• TIPDXC 

• TIPJUMP 

• TIPRTN 

• TIPXCTL 
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The compiler generates special object code for these names, which deallocates the 
object program reentrancy control area for the calling program, and the action 
program may be abnormally terminated. 

For extended COBOL language restrictions on action programs, refer to G.7. 



2.4. BAL Action Program Structure 



Similar to COBOL action programs, BAL action programs must provide a receiving 
area for the IMS activation record interface areas. You handle this by assigning 
registers to receive the addresses of the interface areas. 

There are macroinstniction calls for the program information block and input and 
output message header formats. When you issue one of these macroinstructions, it 
calls a corresponding DSECT that generates the interface area format into your action 
program. 



USING ZA#DPIB,R9 
ZM#DPIB 



USING ZA#IMH,R12 
ZM#DIMH 



USING UA,R6 



USING ZA#DOMH 



USING CDA,R4 



Figure 2-5. Describing Interface Areas in a BAL Action Program 
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A BAL action program, like COBOL, uses function calls to access files. There are two 
forms of function calls, the CALL or the ZGr#CALL macroinstruction. 
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When you enter a message at the terminal and IMS transfers control to your BAL 
action program entry point, register 1 always points to a parameter list containing, in 
order: 

1. Program information block address 

2. Input message area address 

3. Work area address 

4. Output message area address 

5. Continuity data area address 
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The work area, output message area, and continuity data area are optional. If you 
don't need them in your program, IMS assigns a binary to their place in the 
parameter list. 

Other registers contain save area and action program entry point addresses. (See 6.5 
for more detail about BAL action programming.) 

Several ways you can distinguish a BAL action program from other BAL programs 
are: 

• Registers assigned to the addresses of interface area DSECTs 

• Use of CALL or ZG#CALL macroinstructions to access and manipulate files 

• Use of ZM#DPIB, ZM#DOMH, or ZMfDIMH macroinstructions to transfer the 
program information block and the control header formats from the IMS 
activation record to the BAL program 

• Use of ZGfCALL RETURN function to end the action program 

2.5. The Activation Record 

Each time IMS initiates an action, it constructs an activation record in main storage. 

Each activation record has a program information block and an input message area. It 
may also have an output message area, work area, continuity data area, and a defined 
record area. 

The program information block contains information that IMS uses to communicate 
with your action program. By testing fields in the program information block for the 
status of IMS functions, your program can control the processing of files and the 
succession of action programs. 

IMS uses the input message area to exchange input message processing information 
with your program. Fields in the IMA hold control information that identifies input 
terminals, and gives message text length as well as message text. 

The work area is an interface area that you often use when your action programs are 
sharable or reentrant. It is modifiable working storage that your action program uses 
to build output messages (see 6.1) or as a record area for file input and output. 

Output message area fields notify IMS of output message control information, such as 
output terminal identification, special output options, and output message text length. 
It also provides a place where IMS can interface with output message text. 

When used, the continuity data area provides the interface area where your action 
program passes data from action to action in a dialog transaction. IMS uses the 
continuily data area to interface with your action program's transfer of data from one 
action to another. 
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IMS uses the defined record area to reference defined records. Your action program 
can't access a defined record area (DRA) or write into the DRA. You do not define this 
area in your program. 

When you enter a message at a terminal, IMS: 

• Djmamically allocates the activation record interface areas that your program 
needs to converse with IMS 

• Schedules and loads the action program needed to process the action 

When IMS schedules a COBOL action program, that program must contain a linkage 
section where it can exchange data with IMS. Part of the linkage section must be 
formatted in a certain way. The IMS copy library provides this formatted source code. 

You use a COPY statement to transfer the formats of the program information block 
area, input message area header, and output message area header from the IMS copy 
library areas to the linkage section of your COBOL action program. 

When you compile your COBOL action program using the extended COBOL compiler, 
the IMS copy library makes the program information block format and the output 
message area and input message area control headers available under the names PIB, 
OMA, and IMA, respectively. 

When you use the 1974 American National Standard COBOL compiler, your COPY 
statement must use the names PIB74, OMA74, and IMA74 to transfer the interface 
area formats needed by your program. 
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Figure 2-6 shows how a COBOL action program converses with IMS via the activation 
record. IMS sets up space in the activation record for each interface area your action 
program uses. 
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The COPY verb moves interface area formats from the IMS copy library to your action 
program's linkage section and your program converses w/tfi the IMS interface areas in the 
activation record. Note that your action program cannot access or write into the defined 
record area. 

Figure 2-6. IMS/COBOL Action Program interface 

A BAL action program accesses the activation record interface areas via 
macroinstructions that call DSECTs from the $Y$MAC system macro library or a user 
macro library. The ZM#DPIB macroinstruction calls the ZA#DPIB DSECT, the 
ZM#DOMH macroinstruction calls the ZA#OMH DSECT, and the ZM#DIMH 
macroinstruction calls the ZA#IMH DSECT. (See Appendix H.) 
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Figure 2-7 shows IMS communicating with a BAL action program via the activation 
record. Again, IMS sets up an interface area in the activation record for each interface 
area used by your BAL action program. 
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The ZMWPIB, ZM#DOMH, and ZM#DIMH macro/nstructjons call the format headers from t/ie 
$Y$MAC system macro library, if you use a work area or con^{)uity data area, you must 
define and cover them in your action program. Note ihatyour action program cannot access 
or write into the defined record area. 

Figure 2-7. IMS/BAL Action Program Interface 
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Section 4 
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41. Need for Input Message Area 

When a terminal operator enters a transaction code, your action program must define 
an input area to receive it. The same is true when the terminal operator enters an 
input message in response to an output message. 
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When you use internal succession and pass data as input to the next action program, 
you must define an input area in the successor program to receive the data. 



ACTION PROGRAM 1 



[Tata^ 



ACTION 
PROGRAM 2 



INPUT 
AREA 




An input message area is always required in your action program because each action 
program must receive an input message, either via the terminal or action program 
succession, to produce an output response. Without an input message, no message 
processing is possible. 
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4.2. Input Message Area Contents 
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The first part of any input message area description is the 16-b3^e control header. 
Your program obtains the appropriate COBOL or BAL input message control header 
format from the copy library or macro library. 

The second part of the input message area description is the text of the message itself. 
The input message text consists of the input fields your program expects to receive 
either from the terminal operator or by succession from a previous action program. 
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INPUT MESSAGE 
CONTROL HEADER 




INPUT 




(16 BYTES) 
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MESSAGE 








AREA 1 
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DESCRIPTION 




INPUT 
MESSAGE 








TEXT 
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4.3. Size of Input Message Area 



You tell IMS the size of your input message area at configuration time when you 
specify the INSIZE parameter in the ACTION section. The value given for the INSIZE 
parameter is the number of bji^s in the input message header plus the message text 
length, including any control characters you expect to receive in your program. You 
receive control characters in your action program only when you specify EDIT=NONE 
in the configurator ACTION section. 
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CHARACTCfiS^' 
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JNFUT MESSAGt 
CONTROt HEADER 





[]S 16 BYTES 
£\ 34BYT^«. 






INI'UI 

MEb.SAGE 

II- XT 






4 BYTES 30 BYTES 






WSIZB-hO 


l^ 50 BYTE- 



Instead of specifying an input message area length on the INSIZE parameter, you can 
specify a standard message size (INSIZE=STAN); IMS allocates an area based on your 
CHRS/LIN and LNS/MSG parameter values in the GENERAL section. 
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When you omit the INSIZE parameter or specify an inadequate amotint of space for 
the input message area, IMS automatically allocates an area large enough to contain 
the actual input message. 
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INPUT MESSAGF 
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INPUI MC^iAGh 11 XT 
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Automatic space allocation doesn't occur if you use an edit table (EDIT=tablename), so 
you must specify the number of bjrtes for the input message area on the INSIZE 
parameter. 

On the other hand, if you specify more space than is needed, IMS fills the balance of 
the area with blanks. 



'4^1:^^ > f /;> 



IMA 




INPUT MESSAGE 




CONTROL HEADER 




INPUT MESSAGE TEXT 


l)MSiZi=70 BUT 








INPUT MESSAGE TAKES 




ENTER CUSTOMER ID 




ONLY 47 SYTES 












AND ZIP CODE. 


IMS 




i A A A A A A 


y*~ FILLS ADOtTJOMAL 


AAA 


\_J AS6A WITH 




SPACiS 



Note that you're wasting storage when you overestimate input message area size. If 
you're not using the edit table generator and you aren't sure of the input message area 
size, omit the INSIZE parameter and let IMS determine the input message area 
length. 
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4.4. COBOL Action Program Input Message Area 



c 



4.4.1. Input Message Header Format 

IMS supplies input message control header formats for extended COBOL and 1974 
American National Standard COBOL. There is only a slight difference in their 
content. The COBOL input message header format is available in the IMS copy 
library under the name IMA for extended COBOL, or under the name IMA74 for 1974 
American National Standard COBOL. Figure 4-1 shows the format of the 1974 
COBOL input message area control header. Note the different data names of TODAY 
and HR-MIN-SEC fields for extended COBOL. 



01 INPUT -MESSAGE -AREA. 






02 


SOURCE-TERMINAL- ID 


PIC X(4). 




02 


DATE-TIME-STAMP. 








03 YEAR 


PIC 9(4) 


COMP-4. 




03 TODAY 


PIC 9(4) 


COMP-4. 




03 HR-MIN-SEC 


PIC 9(9) 


COMP-4. @ 


02 


TEXT-LENGTH 


PIC 9(4) 


COHP-4. 


02 


AUXILIARY-DEVICE- ID. 








03 FILLER 


PIC X. 






03 AUX- DEVICE -NO 


PIC X. 





Notes: 



The name of this field in extended COBOL is DAY. 
(D The name of this field in extended COBOL is TIME. 
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Figure 4-1. 1974 COBOL Format for Input Message Area Control Header 

When you code your COBOL action program's linkage section, copy the input message 
area control header format into your action program from the copy library by using a 
COPY verb. 



4.4.2. Input Message Text Description 

The input message text description immediately follows the input message control 
header format. You describe the input message text expected by your program from 
the terminal or previous action program. In COBOL, describe the input message text 
as data items subordinate to the 01 -level input message area description. The shaded 
area in Figure 4-2 shows the input message area control header formats generated by 
the COPY verb. Fields immediately following the shaded area represent the input text 
expected by the program. 
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Note: An action program's input message must not begin with the characters ZZ in 
the first two positions. These characters are reserved to indicate master 
terminal commands. 



Refer to the CSCAN action program example, PAYMT-3, in Appendix B for an 
example of this input text. When you copy the input message control header format 
from the copy library, all its fields are accessible to the CSCAN action program and 
can be referenced in the procedure division. 



c 



LINKAGE SECTION 
01 P-I-B 






COPY PIB74. 
^ ■..XCQ^miM- 

lTiE:-;S"TAMPi^':-ira^f»#fe»;V??**S,?^iV 
3-,i>J^;-iS^'«RICt9fS)6^'|SSrC0MP.S'45 

■■■■■ -^V; 0Z.?-yrE;XT.rLENi3TH' .■ ' ' :"" ; /PIC.'9(4-)'::?V'* ="..-:'dcSP:-A'. 
',:::;02:-'AUXiLI"ARYyDE»ICE-ID;.'- ■:■■*■■-■'.■■■.: 'I .'i 
■B3'- FILLER-' PIC'X. 
(33: AUXOEVICE-NO PIC X. 
02 FILLER PIC X(6). 

02 CUSTID PIC X(6). 

02 FILLER PIC X. 

02 HSG-PAY. 

03 MSG-CHAR PIC X 
02 FILLER PIC X. 



IMA 

CONTROL 
HEADER 
DESCRIPTION 



OCCURS 7 INDEXED by 1. 



INPUT 
MESSAGE 
TEXT 
DESCRIPTION 



Figure 4-2. Sample COBOL input IVIessage Area Description 
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4.5. BAL Action Program Input Message Area 



4.5.1. Input Message Header Format 

IMS supplies an input message area control header format for BAL action programs. 
It is in the form of a DSECT called by a macroinstruction in your action program. 
Figure 4-3 shows the format of the BAL input message area control header. 



155 


ZA#DIMH 




156+ZA#IMH 


DSECT 




157+* 






158+* INPUT 


MESSAGE HEADER | 


159+* 






160+ZA#ISTID 


DS CL4 SOURCE TERMINAL ID 


161+ZA#IDTS 


OS XLS DATE/TIME STAMP 


162+ZA#ITRID 


EQU ZA#IDTS.L'ZA#IDTS UNIQUE TRANSACTION ID 


163+ZA#IMHL 


EQU *-ZMtim INPUT MESSAGE AREA HEADER LENGTH 


164+ZA#ITL 


DS H TEXT LENGTH 


165+ 


DS CL1 RESERVED FOR SYSTEM USE 


166+ZA#IDEV 


DS CL1 AUX DEVICE ID 


167+* 






168+* 


EQUATES FOR ZA#IDEV | 


169+* 






170+ZA#IDID1 


EQU CI 


DEVICE = AUX 1 


171+ZA#IDID2 


EQU C'2 


DEVICE = AUX 2 


172+ZA#IDID3 


EQU C'3 


DEVICE = AUX 3 


173+ZA#IDID4 


EQU C'4 


DEVICE = AUX 4 


174+ZA#IDID5 


EQU C'5 


DEVICE = AUX 5 


175+ZA#IDID6 


EQU C>6 


DEVICE = AUX 6 


176+ZA#IDID7 


EQU C'7 


DEVICE = AUX 7 


177+ZA#IDID8 


EQU C'8 


DEVICE = AUX 8 


178+ZA#IDID9 


EQU C'9 


DEVICE = AUX 9 


179+IMSDSECT 


CSECT 




180 IMSDSECT 


CSECT 





Figure 4-3. BAL Format for Input Message Area Control Header (ZA#IMH DSECT) 

You issue the ZM#DIMH macroinstruction in your BAL action program to generate 
inline the input message control header (ZA#IMH DSECT). If you don't want to see 
the ZM#DIMH macro expansion inline, use the PRINT NOGEN instruction before you 
issue the ZM#DIMH macroinstruction. Even though the input message control header 
fields are not seen in your program coding, they are still available and you can 
reference them in your program. 
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Immediately following the ZM#DIMH macroinstruction, you describe the input 
message text fields. Using define- storage (DS) statements, you describe each field of 
your input message text. Figure 4-4 illustrates the macroinstruction to generate the 
input message control header format followed by the description of input message text 
expected from the terminal (transaction code and state name key). Refer to 
Appendix B for this example in the full context of the IMS state capital action 
program. Note that PRINT NOGEN is specified and the ZM#DIMH macroinstruction 
is not expanded inline. Nevertheless, this action program can still access any fields in 
the control header for values placed there by IMS. 



10 



16 



•ACTIVATION RECORD DEFINITION 



TCODE 
SNKEY 



DS 
DS 
DS 



X 
X 

XL4 



TRANSACTION CODE 

SPACE 

STATE NAME KEY 



Suppresses inline 
macro expansion. 



Makes IMA control header 
fields available. 

Input Message Text 



Figure 4-4. Sample BAL Input Message Area Description 



4.6. Contents of Input Message Area Control Header 



The header format identifies the terminal that sent the input message, the date and 
time when the message was sent, the length of the input text, and whether or not an 
auxiliary device transmitted input to the action program. Figure 4-5 shows some of 
the questions about input messages that the input message control header answers 
when IMS sets values in the control header fields. Subsections 4.7 through 4.10 
describe input message header fields. 
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Figure 4-5. Answers to Input Message Processing Questions 



4.7. Identifying the Source Terminal 
(SOURCE-TERMINAL-JD) 



o 



The SOURCE-TERMINAL-ID (ZA#ISTID) field specifies a 1- to 4-byte name of the 
terminal that originated the input message. Your action program may need to check 
this field to determine which terminal sent a particular input message. This terminal 
name is the same name specified for the terminal in the ICAM network definition and 
in a TERMINAL section of the configuration (Figure 4-6). 
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ICAM NETWORK DEFINITION 




IMS1 


CCA 


TYPE=( GBL „ S) , GAWAKE=YES , SAVE=YES , 
FEATURES=(0PCC»1,0UTDELV) 


X 




BUFFERS 10,512,2,ARP=20 




WOLO 


LOCAP 


TYPE=(TCI),LOW=MAIN, MEDIUM-MAIN, HIGH=MAIN 




LNE1 


LINE 


DEVICE=(LWS) 




ill 


TERM 


ADDR=(312), FEATURESs(LWS), LOW-MAIN, INPUT::(YES), 
MED I UH=HAI N , H I GH=MAI N , TCTUPD=YES 


X 


LNE2 


LINE 


DEVICE={LWS) 




iii 


TERM 


ADDR=(313),FEATURES=(LWS),L0W=MAIN,INPUT=(YES), 
MEDIUM=MAIN,HIGH=HAIN,TCTUPD=YES 


X 


LNE3 


LINE 


DEVICE=(LWS) 




m 


TERM 


ADDR=(314),FEATURES=(LWS),LOW=MAIN,INPUT=(YES), 
MED I UM=MA I N , H I GH=MA I N , TCTUPD=YES 


X 


LNE4 


LINE 


DEVICE=(LWS} 




H 


TERM 


ADDR=(315),FEATURES=(LWS),LOW=MAIN,INPUT=(YES), 
MED I UM=MA I N , H I GH=MAI N , TCTUPD=YES 


X 


PRC1 


PRCS 


LOW=MAIN 






ENDCCA 








IMS CONFIGURATION 




NETWORK 








iESHINALlIB 


UNSOL=ACTION 




lERHINALliii 


UNSOL=ACTION 
UNSOL=ACTION 




Ierhinal 


iiH 


lEssiiJN.'y.liiis 


UNSOL=ACTION 




TRANSACT 


MENU 


ACTIONS JAMENU 




TRANSACT 


SIGN 


ACT 10N= JASIGN 




ACTION 


JAMENU CDASIZE=1024 EOIT=NONE MAXSIZE=12eee 








OUTSIZE=4096 WORKSIZE=1024 








F I LES=SYSCTL , CUSTMST , XREF 1 , XREF2 




ACTION 


JASIGN CDASIZE=1B24 EDIT=NONE MAXSIZE=12000 





Figure 4-6. Identifying the Source Terminal to ICAM and the Configurator 

Suppose your action program processes input messages differently, depending on 
which terminal sent the message. Before it can decide how to process the message, 
your program needs to check the name of the source terminal that sent the input 
message. 

Let's say that if your program receives a message from source terminals TlOO through 
T300, it performs routine A. On the other hand, if your program receives a message 
from source terminals T400 through T600, it performs routine B. Your program 
simply interrogates the SOURCE-TERMINAL-ID field of the input message header 
as shown in Figure 4-7 and processes the input message according to the values placed 
in the SOURCE-TERMINAL-ID field. 
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100-TERM-TEST. 




IF SOURCE-TERMINAL- ID GREATER THAN OR EQUAL TO 'T100' 




AND LESS THAN OR EQUAL TO 'T300' 




PERFORM ROUT -A 




ELSE IF SOURCE -TERMINAL -ID GREATER THAN OR EQUAL TO 'T400' 


AND 


LESS THAN OR EQUAL TO 'T600' 




PERFORM ROJT-B. 




GO TO ERR -ROUT. 




ROUT 


A. 




ROUT 


B. 




ERR -ROUT. 





o 



Figure 4-7. Interrogating the SOURCE-TERIVIINAL-ID Field 



4.8. Identifying the Action (DATE-TIME-STAMP) 

When IMS receives an input message, it places the date and time as a binary value in 
the DATE-TIME-STAMP field (ZA#IDTS) of your input message header. The first 
half-word of the field contains the year; the second half-word of the field contains the 
Julian day. The second word contains a sequence number unique to this input 
message. The date/time stamp is used for recovery purposes and not for determining 
the time of day. 

IMS uses this field to distinguish actions. Each time IMS receives an input message, it 
identifies the action via this date/time stamp. If you need the accurate date or time in 
your action program, you should interrogate the TRANSACTION-DATE and TIME- 
OP-DAY under SUCCESS-UNIT-ID in the program information block. 
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4.9. Obtaining Input Message Text Length (TEXT-LENGTH) 

Once the terminal operator enters an input message, or a previous action program 
passes input data to a successor action program, IMS places a binary half-word value 
indicating the input message length plus 4 bytes for the TEXT-LENGTH (ZA#ITL) 
field itself into the TEXT-LENGTH field. 

Your action program may want to print out all input messages for a day's 
transactions. Suppose the input messages received by your action program can vary in 
length and you plan to write them as variable-length luiblocked records to a 
sequential file. 

The value IMS places in the TEXT-LENGTH field contains the length of the input 
message text your action program receives plus 4 bytes for the TEXT-LENGTH field. 
Each time your program receives an input message, it must first subtract 4 bj^s from 
the value in TEXT-LENGTH. Your program then compares the resulting value with 
the different input message lengths that the program expects. When the program 
determines which size message was received, it moves TEXT-LENGTH minus 4 bs^es 
to the record length field of your record area description in the work area. Finally, it 
moves the appropriate input message to the work area and writes it to the sequential 
file. Figure 4-8 shows the coding to test the TEXT-LENGTH field in the input 
message area. Note that you must subtract a binary 4 from the COMP-4 TEXT- 
LENGTH field, and the RECORD-LENGTH field in the work area must also be a 
binary value. 

When you access the TEXT-LENGTH field in the input message area, your COBOL 
program must qualify the TEXT-LENGTH field by identifying it as a part of the input 
message area header; that is, TEXT-LENGTH IN INPUT-MESSAGE-AREA. 
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WORKING -STORAGE SECTION. 








77 FOUR PIC 9 


COMP-4 


VALUE 4. 


77 FORTY PIC 99 


COMP-4 


VALUE 40 


LINKAGE SECTION. 








01 INPUT-MESSAGE-AREA. 


COPY 


IMA74. 




05 MSG-IN-1. 








10 TRANS-CODE- 1 


PIC X(5). 




10 IN-MSG-TEXT-1 


PIC X(35). 




05 MSG-IN-2 REDEFINES 


MSG- 


IN-1. 




10 IN-MSG-TEXT-2. 








20 TRANS -CODE -2 




PIC X(5). 




20 TEXT -2 




PIC X(20). 




10 FILLER 




PIC X(15). 




01 WORK -AREA. 








05 IN-MSG-REC. 








10 REC-LEN 




PIC 9(A) 


CCMP-4. 


10 MSG-TEXT. 








20 MSG-1 




PIC X(25). 




20 FILLER 




PIC X(15). 




01 OUTPUT-MESSAGE-AREA. 


COPY 


C»1A74. 





PROCEDURE DIVISION 



USING PROGRAM- INFORMATION -BLOCK 
INPUT-MESSAGE-AREA 
WORK -AREA 
CXITPUT-MESSAGE-AREA. 



IN-MSG-MOVE 

MOVE TEXT-LENGTH IN INPUT-MESSAGE-AREA TO REC-LEN. 
SUBTRACT FOUR FROM TEXT-LENGTH IN INPUT -MESSAGE -AREA. 
MOVE SPACES TO MSG-TEXT. 
IF TEXT-LENGTH IN INPUT-MESSAGE-AREA EQUAL FORTY 
MOVE MSG-IN-1 TO MSG-TEXT 
ELSE MOVE IN-MSG-TEXT-2 TO MSG-1. 
CALL 'PUT' USING IN-MSG-FIL IN-MSG-REC. 
IF STATUS-CODE > GO TO ERR-ROUT. 



ERROR -ROUT. 



c 



Figure 4-8. Testing the TEXT-LENGTH Fieid 
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4.10. Identifying Auxiliary Devices (AUXILIARY-DEVICE-NO) 

When an input message is received from an auxiliary device, IMS places the number 
of the auxiliary device in the second byte of the AUXILIARY-DEVICE-ID (ZA#IDEV) 
field, AUX-DEVICE-NO. Auxiliary device values range from 1 to 9. The first bj^e is 
reserved for system use. 

Just as your action program can check the source terminal identification, it can also 
check auxiliary device identification. To determine which auxiliary device sent the 
input message, your action program interrogates the AUX-DEVICE-NO field. 

Suppose your action program logic depends upon which auxiliary device transmitted a 
particular input message. If your input message came from auxiliary device 1, your 
program performs one routine. If device 2 transmitted the message, your program 
performs another routine. Figure 4-9 shows the procedure division coding used to 
check the number of the auxiliary device that sent the input message to your action 
program. 



AUX-DEV-TEXT. 

IF AUX-DEVICE-NO EQUAL 1 

PERFORM ROUT- A. 
ELSE IF AUX-DEVICE-NO EQUAL 2 

PERFORM ROUT-B. 
GO TO ERR -ROUT. 
ROUT-A. 



ROUT-B. 



ERR -ROUT. 



Figure 4-9. Testing tlie AUX-DEVICE-NO Field in a COBOL Action Program 
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The same test can be performed in a BAL action program by using the CLI instruction 
and branching to the appropriate routine to handle the processing of a message from 
either auxiUary device 1 or 2. Figure 4-10 shows this coding for a BAL action program. 



1 


10 


16 




CLI 


ZA#IDEV+1, C'1' 




BE 


ROUTA 




CLI 


ZA#IDEV+1, C'2' 




BE 


ROUTB 


ROUTA 


. 




ROUTB 


• 





Figure 4-10. Testing the AUX-DEVICE-NO Field in a BAL Action Program 
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4.11. Input Message Text 



Though input message texts vary according to individual applications, you must 
consider three important options before defining your input message area in your 
action program: 

• Receiving control character sequences 

• Use of the edit table generator to edit input messages 

• Use of screen format services to receive input on formatted screens 

4. 1 1 . 1 . Control Character Sequences 

Two input message control character sequences are used on input messages: device- 
independent control expressions (DICE) and field control character sequences (FCC). 
Field control characters apply only to UTS devices and workstations. 



c 



4.11.2. Device-Independent Control Expressions 

ICAM automatically inserts DICE sequences into input messages. DICE sequences 
show the format of input messages. A DICE sequence consists of the select character 
(10^^), a hexadecimal function code, and two hexadecimal coordinates: the first 
representing a row, and the second representing a column on the terminal. Function 
codes position the cursor, control carriage return, control forms, control line, feed line, 
and erase the screen. (See Table F-1 for further details.) The following diagram shows 
the relationship between the DICE sequences received in your program and their 
appearance on the screen. 



SFliC f FUNUTIOM 

CHARACrgft COX 



fiOW 



COLUMN 



NEW UNE WITH 
CONTROL OLEAR 



ROW 1 



1 

2 
3 



u 



a:)iUMN 1 
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In most cases, you configure the removal of DICE codes from input messages by ~~^' 

specif jdng EDIT=tablename or EDIT=c in the configurator ACTION section, or by 
omitting the EDIT parameter. 

If you wish to receive DICE sequences on input messages, you configure 
EDIT=NONE, which indicates no input message editing. You may want to receive 
DICE sequences on input in order to: 

• Obtain cursor positioning control values for an input message and use this data 
in screen positioning output messages 

• Switch a message to another terminal via the SEND function 

Configuring EDIT=NONE also means that all blanks entered at the terminal, 
including leading blanks, are received in your input message area. However, in the 
case of an input message from the system console, leading blemks are removed. 

Suppose you receive an input message from a terminal and want to send that message 
to another terminal; you want that message to arrive at the destination terminal in 
the same screen position as when it was entered on input. 

First, define an area in the first 4 bytes of your input message area to receive the 

DICE control sequence. In the procedure division, move the DICE sequence from the 

input message area to the output message area before moving the destination 

terminal identification and output message text to the output message area and ^^-^ 

issuing the SEND function (Figure 4-11). V ' 
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WORKING -STORAGE SECTION. 
77 ELEVEN 
LINKAGE SECTION. 



PIC 99 



COHP-4 



VALUE 11. 



01 INPUT -MESSAGE -AREA. 

05 DICE-SEQ 

05 TRANS-CODE 

05 FILLER 

05 DEST-TERM 

05 FILLER 

05 IN-TEXT 
01 OUTPUT-MESSAGE-AREA. 

05 CURSOR -POS 

05 OUT -TEXT 
PROCEDURE DIVISION 



COPY IMA. 

PIC X(4). 4 

PIC X(5). 
PIC X. 
PIC X(4). 
PIC X. 
PIC X(28). 

COPY 0MA74. 

PIC X(4). A 

PIC X(28). 
USING PROGRAM 



RECEIVE DICE CONTROL SEQUENCES 



RECEIVE DICE CONTROL SEQUENCES 



INFORMATION-BLOCK 
INPUT-MESSAGE-AREA D 
OUTPUT-MESSAGE-AREA. 



MOVE -MESSAGE. 

MOVE DEST-TERM TO DESTINATION-TERMINAL- ID. 

SUBTRACT ELEVEN FROM TEXT-LENGTH IN INPUT-MESSAGE-AREA 

GIVING TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
MOVE DICE-SEQ TO CURSOR -POS. 
MOVE IN-TEXT TO OUT -TEXT. 
CALL 'SEND' USING OUTPUT -MESSAGE -AREA. 
IF STATUS- CODE NOT EQUAL GO TO ERROR -PROC. 



ERROR -PROC. 



Figure 4-11. Receiving DICE Sequence on Input Message 
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4.11.3. Field Control Character Sequences 

To receive FCC sequences in your input from a UTS terminal or workstation, specify 
EDIT=NONE or FCCEDIT=NO in the configurator ACTION section. Leave 5 bytes in 
your input message text wherever you expect to receive the sequences. You describe 
the input message text including the FCC sequences much the same as you do for 
DICE sequences. Both FCC and DICE sequences can be interspersed in the message 
text instead of just at the beginning. 



o 



4.11.4. Receiving Free-Form Input 

Let's consider the use of an edit table (EDIT=tablename) to edit input messages. You 
create an edit table by executing an offline IMS utility, the edit table generator, and 
configuring EDIT=tablename. This allows the operator to enter input messages in free 
form at the terminal. IMS uses the edit table to convert the free-form input message 
into the format your program requires. 

You describe the input message text in your action program to reflect the formatted 
input message you want to receive. IMS receives free-form input from the terminal, 
formats and vahdates this input as you specify on edit table parameters, and sends it 
to your program's input message text in the format described there. For a description 
of how to use the edit table generator and a sample program that uses an edit table, 
see Appendix E. 
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4.11.5. Receiving Screen-Formatted input 

Your action program can receive input entered on screen formats, using screen format 
services. Your action program displays the screen format by issuing a BUILD function. 
In your input message area, you describe all input or input/output fields entered by 
the operator. For more details about receiving screen-formatted input, see Section 7. 
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Section 5 
Processing Data Files 

5.1. Accessing Files 

Most IMS applications require access to data files. Your action programs exist to 
process messages that depend on data obtained from files. Though your action 
programs don't directly access data files, they do issue I/O function calls that tell IMS 
to retrieve, insert, update, or delete records. 

When IMS receives a function call from your action program, it makes records 
available for processing. Data management access methods, SAM, DAM, ISAM, or 
MIRAM, perform the functions your action program requests. To access IRAM files, 
you must configure them as MIRAM files. 

IMS supports sequential, relative, and indexed files as well as defined files that are in 
indexed organization. Table 5-1 summarizes the files supported by IMS. 

Table 5-1. Summary of File Types Supported by IMS 



File 
Organization 


Access 
Mode 


Data Management 
Access Method 


Functions Available 
through IMS 
File Management 


Sequential 


Sequential 


SAM/dedicated MIRAM 
(tape and disk) 


Retrieve, Append 
(write unblocked output) 


Relative 
(nonindexed) 


Random 


DAM/MI RAM 


Retrieve*, Update, 
Insert, Delete 


Sequential 


MIRAM 


Retrieve 


Indexed 


Random 


I SAM/MI RAM 


Retrieve*, Update, 
Insert, Delete 


Sequential 


I SAM/MI RAM 


Retrieve 


Indexed 
(defined file 


Random 


ISAM/DAM/ 
MIRAM 


Retrieve*, Update, Insert, 
Delete 


Sequential 


ISAM/DAM/ 
MIRAM 


Retrieve 



"Both retrieve and retrieve-with-the-intent-todipdate can be requested. 
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Your action programs may issue random and sequential I/O functions to indexed and 
relative files but only sequential I/O f imctions to sequential files. Table 5-2 lists the 
file I/O functions allowed with each file organization and the CALL function 
parameters. 



^„-^^^ 



Table 5-2. Summary of File I/O Function Calls 



File 
Organization 


Random Functions 


Sequential Functions 


CALL 


Parameters 


CALL 


Parameters 


Sequential 






GET 
PUT 


filename 
record- area 
filename 
record- area 


Relative 
(non indexed) 


GET 

GETUP 

PUT 

INSERT 
DELETE 


filename record-area record number 
filename record-area record number 
filename record-area [record-number] (2) 

filename record-name record-number 
filename record-area record-number 


SETL 

GET 

ESETL 
SETK 


filename position 

[record-number] 

filename 

record- area 

filename 

filename [key-of-ref] 


Indexed 


GET 
GETUP 

PUT 

INSERT 
DELETE 


filename record-area key [key-of-ref 
[dup-key-ct]](D 

filename record-area 

filename record-name 
filename record-area 


SETL 

GET 

ESETL 
SETK 


filename position 
[key[partial -key- 
count]]® 
filename 
record- area 
filename 
filename [key-of-ref ] (3) 


Indexed 

(defined 

file) 


GET 

GETUP 

PUT 

INSERT 

DELETE 


filename record-area key 
filename record-area key 
filename record-area 
filename record-area key 
filename record-area 


SETL 

GET 

ESETL 


filename position [key] 
filename record-area 
filename 



kJ 



Notes: 



(T)Sequential functions available with MIRAM, not DAM. 
(2)Record-number required for DAM files. 
(3)Optional parameters available for MIRAM only. 
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5.2. I/O Function Calls 



c 



Function calls are your program's means of accessing data on files. You can issue an 
I/O function call in either COBOL or BAL action programs; their formats differ 
slightly. 

The COBOL CALL function statement format is: 

CALL 'function' USING filename, param-1,...parani-n. 

The BAL CALL fimction is in the format of a macroinstruction. BAL action programs 
use either the CALL or ZG#CALL macroinstruction: 

1 ie 16 



{CALL 1 function, (filenanie,parain-1,...param-n) 
ZG#CALLJ 



where: 



function 

Is the name of the I/O function requested by your action program. 

filename 

Is the name of the file on which the f\xnction is performed. 

param-1,...parain-n 

Indicates the record-area, record-number, key, partial-key-count, key-of- 
ref erence, duplicate-key-coimt, or position relative to the record being 
processed. 

After processing an I/O function call, IMS sets a status code value in the STATUS- 
CODE field (COBOL action program) or ZA#PSC location (BAL action program) of the 
program information block. The status codes returned by IMS are explained in more 
detail in Table D-1. 

IMS returns detailed status codes after processing certain I/O fimctions. These 
detailed status codes give more description of the error that occurred. For detailed 
status codes and their descriptions, see 3.6, 3.7, and Appendix D. 

For advisory status codes, see 5.12 and Appendix D. 

5.2.1. Function Call Positional Parameters 

Both COBOL and BAL function CALL statements contain positional parameters that 
refer to data names in the data division of a COBOL action program or labels of 
storage locations in a BAL action program. Positional parameters include filename, 
record-area, record-number, key, partial-key-count, key-of -reference, duplicate-key- 
count, position, record-size, control-character-area, and lock-disposition. 

Filename is a field containing the 7-character name of the file on which the specified 
function is performed. This name is left-justified and blank-filled. 
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In a COBOL action program, the file name can be defined in the working-storage 
section: 



c 



WORKING -STORAGE SECTION. 

^^^ 1 — PIC X(7) VALUE 'CUSTMST'. 

To call the file, issue a fimction call using the data name for the file: 

CALL -GET' USING H^B^I IMS-RECORD-AREA IMS-KEY. 

In a BAL action program, the file name can be defined as a constant in storage: 
1 10 16 

mMM DC CL7' STATE' 

and called in the macro: 
1 10 16 



CALL GET,(; 



, IMS-RECORD-AREA, IMS-KEY) 



Record-area is the area to or from which IMS moves a logical or defined record. You 
define the record area within an 01 -level item of the linkage section, usually the work 
area. 

Record-area is the data name or storage location that designates the area into which a 
detailed record is moved by IMS on an input function, or from which a defined record 
is passed to IMS on an output function call. The area must be large enough to include 
the entire defined record along with the item status bytes. 



V.^' 



01 



WORK -AREA. 

05 PARAMETER- LI ST. 
10 IMS- FILENAME 



PIC X(7). 



In a BAL action program, you define the record area in a defined storage statement: 



1 



10 



16 



WORK DSECT 
RECORD ECU * 
SNAME DS XLK 
SPOP DS ' XLS 
SCAPITAL 03 • ■ XL25 



WORK AREA 

STATE NAME 
STATE POPULATION 
STATE CAPITAL 
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Record-area-size must be equal to or greater than the largest logical record it will 
contain. If your records are ISAM variable length, your record description must begin 
with a 2-byte binary field describing the length of the record. Other file types need a 4- 
byte binary field describing length. In a COBOL action program, describing MIRAM or 
SAM variable-length records, the description might be: 

02 DATA-RECORD. _ ^ _^ _ 

1? FILLER ' "pic XX. 

10 FIXED-PORTION. 

20 MAIN-INFO PIC X(25). 

20 NR-OF-TRAILERS PIC 99 COMP-4. 
10 VARIABLE-PORTION OCCURS TO 10 TIMES 
DEPENDING ON NR-OF-TRAILERS. 

20 TRAILER PIC X(15). 

20 TRAILER-2 PIC X(5). 

The description for an ISAM variable-length record would not need the FILLER 
statement after the record length field. For DAM files, the record area should be a 
multiple of 256 bytes and larger than or equal to the record size. 

In a BAL action program, the statement might be: 

1 10 16 

VARLN OS CL4 

Record-number is an 8-byte field containing a right-justified binary number that 
specifies the position of the record relative to the beginning of a relative file. The first 
number is 1. The COBOL description of this field might be: 

10 IMS-REC-NUMBER PIC 9(10) USAGE COHP-4. 

A BAL action program might describe the record number as: 
1 10 16 

RECNO DS XLS 

Before issuing function calls containing the record-number parameter, move a 
record-number value to this field. 

Key contains the value that identifies the record to be retrieved from or inserted into a 
file. You describe it in a COBOL action program's linkage section. A record key 
description in your COBOL action program might be: 

10 IMS-KEY PIC X(14). 

In a BAL action program, the equivalent statement might be: 

RECKEY. DS CL14 
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Again, before issuing function calls containing the key parameter, you must place a 
key value in this field. 

Partial-key-count is used in the SETL function call for indexed MIRAM files when the 
position parameter is G, K, or H. It is the symbolic address of a 4-byte field containing 
a right-justified binary number. This binary number indicates the number of leading 
bytes in the key used to locate the record. 

The partial key count can be defined in the linkage section or the working-storage 
section of a COBOL action program. If defined in working storage, it must have a 
VALUE clause. For example, 

WORKI NG -STORAGE SECTION. 

^^S9 PIC 9(4) USAGE COMP-4 VALUE 3. 

defines your partial key count before you issue the SETL function call using STPT as 
your partial-key-count parameter. 

The following data item has a binary value of 3 referring to the first three characters 
(279) of the specified key: 

CALL 'SETL' USING HYFIL POS IHS-KEY 1^ 

The partial-key-count should be defined in a BAL action program using a DC 
statement: 

1 10 16 

^K DC X' 00000003' 

before being referenced in the macroinstruction: 
1 10 16 

ZG#CALL SETL, (MYFIL, POS, IMS-KEY,^) 

Key-of-reference is the symbolic address of a 4-byte field containing a right-justified 
binary number. This binary number indicates which key of multiple keys is used for 
retrieving the record. Use the same type working-storage (COBOL) or defined storage 
(BAL) statements as in the partial-key-count example to define the key-of-reference, 
and assign a value to it before issuing the SETK function call. The value of key-of- 
reference must be between 1 and 5. 

Duplicate-key-count is the symbolic address of a 4-bj^e field containing a right- 
justified binary number. This binary number indicates the number of the record for 
retrieval within a duplicate key set. The duplicate-key-count value must be defined 
before you reference it in your I/O function call. See examples of how this is done in 
the previous description of partial-key-count. 



o 
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Position is a sjnnbolic address of a storage location containing a 1-byte value. This 
value designates the position of the file at completion of the SETL function. Values 
are listed in the SETL function descriptions. 

Record-size is a symbolic address of a 2-byte binary field indicating the number of 
printable characters to be moved to the I/O area. 

Control-character-area is a symbolic address of a 1-byte field containing a device- 
independent control character (DICE) used for printer control. 

Lock-disposition is a sjonbolic address of a l-bjiie field containing the EBCDIC 
character H. This specifies the retention of the current printer file assignment after 
the printer file is breakpointed. 



5.3. Accessing Indexed Files 



^fct.^j' 



The indexed-sequential and multiple-indexed random access methods (ISAM and 
MIRAM) process function calls issued by your action program to indexed files. With 
several exceptions, a key specification characterizes most file functions issued to 
indexed files. Although IMS supports multiple-key MIRAM files, you must use only 
the primary key identified in the configurator FILE section (PKEY=n parameter) to 
insert or update records. Changes or duplicates of alternate keys are allowed, except 
for primary keys. 

Note: You must specify MODE=RAN in the FILE section of the configuration to 

access MIRAM files randomly. If a file is configured as MODE=SEQ, you can 
use only the sequential functions GET and PUT (5.9). 

5.4. Random Functions for Indexed Files 

The random function calls GET, GETUP, PUT, INSERT, and DELETE: 

• Retrieve records with or without updating 

• Write records back to a file 

• Logically or physically delete records 

• Overwrite an existing record or add a new record to a file 

For error status codes resulting from the execution of each of the random I/O function 
calls, see Table D-1. 
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5.4. 1 . Reading Records Randomly (GET) V 

The random GET function retrieves the record designated by the key value from the 
named file and places it into the specified record area. IMS does not perform the GET 
function if the requested record is currently locked by a different transaction. You 
cannot update a record retrieved by the GET function; use GETUP to retrieve a record 
for updating. 

The COBOL and BAL formats for the random GET function calls are: 

• COBOL format 1 (ISAM files) 

CALL 'GET' USING filename record-area key. 

• COBOL format 2 (MIRAM files) 

CALL 'GET' USING filename record-area key 

tkey-of -reference [duplicate-key-count]]. 

• BAL format 1 (ISAM files) 

TcALL 1 GET, (filename, record-area, key) 
\ZG#CALLJ 

• BAL format 2 (MIRAM files) 

fcALL 1 GET,(filename,record-area,key /""^i 

[ZG#CALLJ [, key- of -reference [.duplicate -key- count]]) I J 

For MIRAM files (format 2), the key-of-reference value indicates which key of multiple 
keys is used for retrieving the record. This key level number must coincide with one of 
the data management KEYre specifications designated at configuration time. 

For example, your configurator FILE section might have KEYra designations of 
KEY1=(6,6), KEY2=(6,0), and KEY3=(5,12). (Key 1 starts in position 6 of the file, key 2 
starts in position 0, and key 3 starts in position 12.) Key 2 is configured as the primary 
key (PKEY=2 specification), so key 1 and key 3 are alternate keys. You want to access 
the file using key 1, so you use the key-of-reference value 1. When the key-of-reference 
value is omitted, IMS uses the primary key, in this case, key 2. 
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WORKING -STORAGE SECTION. 



rr TWO PIC 9(5) COHP-4 VALUE 2. 
77 THREE PIC 9(5) COMP-4 VALUE 3. 



PROCEDURE DIVISION. 



CALL 'GET' USING FIL-A REC-A KEY-A ONS 



PRIMARY 
KEY 



KEY OF 
REFERENCE 



I i 



AAAAA1 


299448 


44813 


AAAAA2 


299448 


45731 


BBBBB1 


299448 


59063 


BBBBB2 


299448 


87776 



KEY2=(6,0) \ KEY3=(5,12) 

KEY1=(6,6) 



Also, on function calls to MIRAM files, you can specify a duplicate-key-count value to 
indicate which record within a duplicate key set to retrieve. Retrieving a record with a 
large number of duplicate key values can be time-consuming. An alternative would be 
to use the undedicated sequential retrieval method (see 5.5). 



work i ng - storage section. 
proiSdure division. 



m 3. 



CALL 'GET' USING FIL-A REC-A KEY-A ONE 
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KEY1=(6,6) 
STARTS IN LOCATION 6 

mill * II Ml 




■♦ 


AAAAA1 


299448 


44813 




AAAAA2 


299448 


45731 


BBBBB1 


2^8 


59063 


BBBBB2 


299448 


87776 






' 1 1 








DUPLICATE 
KEY SET 





c 



If you omit this parameter or if it equals 1, IMS retrieves the first record within the 
dupUcate key set. If the value is zero or exceeds the number of records within the 
duplicate key set, IMS sets status code and detailed status code to 1. 



WORKING -STORAGE SECTION. 

77 DUP-KEY-CT PIC 9(5) USAGE COMP-4 



VALUE 8. 



AAAAA1 


299448 


44813 


AAAAA2 


299448 


45731 


BBBBB1 


299448 


59063 


BBBBB2 


299448 


87776 



DUPLICATE ♦■ 
KEY SET 



STATUS 
CODE 



01 


01 



THERE IS NO EIGHTH 
DUPLICATE KEY 
SO 



DETAILED 

STATUS 

CODE 



(IN HEXADECIMAL) 



Note that the sequence of records in a duplicate key set changes when one of the 
records in the set is deleted. If the deleted record is later restored by online or offline 
recovery, it is placed at the end of the duplicate key set instead of in its original 
position. 
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If you configure physical deletion of records (DELETP=YES) in the FILE section, you 
can retrieve any logically deleted records on MIRAM files as normal data. You must 
configure physical deletion of records when files are multikeyed. 

The logical sequence of MIRAM records, containing duplicate secondary keys, is not 
maintained when one of these records is deleted and either online or offline recovery is 
performed for that file. 



5.4.2. Reading Records for Update (GETUP) 

The GETUP function retrieves the record for updating and temporarily locks the 
requested record from access by other transactions. IMS does not perform the GETUP 
function if the requested record is currently locked by a different transaction. As with 
the GET function, IMS uses the key you specify on the GETUP function to locate the 
required record. Unlike the GET function, you can access a record for update only by 
the primary key. 

The COBOL and BAL formats for the GETUP function call to all indexed files are: 

• COBOL format 

CALL 'GETUP' USING filename record-area key. 

• BAL format 

fCALL 1 GETUP, (filename, record-area, key) 
\ZG#CALLj 

To update or delete the record requested, issue a PUT or DELETE function call 
following the GETUP function. Other function calls to the same file may not 
intervene. Otherwise, the record must be retrieved again with a GETUP function 
before a PUT or DELETE can be performed. You may, however, issue other 
instructions and function calls to other files between the GETUP and PUT or 
DELETE functions. 



Incorrect 


Correct 


CALL 'GETUP' USING HYFIL 
I MS -REG -AREA MYKEY. 

MOVE GUST -NAME TO NAME- FIELD. 
CALL 'PUT' USING MYFIL 
IMS-REC-AREA. 


CALL 'GETUP' USING MYFIL 
IMS-REC-AREA MYKEY. 
MOVE CUST-NAME TO NAME-FIELD. 
CALL 'PUT' USING MYFIL 
IMS-REC-AREA. 
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For ISAM files, you must not change the key value in the record area between the 
GETUP and succeeding PUT or DELETE function calls. IMS does not return an error, 
but you may damage your data file. 

For MIRAM files, do not change the value of the primary key in the record area 
between the GETUP and succeeding PUT or DELETE function calls. You may, 
however, change the value of alternate keys. 

For ISAM files, do not change the value of the key field used for the key parameter 
between the GETUP and succeeding PUT or DELETE function calls. This value may 
be changed when you use MIRAM files. 



r 



Primary key. 
Do not change 



Alternate key 



Key parameter 
field. Do not 
change for ISAM 



ei 



WORK-AREA. 
OS REC-AREA 

* 10 ACCTNO 

10 NAME 



-* 10 ADDRESS 



10 OTHER-DATA 
05 MYKEY 



PIC X(6) 
PIC X(20) 

PIC X(20) 

PIC X(50). 
PIC X(6). 



PROCEDURE DIVISION. 

MOVE INPUT-KEY TO MYKEY. 

CALL 'GETUP' USING MYFIL REC-AREA MYKEY. 

MOVE INPUT -NAME TO NAME. 

CALL 'PUT' USING MYFIL REC-AREA. 



o 



If you configure physical deletion of records, you can retrieve any logically deleted 
records on MIRAM files as normal data. 

5.4.3. Writing Updated Records (PUT) 

The random PUT function writes an updated record back to the file. It must be 
preceded by a GETUP function that retrieves the record for update. The first byte of 
nonkey data must not contain X'FF, imless you have configured physical deletion for 
MIRAM files (DELETP=YES). 

No key is required on a PUT function because the key is in the specified key location 
in the record area. If you specify a key parameter, IMS returns a status code of 3 and a 
detailed status code of 1. 
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The COBOL and BAL formats for the PUT function call are: 

• COBOL format 

CALL 'PUT' USING filename record-area. 

• BAL format 

CALL PUT, (filename, record-area) 
ZG#CALL 



X.^^'-' 



5.4.4. Deleting Records (DELETE) 

The DELETE function deletes a record that was retrieved for updating. The DELETE 
function must be preceded by a GETUP function. If other fimction calls to the same 
file intervene, you must reissue the GETUP function before the record can be deleted. 

The COBOL and BAL formats for the DELETE function call are: 

• COBOL format 

CALL 'DELETE' USING filenane record- area. 

• BAL format 

CALL DELETE, (filename, record-area) 
ZG#CALL 

The DELETE function for ISAM files is a logical deletion. A logical record deletion 
changes the first byte of nonkey data to X'FF before the record is written back to the 
file. 



BEFORE LOGICAL DELETION 



KEY 



DATA 



DATA 



AFTER LOGICAL DELETION 



KEY 



DATA DATA 



1_4 



THIS RECORD 
IS LOGICALLY 
DELETED. 
DELETION FLAG 
OF X'FF'. 
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The DELETE function for single-keyed MIRAM files can be a logical or a physical 
deletion. A physical deletion is always performed for multikeyed MIRAM files. 

To logically delete single-keyed MIRAM records, configure DELETP=NO or default to 
this value. The results of this logical deletion are the same as for ISAM records on 
logical deletion (for example, X'FF in first byte of nonkey data). 

To physically delete a single-keyed MIRAM record, create the file with the data 
management keyword RCB=YES and configure IMS with the DELETP=YES 
parameter. (DELETP=YES is assumed for multikeyed MIRAM.) The DELETE 
function then physically deletes the record from the file. 



c 



SPECIFIED 
IN 

CONFIGURATOR 
FILE SECTION 



CALL -GETUP' USING FIL-A REC-A KEY-A. 



BEFORE PHYSICAL DELETION 



KEY DATA DATA 



AFTER PHYSICAL DELETION 

I 

I 



J 



^^^^^^ 



Suppose the record you call for deletion is previously flagged as logically deleted. If 
you configure physical deletion, the GETUP function retrieves the requested record. If 
you configure logical deletion, the GETUP function returns a record not found status. 

Note: When IMS logically deletes a record (X'FF' in the first byte of nonkey data) 
and you later access the file from a non-IMS program, the record will not be 
recognized as deleted. You must check for HIGH-VALUES orXFF' in the first 
byte of nonkey data. 
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5.4.5. Adding Records (INSERT) 

The INSERT function places a new record into the file or overwrites a previously 
deleted record. This function is not preceded by a GETUP function. The first byte of 
nonkey data in the record being inserted must not contain a deleted record value of 
X'FF', unless you have configured physical deletion for MIRAM files. The COBOL and 
BAL formats for the random INSERT function calls are: 

• COBOL format 

CALL 'INSERT' USING filename record-area. 

• BAL format 

TCALL 1 INSERT, (filename, record-area) 
[ZG#CALLJ 

Indexed files do not require a key parameter in the INSERT f imction. Their keys must 
be embedded in the record. The key of the new record must have a value that is 
different from any already existing in the file. 

CALL 'INSERT' USING FIL-A REC-A. 



o 











KEY-A 


FIL-A 






^» 




3587 


DATA 


. . DATA 




' 






* 




_ . — 


* 




4097 


DATA 




DATA 




i" 




O 








•, :•';.: 


; 




KEY OF RECORD 
INSERTED MUST 
BE UNIQUE AND 
EMBEDDED IN 
RECORD. 




1487 


DATA 


. . DATA 


^ 










• 












-. 



An INSERT function using a previously deleted record slot removes the delete control 
character. You can change the length field for variable-length records in MIRAM files, 
but not in ISAM files. 
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For MIRAM files, you cannot overwrite a logically deleted record, when physical 
deletion is configured. An attempt to do this results in a status code of 1, invalid key. 



4097 



DELETP=YES 

SPECIFIED IN 
CONFIGURATOR 
FILE SECTION 



CALL 'INSERT' USING FIL-A REC-A. 

FIL-A (MIRAM FILE) 
KEY-A 



DATA DATA 



SLOT FOR INSERTION 
HAS LOGICAL DELETE 
FLAG. IMS RETURNS 
INVALID KEY STATUS 
CODE. 



3587 



DATA DATA 



4097 



DATA DATA 
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5.5. Sequential Functions for Indexed Files 

Sequential function calls SETK, SETL, GET, and ESETL: 

• Set a key of reference for sequential processing 

• Set an indexed file into sequential mode and position it to a selected location in 
the file 

• Retrieve records sequentially 

• Reset the indexed file from sequential mode to random mode 

For error status codes resulting from the execution of each of the sequential I/O 
function calls, see Table D-1. 

When accessing an indexed file sequentially, your action program must first set the 
file into sequential mode via the SETL function. During this time, the file is accessed 
exclusively by the transaction that sets the mode. Requests by other transactions for 
sequential or random mode functions are queued for later processing. 

Sequential mode exists until your program requests an ESETL function or until the 
current action terminates. In either case, the indexed file returns to random mode. 
The file also returns to random mode if an error occurs on a SETK or SETL function or 
an invalid request (status code 3) occurs on a GET function. 







J 


S 

e 


CHANGE TO 
SEQUENTIAL 
MODE 






starting 

POINT 


KEY-A 


\ 


v/ 


7 














FIRST GET O 
SECOND GET 

THIRD GET O 


3587 


DATA . 




. . . . DATA 






4097 


DATA . 




. . DATA 




1487 


DATA . 




. . , . DATA 




6883 


DATA . 




.... DATA 








< 


E 
S 
E 

T 


RETURN TO 
RANDOM MODE 

7 




getO 
getO 


KEY-A 












3587 


DATA 




.... DATA 






4097 


DATA 




.... DATA 




1487 


DATA 




.... DATA 




6883 


DATA 




.... DATA 
























UP-9207 Rev. 2 



5-17 



Processing Data Files 

O 

Note: Shared file access among transactions is done only in random mode. The use ~" 

of sequential mode by one transaction can significantly degrade the response 
time for other transactions accessing the same file. 

5.5.1. Setting the Key of Reference for Sequential Processing (SETK) 

The SETK fionction establishes the key-of -reference for subsequent indexed file 
positioning and retrieval. This function is used exclusively with multikeyed MIRAM 
files. 

The COBOL and BAL function call formats for the SETK function are: 

• COBOL format 

CALL 'SETK' USING filename Ckey-of -reference]. 

• BAL format 

tCALL 1 SETK, (filename[key-of -reference]) 
ZG#CALLJ 

The key-of -reference is the symbolic address of a 4-byte field containing a right- 
justified binary number. This value indicates which of the multiple keys to use on the 
succeeding SETL and GET functions. If the key-of -reference parameter is omitted, ^~ 

IMS uses the primary key for the search. I ) 



\^ 
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KEY OF REFERENCE 



CONFIGURE: 



FILE 



FIL-A 



FILETYPE=DMRAM 

PKEY=1 

KEY1=(6,0) 



KEY3=(2,80) 

WORKING -STORAGE SECTION. 

77 KEY-A PIC 9(5) COHP-4 VALUE 1. 

77 KEY-C PIC 9(5) COMP-4 VALUE 3. 



PROCEDURE DIVISION. 
PARA- 1 . 

CALL 'SETK' USING FIL-A <EY-3. 



CALL 'ESETL' USING FIL-A. 



A GET function cannot (iirectly follow a SETKfimction; you must position the file 
with the SETL function before retrieving records. It can be issued many times to 
change the key of reference. Once established, however, the specified key of reference 
remains in effect until another SETK, ESETL, or action termination. 

When any error occurs on a SETK function, the file is reset to random mode and any 
file locks in effect are released. For further sequential processing, you must issue 
another SETL and SETK function to reestablish the sequential mode and the key of 
reference. 
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5.5.2. Setting Indexed Files from Random to Sequential Mode (SETL) ^ 

The SETL function sets an indexed file into sequential mode and logically positions 
the file as follows: 

Value Meaning 

B Beginning of file 

G Greater ttian or equal to the key supplied 

K Equal to key supplied 

H Greater than key supplied 

The value of the position parameter determines the logical position of the file at 
completion of the SETL function. Indexed files start at position 0. You can reissue the 
SETL function any time to change the sequential position of the file. For ISAM files, 
however, you must issue an ESETL function before reissuing another SETL function. 

The COBOL and BAL formats for the SETL function call are: 

• COBOL format 

CALL 'SETL' USING filename position [keyCpartial-key-count]]. 

• BAL format 

fcALL 1 SETL, (filename, position[,key[, partial-key-count]]) | \ 

1zg#call/ \_J 

You must supply a file name and choose a position value. Depending upon the position 
chosen, you also supply a key parameter. 

In addition, the SETL function allows for partial key search of indexed MIRAM files. 
To do this, use the OTptional partial-key-count parameter. It is the symbolic address of 
a 4-byte field containing a right-justified binary number. This binary number 
indicates the number of leading bytes used from the key to locate the record. If you 
omit ihe partial-key-count parameter, data management uses the entire key to locate 
the record. 
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CALL 'SETL' USING FILE-A G KEY-A STPT. 
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FIRST 2 
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FILE-A (MIRAM FILE) 
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POSITION FILE HERE [^ 
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DATA 
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DATA 


8 7 U N 1 
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9 1 F B 1 


DATA 


DATA 


9 9 F B 1 


DATA 


DATA 



When any error occurs on a SETL function, the file is reset to random mode and any 
file locks in effect are released. For further sequential processing, you must issue 
another SETL function call. 
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Table 5-3 lists the SETL parameter choices for ISAM and MIRAM files. 
Table 5-3. SETL Parameter Choices for Indexed Files 



yt^'-^^- i 



File Type 


Parameters 


Filename 


Position 


B 


G 


K 


H 


Key 


Partial 


ISAM 


X 


X 


X 


X 




X 




Indexed MIRAM 


X 


X 


X 


X 


X 


X 


X 



5.5.3. Reading Records Sequentially (GET) 

The sequential GET function retrieves the next logical record in sequential order 
unless the record is marked logically deleted (that is, X'FF in the first bjiie). If the 
record is marked logically deleted, the GET function retrieves the following record. 
For MIRAM files, if DELETP=YES is configured or assumed, data management 
retrieves logically deleted records as normal data. 

Filename and record-area parameters are required on sequential GET functions for 
indexed files. 

The COBOL and BAL formats for the sequential GET function call are: 

• COBOL format 

CALL 'GET' USING filename record-area. 

• BAL format 

fcALL 1 GET, (filename, record-area) 
[ZG#CALLJ 

When an invalid request error occurs on a sequential GET function, after a SETL 
function, the file is reset to random mode and any file locks in effect are released. 






V_^'' 



5-22 



UP-9207 Rev. 2 



Processing Data Files 



O 



5.5.4. Setting Indexed Files from Sequential to Random Mode (ESETL) 

The ESETL function changes the mode of indexed files from sequential to random. If a 
file is in the sequential mode for a transaction and you do not issue an ESETL 
f miction before termination of the current action, IMS resets the file to random mode. 
The ESETL function always requires a filename parameter. 

The COBOL and BAL formats for the ESETL function call are: 

• COBOL format 

CALL 'ESETL' USING filename. 

• BAL format 

[call 1 ESETL, (filename) 
|ZG#CALLJ 
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5.6. Accessing Relative Files v 

The direct and multiple-indexed random access methods (DAM and MIRAM) process 
function calls issued by your action program to relative files. A record-number 
parameter characterizes most file functions to relative files although record numbers 
are not required on sequential fimctions. Random and sequential fimctions are 
supported for MIRAM files but only random functions for DAM files. 

Note: You must specify MODE=RAN in the FILE section of the configuration to 

access MIRAM files randomly. If a file is configured as MODE=SEQ, you can 
use only the sequential functions GET and PUT (5.9). 

5.7. Random Functions for Relative Files 

The random function calls GET, GETUP, PUT, INSERT, and DELETE: 

• Retrieve records with or without updating 

• Write records back to a file 

• Logically or physically delete records 

• Overwrite an existing record or add a new record to a file / ~ 

W 
For error status codes resulting from the execution of each of the random I/O 

functions, see Table D-1. 

You must Preformat DAM files offline before their initial use, and they must contain 
the maximum number of physical records to be referenced online under IMS. 
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5.7.1. Reading Records Randomly (GET) 

The random GET function retrieves the record you request by record number and 
places it into the specified record area. All record number fields must be 8 bytes long 
and binary. You cannot update a record retrieved by the GET function; use GETUP to 
retrieve a record for updating. 

If the requested record is currently locked by a different transaction, IMS does not 
perform the GET function. 

The COBOL and BAL formats for the random GET function call are: 

• COBOL format 

CALL 'GET' USING filename record-area record-number. 

• BAL format 

FcALL 1 GET, (filename, record-area, record-number) 
[ZG#CALLJ 

If a transaction requests a logically deleted record (X'FF in the first byte), IMS 
returns an invalid record number status code of 1. However, if DELETP=YES is 
configfured for a MIRAM file, logically deleted records are retrieved as normal data. 



o 



IMS-REC- 
NUMBER 



THIS RECORD NOT RETREIV- 
ED IF DAM FILE OR IF 
MIRAM FILE AND 
DELETP-NO IS CONFIGURED 



o 



1 


DATA .... 


2 


DATA .... 


3 


FF 


DATA . . 


4 


DATA ... 



o 



THIS RECORD RETRIEVED 
IF MIRAM FILE 
AND DELETP = YES 
IS CONFIGURED 



IF NOT RETREIVED, IMS SETS 
INVALID REC-NUMBER STATUS CODE 

STATUS-CODE 






1 



(IN HEXADECIMAL) 
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5.7.2. Reading Records for Update (GETUP) ^ 

The random GETUP function uses a record number to retrieve a requested record for 
updating and temporarily locks that record from access by other transactions. IMS 
does not perform a random GETUP function if the requested record is currently locked 
by a different transaction. All record number fields must be 8 b3^s long and binary. 

The COBOL and BAL formats for the random GETUP function call are: 

• COBOL format 

CALL 'GETUP' USING filename record-area record-nuniser. 

• BAL format 

fCALL "I GET, (filename, record-area, record-number) 
[ZG#CALLJ 

A GETUP function can be followed by a PUT function to update the record, or a 
DELETE function to mark the record as logically deleted or to physically delete it. 

If the record-number parameter is omitted from the PUT or DELETE function that 
follows a GETUP function (MIRAM files only), the record field in your program must 
remain unaltered until IMS completes the PUT or DELETE function. 

If the DELETP=YES parameter is configured and you issue a GETUP function call for 
a logically deleted record, IMS returns the logically deleted record as normal data. For 
DAM files, and for MIRAM files with DELETP=NO configured, IMS returns an 
invalid record number status of 1. 

5.7.3. Writing Updated Records (PUT) 

The random PUT function is used with the GETUP function to write an updated 
record back to the file. A PUT fimction must be preceded by a GETUP function that 
retrieves the requested record for update. The first byte of data in a record must not 
contain an X'FF unless you have configured physical deletion for MIRAM files. 
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The COBOL and BAL formats for the PUT function call are: 

• COBOL format 

CALL 'PUT' USING filename record-area [record-nuniaer]. 

• BAL format 

{CALL 1 PUT, (filename, record-area[, record-number]) 
ZG#CALLJ 

A record-number parameter is required on the PUT fimction for DAM files, but is 
optional for MIRAM relative files. When you omit the record-number parameter for 
MIRAM files, no function call for the same file may be between the GETUP and PUT 
function. 



ii^ IL:A(REC-.AREA !HS-,REC:NUM3pR'. 
MOVE NEW-AMT TO AMT-A. 



utomm 



GIVEN: IMS-REC-NUMBER = 3 



RETRIEVE THIS RECORD. 
UPDATE IT; AND 
WRITE IT BACK 
TO THE FILE. 



IMS-REC- 
NUMBER 



1 


DATA . . . 


2 


DATA . . . 


3 


DATA . . . 


4 


DATA . . . 



o 



5.7.4. Deleting Records (DELETE) 

The DELETE function for DAM files logically deletes a record that was retrieved for 
updating. 

For MIRAM files, this function physically deletes a record if the file was created with 
the data management keyword RCB=YES and configured with the DELETP=YES 
parameter. For MIRAM files configured with DELETP=NO, the deletion is logical. 

For an effective logical or physical deletion, this function must be immediately 
preceded by a GETUP fvmction. If other functions intervene, the GETUP function 
must be reissued before the record can be deleted. 

The COBOL and BAL formats for the DELETE function call are: 

• COBOL format 

CALL 'DELETE' USING filename record-area [record-number]. 
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• BAL format 

fCALL 1 DELETE, (filenanie,record-area[,record-nuiiber]) 
[ZG#CALLJ 

You must supply a record-number parameter on the DELETE function for DAM files; 
it is optional for MIRAM files. 

The logical DELETE function ch£inges the first bjd;e of data in a record retrieved for 
update to X'FF before the record is written to the file. 



o 



C 
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CALL 'GETUP' USING FIL-A JjTSlftE M li&iiESV l 
CALL 'DELETE' USIMG FILE-A REC-A. i 



BEFORE 


LOGICAL 


DELETION 


DATA . 


. . . . 


. . . DATA 



RECORD NUMBER 
NOT REQUIRED 
FOR MI RAM 
FILES. 



AFTER LOGICAL DELETION 



DATA 



DATA 



THIS RECORD IS 
LOGICALLY DELETED. 
DELETION FLAG 
OF X'FF' 



On the other hand, a physical DELETE actually removes the record from the file. 
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CALL 'GETUP' USING FIL-A REC-A I MS -REC- NUMBER. 


CALL 'DELETE' USING FILE-A REC-A. 


BEFORE PHYSICAL DELETION 






DATA DATA 
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^FTER PHYSICAL DELETION 






r n 






L J 











Note: When IMS logically deletes a record (X'FF' in the first byte) and you later 

access the file from a non-IMS program, the record will not be recognized as 
deleted. You must check for HIGH-VALUES orXFF' in the first byte. 
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5.7.5. Adding Records (INSERT) 

The INSERT function places a new record into the file or overwrites a previously 
deleted record. This fiinction is not preceded by a GETUP function. The first byte of 
data in the record being inserted must not contain a deleted record value of X'FF. 

An INSERT function using a previously deleted record slot removes the delete control 
character. You can change the RECORD-LENGTH field for variable-length records in 
MIRAM files only. The INSERT function for MIRAM files can also overwrite 
nondeleted records. 

The COBOL and BAL formats for the INSERT function call are: 

• COBOL format 

CALL 'INSERT' USING filename record-area record-number. 

• BAL format 

fCALL 1 I NSERT,(filenanie,record-area[, record-number]) 
\2G#CALLJ 

INSERT functions issued to a relative file must supply a record-number parameter. If 

you configure MIRAM files with RCB=NO, any record you add to a relative file must 

be assigned a relative record number one higher than the last record in the file. This 

prevents the occurrence of erroneous data between the last record and the new ^ 

inserted record. You may insert records within or beyond the limits of nonindexed ( J 

MIRAM files; file extension is permitted. ^-^ 
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CALL 'INSERT' USING FIL-A REC-A 

Given: rec-no = 3 

CALL 'INSERT' USING FIL-A REC-A 

Given: rec-no = 6 
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5.8. Sequential Functions for Relative Files 

Sequential function calls SETL, GET, and ESETL: 

• Set a nonindexed MIRAM file into sequential mode and position it to a selected a 
location in the file 

• Retrieve records sequentially 

• Reset the file from sequential mode to random mode 

Sequential functions cannot be processed by the direct access method (DAM). 

For error status codes resulting from the execution of each of the sequential I/O 
functions, see Table D-1. 

When accessing a relative file sequentially, action programs must first set the file into 
sequential mode via the SETL ftmction. During this time, files are accessed 
exclusively by the transaction that set the mode. Requests by other transactions for 
sequential or random mode functions are queued for later processing. 

Sequential mode exists imtil your program requests an ESETL function or until the 
current action terminates. In either case, the indexed file returns to random mode. 

Note: Shared file access among transactions is done only in random mode. The use 
of sequential mode by one transaction can significantly degrade the response 
time for other transactions accessing the same file. 

5.8.1. Setting Relative Files from Random to Sequential Mode (SETL) 

The SETL function sets a relative file into sequential mode and logically positions the 
file as follows: 

Value Meaning 

B Beginning of file 

G Greater than or equal to the record number supplied 

K Equal to record number supplied 

H Greater than record number supplied 

The value of the position parameter determines the logical position of the file at 
completion of the SETL function. Relative files start at position 1. You can reissue the 
SETL function any time you wish to change the sequential position of the file. 



c 



V_^'' 



5-32 UP-9207 Rev. 2 



Processing Data Files 



C 



The COBOL and BAL formats for the SETL function call are: 
• COBOL format 



CALL 'SETL' USING filename positionCrecord-number]. 

• BAL format 

fCALL 1 SETL, (filename, position!, record-number]) 
\ZG#CALLJ 

You must supply a file name and choose a position value on the SETL function for 
relative files. The record-number parameter is not used with the B position value. 
When G, K, or H is specified for position, record-number must be specified. 



D 



CALL 'SETL' USING FIL-A S IMS-REC-NUMBER. 
GIVEN: IMS-REC-NUMBER has value of 3. 

IMS-REC- 
NUMBER 



IMS POINTS HERE 

AFTER THE 
SETL FUNCTION. 





DATA 


"'2- 


DATA 


.■3. , 

1" . 


DATA * 


'\ '4'/' 


DATA 


, '^* ' 


DATA 


6 


DATA 



* If record number 3 was logically deleted, 
IMS still points to record number 3 after 
the SETL function; however, on the next GET 
function, IMS retrieves the following record. 



When any error occurs on a SETL function, the file is reset to random mode and any 
file locks in effect are released. For further sequential processing, you must issue 
another SETL function call. 
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5.8.2. Reading Records Sequentially (GET) ^ 

The sequential GET function retrieves the next logical record in sequential order 
unless the record is marked logically deleted (that is, X'FF in the first bjiie). If the 
record is marked logically deleted, the GET function retrieves the following record. If 
DELETP=YES is configured, IMS retrieves logically deleted records as normal data. 

The COBOL and BAL formats for the sequential GET function call are: 

• COBOL format 

CALL 'GET' USING filenane record-area. 

• BAL format 

{CALL 1 GET, (filename, record-area) 
ZG#CALLJ 

Filename and record-area parameters are required. 

When an invalid request error occurs on a sequential GET function, the file is reset to 
random mode and any file locks in effect are released. 

5.8.3. Setting Files from Sequential to Random Mode (ESETL) 

The ESETL function changes the mode of relative files from sequential to random. If a 
file is in the sequential mode for a transaction and you do not issue an ESETL 
function before termination of the current action, IMS resets the file to random mode. 
The ESETL function always requires a filename parameter. 

The COBOL and BAL formats for the ESETL function call are: 

• COBOL format 
CALL 'ESETL' USING filenane. 

• BAL format 
ilename) 



[call 1 ESETL, (fi I 
[ZG#CALLJ 
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5.9. Accessing Sequential Disic and Tape Files 

The sequential and multiple-indexed random access methods (SAM and MIRAM) 
process function calls issued by your action program to sequential disk or magnetic 
tape files. A sequential MIRAM disk file is defined in the configurator FILE section as 
MODE=SEQ. 

Only two functions, GET and PUT, are issued to sequential files. You can't use the 
same SAM or the same sequential MIRAM file for both input and output. (These files 
are defined individually in the configurator FILE section as input files or output files.) 
Input files may only be accessed by the sequential GET function. For output files, only 
the sequential PUT function is used. 



^ia^,,,..-^ 



CONFIGURATION: 

FILE g^p FILETYPE=DMRAM OUTPUT=NO MOD=SEQ 



INPUT 
FILE 



FILE 



FILETYPE=DMRAM OUTPUT=YES MOD=SEQ 



OUTPUT 
FILE 



ACTION PROGRAM: 

CALL 'GET' USING ,RI!:>Av REC-A. 



CALL 'PUT' USING ■ 



I REC-B. 



For error status codes resulting from the execution of each of the following sequential 
I/O functions, see Table D-1. 
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5.9.1. Reading Records (GET) 

The sequential GET function retrieves the next logical record in sequential order. 
Every record in the file is accessible regardless of contents. The first record of a 
sequential file retrieved in an IMS session is always the first record of the file. 

The COBOL and BAL formats for the sequential GET function call are: 

• COBOL format 

CALL 'GET' USING filename record-area. 

• BAL format 

("call 1 GET, (filename, record-area) 
[ZG#CALLJ 

Filename and record-area parameters are required on the GET function. 

5.9.2. Writing Records (PUT) 

The sequential PUT function writes fixed- or variable-length logical records to 
sequential files on tape or disk. Filename and record-area parameters are always 
required on this function. 

When writing to a MIRAM sequential file, the records are appended to the end of the C / 

file, thus extending it. If you plan to write a new file, use the INIT parameter on the ^""^ 

LFD statement for this file. 

The COBOL and BAL formats for the sequential PUT function call are: 

• COBOL format 

CALL 'PUT' USING filename record- area. 

• BAL format 

fCALL 1 PUT, (filename, record-area) 
[ZG#CALLJ 
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5.10. Accessing Defined Files 



Defined record management services requests from action programs to retrieve and 
update the records of defined files. An action program can call upon the random access 
functions GET, GETUP, PUT, DELETE, and INSERT and also the sequential access 
functions SETL, GET, and ESETL. In response, IMS places defined records into (and 
takes them from) the record area named in the I/O f imction call. 

A transaction can access only one defined file during a given action ~ the file that was 
allocated before the beginning of the action. One action of a transaction can select a 
defined file not allocated to it and designate that the selected file be allocated to the 
succeeding action. (See the description of the DEFINED-FILE-NAME field in 3.13.) 

During a given action, a transaction can access only one defined file but can also 
access ISAM, SAM, DAM, or MIRAM conventional files if they are not referenced by 
the defined file. Access standard files by using the I/O function call formats pertaining 
to them. 



o 



o 
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5.11. Constructing Function Calls to Defined Files 

Certain rules apply to defined files and to the parameters accompanying the function 
calls for them. 

5.11.1. Function Call Positional Parameters 

I/O function calls to IMS defined record management use filename, position, key, and 
record-area parameters. 

Filename is a data name (COBOL) or storage location (BAL) that contains the l-hy\& 
defined file name or subfile name assigned to this action. 

Position is a data name or storage location containing the value B, G, or H that 
determines which defined record is returned by the first execution of the GET call 
following the SETL function call. 

Key is a data name or storage location that contains the identifier of a defined record. 
An identifier consists of one or more segments. 

Grenerally, action programs access a defined record via a single identifier. 



c 



CALL 'GET' USING FIL-D REC-D 



MYKEY 



REC-TEXT 



IDENTIFIER" DATA 



DEFINED RECORD 
SINGLE IDENTIFIER 



\«_^ 



There are instances when your program needs to access a defined record that contains 
an identifier with multiple segments. 

A segment must be delimited by an end-of-segment character (3D^^), unless the 
segment contains the maximum number of characters defined for it, in which case this 
character is optional. Every segment must contain at least one character. 

The entire identifier must be delimited by an end-of -identifier character (3E^^). The 
ignore character (3F^^) can appear any number of times within the identifier and is 
always ignored. It is used for editing input messages that contain characters not 
needed by your action program. 
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MYKEY 

— f— 



ABC 



DEF 



GHI 



DATA 



SEG-1 



SEG-2 



SEG-3 



X'3D' 
END-OF- 
SEGMENT 



X'3D' 
END-OF- 
SEGMENT 



X'3E' 

END-OF- 

IDENTIFIER 



MULTIPLE -SEGMENT IDENTIFIER 



When this happens, define the identifier with all its segments and separators in your 
action program linkage section. Define your key (identifier) as a group item in COBOL 
followed by the segments and separators as follows: 



01 



MYKEY. 




05 SEG-1 


PIC XXX 


05 SEP-1 


PIC X. 


05 SEG-2 


PIC XXX 


05 SEP -2 


PIC X. 


05 SEG-3 


PIC XXX 


05 SEP-3 


PIC X. 



Before issuing a function call using the key value, move the identifier segment values 
to SEG-1, SEG-2, and SEG-3, and the values '3D', '3D', and '3E' to SEP-1, SEP-2, and 
SEP-3. 

To define an identifier with multiple segments in a BAL action program, use define- 
storage and define-constant statements. 



10 



16 



MYKEY 


DS 
ORG 


CL1 


SEG-1 


DS 


CL3 


SEP-1 


DS 


XL1 


SEG-2 


DS 


CL3 


SEP-2 


DS 


XL1 


SEG-3 


DS 


CL3 


SEP-3 


DS 


XL1 



Record-area is a data name or storage location that designates the area into which a 
defined record is moved by IMS on an input f imction, or from which a defined record is 
passed to IMS on an output function call. This area must be big enough to contain the 
entire defined record, including item status bytes. 
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5.12. Processing Defined Records 

In response to a function call, IMS uses the TYPE statement of the data definition to 
determine the type of defined record involved in the call. IMS returns the record type 
to the action program in the program information block's DETAILED-STATUS-CODE 
field (ZG#PDSC) redefined in COBOL as the RECORD-TYPE field. IMS returns the 
requested record type in the DELIVERED-RECORD-TYPE portion of the RECORD- 
TYPE field (byte 2 of the ZA#PDSC in the BAL program information block). 



c 





COBOL 
DETAILEO-STATUS-CODE 






PREDICTED -RECORD -TYPE 


DELIVERED-RECORD-TYPE 






REDEFINED AS RECORD-TYPE 

BAL 
ZA#PDSC (DETAILED STATUS CODE) 






BYTE 1 
(PREDICTED-RECORD-TYPE) 


BYTE 2 
(DELIVERED-RECORD-TYPE) 











5.12.1. Handling Record Types 

Before issuing any random GET, GETUP, or INSERT function call, the action 
program can indicate to IMS the record type it expects to receive by placing the 
desired record type in the PREDICTED-RECORD-TYPE byte of the RECORD-TYPE 
field (byte 1 of the ZA#PDSC). If IMS finds a value other than zero, it verifies the 
prediction before carrying out the retrieval or insertion. 



c 
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CALL 'GET' USING FIL-D REC-D MYKEY. 



SEARCH ^^ 


PLACE VALUE 


FOR RECORD ^^ 


IN 


TYPE 'A' ^ 


DELIVERED- 


IN FIL-D ^r 


RECORD- 


FILE ^ 


TYPE 



RECORD TYPE A FOUND 



PREDICTED- 

RECORD- 

TYPE 



A 



DEllVEflCD 
RECORO- 



RETRIEVE 

[RECORD TYPE| 

A- AND 

ZERO FILL 

PREDICTED- 

RECORD- 

TYPE, 







PREDICTED- 

RECORD- 

TYPE 



DELIVERED- 

RECORD- 

TYPE 



If the predicted type is not correct, IMS does not move the requested record; instead, it 
returns a status code of 1 to the calUng program. 



HOWE 'A' TO WEOlCTeB-RECORO-TYPE. 
CALL 'GET' USING FIL-D REC-D MYKEY. 




nmm Tvre a- 







t 
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If the predicted type is correct, IMS performs the function and the PREDICTED- ^ 

RECORD-TYPE byte reverts to zero. The action program, therefore, can use the 

PREDICTED-RECORD-TYPE byte before the request to prevent an unexpected type 

of defined record from being moved to (or from) the record area. If the defined file 

contains more than one type of defined record, you are strongly advised to use this 

feature. This assures that further processing applies the correct defined record 

definition. 

When you issue the sequential function calls SETL and GET, IMS returns the record 
type of the next sequential record to the PREDICTED-RECORD-TYPE byte in the 
program information block. If the delivered record type is the parent of the predicted 
record type and you wish to skip over the current record type to the next record type, 
you can change the contents of the predicted record bj^e in your action program to 
equal the DELIVERED-RECORD-TYPE byte. The result is that IMS skips all sets 
subordinate to the current delivered record type. When one or more records in a set 
have already been delivered, you cannot change the PREDICTED-RECORD-TYPE 
hyte to skip over the remaining records of that set. 



o 
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SEQUENTIAL CALLS TO DEFINED 1 


■ILES 


DEFINED FILE 








PREDICTED RECORD-TYPE 


DELIVERED RECORD-TYPE 


PARENT-REC-A 








B 


A 




CHILD-REC-IB 








CHILD-REC-2B 


CALL 'SETL' USING FILE-D B. 

MOVE 'A' TO PREDICTED -RECORD -TYPE. 

CALL 'GET' FIL-D HYKEY. 


CHILD-REC-3B 


CHILD-REC-4B 


CHILD-REC-5B 




NOT EQUAL DELIVERED-RECORD-TYPE 


PARENT-REC-C 




'^j^ED^IJ&TcD^Rci 




^H 


CHILD-REC-1D 








CHILD-REC-2D 


CHILD-REC-3D 






CHILD-REC-4D 


THIS SKIPS FROM SET-A TO SET-C 




CHILD-REC-5D 










CHILD-REC-6D 


PARENT -REC-E 


CHIL0-REC-1F 


CHILD-REC-2F 


CHILD-REC-3F 


CHILD-REC-4F 
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5.12.2. Interpreting Status Byte Returns 

When IMS responds to a GET, GETUP, PUT, or INSERT function request, it also 
places a value in the status byte associated with each item of the defined record. 
(Status bji^s are allocated by the data definition processor and have data names in 
the format S-item-name. For sample data definition processor output listings showing 
status bytes, see the IMS Data Definition and UNIQUE Programming Guide, 
UP-9209.) You can test these values (in COBOL programs for fixed-length records but 
not variable-length records) to check the validity of individual items in the defined 
record. 

IMS returns the value X'80' in the status b)^ for all functions to indicate that the 
item was successfully delivered. 

For GET and GETUP functions, IMS returns a value of X'40' to indicate that the item 
cannot be retrieved because it is null (nonexistent). Null items contain blanks if 
alphanumeric, zeros if numeric. If IMS returns X'40' for one or more items along with 
a value of zero in the status code, it means a supplement cannot be found via the value 
in the pointer item. If returned along with a value of 1 in the status code, it means the 
key parameter points to a nonexistent primary part. See Table D-2 for detailed status 
codes when the status code is 1. 

For PUT and INSERT functions, IMS returns a value of X'20' in the item status byte, 

along with a value of 5 in the status code to indicate that the item being changed or 

added does not conform to conditions specified in the data definition. This error can be y^--. 

caused by any of the following: ( 

• The new item value does not meet VALUE statement conditions. 

• The new item value is inconsistent with the PICTURE clause in the data division. 

• A change was not permitted for this item (PUT only). 

• No new value was entered for a MUST ADD item (INSERT only). 
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If an error occturs while IMS is accessing a file, before returning control to your action 
program, IMS changes the LOCK-ROLLBACK-INDICATOR in the program 
information block to "0". This causes a rollback of any updates since the last rollback 
point. 



V.-^'' 



Table 5-4 shows status byte returns and status codes for the GET, GETUP, PUT, and 
INSERT function calls to defined files. 

Table 5-4. Status Byte Returns for Defined File Functions 



o 



Functions 


Status Byte Values 


Status Codes 


Meaning 


AIL 


X'80" 


x'sese' 


Item successfully delivered 


GET or 
GETUP 


X'40' 


X> 00001 


Supplement can't be found 
using specified pointer 




XI000V 


Key points to nonexistent 
primary part 


PUT or 
INSERT 


X'20' 


x<ee05' 


" Incorrect VALUE statement 

» Inconsistent PIC clause 

■ Change not permitted 

• Value missing for a MUST 
ADD item. 
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5.13. Random Functions for Defined Files 

I/O function calls to access defined files randomly are GET, GETUP, PUT, DELETE, 
and INSERT. During random access to defined files, IMS locks logical records 
involved in the GETUP and INSERT functions. For error status codes resulting from 
the execution of each of the following random I/O function calls, see Table D-1. 

5.13.1. Reading Defined Records Randomly (GET) 

Using a key parameter, the GET function retrieves a record from the named file and 
places the record into the record area of your action program. You cannot update or 
delete a record retrieved by a GET function. 

The COBOL and BAL formats for the GET function call are: 

• COBOL format 

CALL 'GET' USING filename record-area key. 

• BAL format 

fCALL 1 GET, (filename, record-area, key) 
[ZG#CALLJ 

5.13.2. Reading Defined Records for Update (GETUP) 

Using a key parameter, the GETUP function retrieves a record for update from the 
named file and places the record into the record area of your action program. A 
GETUP is followed by a PUT or DELETE function. No other function calls to the 
defined file can intervene. 

The COBOL and BAL formats for the GETUP function call are: 

• COBOL format 

CALL 'GETUP' USING filename record-area key. 

• BAL format 



fCALL 1 GETUP, (filename, record-area, key) 
[ZG#CALLJ 



o 
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5.13.3. Writing Defined Records (PUT) 

The PUT function writes a record that was retrieved for update back to the file. For 
the record to be effectively updated, the PUT function must immediately follow the 
GETUP function. The COBOL and BAL formats for the PUT function call are: 

• COBOL format 

CALL 'PUT' USING filename record-area. 

• BAL format 

{CALL 1 PUT, (filename, record-area) 
ZG#CALLJ 

5.13.4. Deleting Defined Records (DELETE) 

The DELETE function logically deletes a record that was retrieved for update. The 
DELETE function must immediately follow the GETUP function to effectively delete 
the record. COBOL and BAL formats for the DELETE function call are: 

• COBOL format 

CALL 'DELETE' USING filename record-area. 

• BAL format 

{CALL 1 DELETE, (filename,record-area) 
ZG#CALLJ 

5.13.5. Adding Defined Records (INSERT) 

The INSERT function enters a new record into a file. The identifier value in the key 
parameter must not already exist in the file. COBOL and BAL formats for the 
INSERT function call are: 

• COBOL format 

CALL 'INSERT' USING filename record-area key. 

• BAL format 

FCALL 1 INSERT, (filename, record-area, key) 
\ZG#CALLJ 



( 
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5.14. Sequential Functions for Defined Files ^ 

I/O function calls to access defined files sequentially include the SETL, sequential 
GET, and ESETL function calls. For error status codes resulting from the execution of 
each of the following sequential function calls, see Table D-1. 

5.14.1. Setting Defined Files from Random to Sequential Mode (SETL) 

The SETL function sets a defined file into the sequential mode and logically positions 
the file. The position parameter is a data name or storage location that contains one of 
the following values: 

Value Meaning 

B Beginning of file 

G Greater than or equal to key 

H Greater than key 

The COBOL and BAL formats for the SETL function call are: 

• COBOL format 



CALL •SETL' USING filename position [key]. 
• BAL format 

fcALL 1 SETL, (filenaiie,position[, key]) 
\ZG#CALLJ 

When the value of the position parameter is B, the key parameter is omitted. The 
SETL function always returns successful completion (status code of 0). 



V_^' 
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5.14.2. Reading Defined Files Sequentially (GET) 

The GET function retrieves the next defined record in the file in sequential order. 
The COBOL and BAL formats for the sequential GET function are: 
• COBOL format 



CALL 'GET' USING filename record -area. 
• BAL format 

{CALL 1 GET, (filename, record-area) 
ZG#CALLj 

If IMS returns a status code of (detail cycle), IMS returns a new defined record to 
your action program. The DELIVERED-RECORD-TYPE byte identifies the record 
type. 

A status code of 2 (total cycle) means that there are no more records in the current set. 
IMS returns no new defined record. The detailed status code (RECORD-TYPE) 
indicates the record type of the completed set. A status code of 2 with a detailed status 
code of indicates end of all data; there are no more sets in this defined file. 



^ftta...-^ 





DETAILED- 
STATUS -CODE STATUS -CODE 






ee 


02 


00 


00 








' 










END 

OF 

DATA 
















-J 



After IMS delivers a detail record, it also delivers all subordinate records in response 
to subsequent GET function calls. When a set of subordinate records is empty, the 
response to the GET function that requests the first record of the set is a status code of 
2 and a detailed status code (DELIVERED-RECORD-TYPE) equal to the record type 
of the empty set. 

Your action program selects the appropriate record area by interrogating the value in 
the first byte of the DETAILED-STATUS-CODE (PREDICTED-RECORD-TYPE byte) 
returned by the preceding GET or SETL function. 
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CALL 'SETL' USING FIL-A B. 



STATUS -CODE 



(RECORD TYPE) 
DETAILED-STATUS-CODE 



m 



m 



m 



PREDICTED- DELIVERED 
RECORD- RECORD- 
TYPE TYPE 



SUCCESSFUL 

SETL 

FUNCTION 



IF PREDICTED-RECORD-TYPE EQUALS 'A' 
CALL "GET' USING FIL-A REC-A 

ELSE 

CALL 'GET' USING FIL-A REC-B. 



5.14.3. Setting Defined Files from Sequential to Random Mode (ESETL) 

The ESETL function changes the mode of a defined file from sequential to random. If 
a file is in the sequential mode and an ESETL function is not performed before 
termination of the current action, IMS changes the file to random mode at action 
termination. COBOL and BAL formats for the ESETL function call follow. 



• COBOL format 



CALL 'ESETL' USING filename. 

• BAL format 



TCALL 1 
|ZG#CALLJ 



ESETL, (filename) 



c 
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5.15. Unlocking Records (UNLOCK) 



o 



The UNLOCK function releases record locks not released as a result of normal 
transaction termination or file updating. It also makes av£iilable for processing ISAM 
and MIRAM files held for a transaction pending an update. 

The COBOL and BAL formats for the UNLOCK function are: 

• COBOL format 

CALL 'UNLOCK' USING filename. 

• BAL format 

[call 1 UNLOCK, (filename) 
\ZG#CALLJ 

The UNLOCK function applies to both the lock-for-update and lock-for-transaction 
instructions imposed on DAM, MIRAM, or ISAM files. When you configure either type 
lock for these files and an update of a record is currently pending for a transaction, the 
UNLOCK fxinction aborts the update by releasing the record lock. The following lines 
of COBOL code demonstrate: 

CALL 'GETUP' USING MYFIL IMS-REC-AREA MYKEY. 

MOVE CUST-NAME TO NAME- FIELD. 
********************************************** 

* UPDATE PENDING / AWAITING PUT OR DELETE * 
********************************************** 

CALL 'UNLOCK' USING MYFIL. 



T 



Releases Lock on MYFIL 

For ISAM files, the UNLOCK function makes the file, as well as the individual record, 
accessible for processing requests from other transactions. For DAM files, the 
UNLOCK function unlocks only the individual record. The rest of the file remains 
accessible to other transactions. 

The UNLOCK function cannot be used against a file in undedicated sequential mode. 
This applies to any ISAM, IRAM, or MIRAM file placed in sequential mode following a 
SETL or SETK function. Any attempt to issue the UNLOCK function while a file is in 
undedicated sequential mode results in an INVALID FUNCTION error (0307) being 
posted in the PIB status b3i:es. 
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5.16. Processing User-Defined Printer Files ^ 

You need printer files when you have no terminal printers and want to obtain logging 
information or a listing of data on your files. 

To define printer files, specify the FILETYPE=PRNT parameter in the configurator 
FILE section. You must define them after all other user-defined files at configuration 
time. 

Three special function calls, issued by your action program, are used only for 
processing user-defined printer files: 

1 . PRINT assigns printer files to terminals. 

2. UNLOCK releases assigned printer files. 

3. BRKPT controls spooler output printing. 

All printer files are assigned by terminal. You may assign any number of printer files 
to the same terminal. 

The first time an action program successfully executes a PRINT function call, IMS 
assigns a printer file to the terminal where that action program originated. Once 
printer files are assigned to a terminal, any attempts to access those files from 
another terminal cause IMS to return an invalid request status code in the program 
information block. 

All printer files assigned to a particular terminal remain effective until: 

• Your action program issues an UNLOCK or BRKPT fixnction while executing 
from that terminal. 

• A BRKPT transaction code causes IMS to execute the breakpoint (refer to the 
IMS Operations Guide, UP-12027). 

• A transaction that uses assigned printer files is executing at a terminal and 
terminates abnormally (see the description of BRKPT function call). 

• The terminal is signed off ($$SOFF). 

• The file lock is released at normal transaction termination, when the printer file 
was assigned to a spool file at a remote location (DDP environment). 

For error status codes resulting from the execution of the PRINT, UNLOCK, and 
BRKPT function calls, see Table D-1. 
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5.16.1. Printing User Data and Controlling Forms (PRINT) 

The PRINT function prints your data and controls forms positioning. It also associates 
the file you name on the PRINT function with the printer file that IMS assigns to a 
terminal the first time your action program executes that PRINT function. 

• COBOL format 

CALL 'PRINT' USING file-name rec-area 

Crec-size [cntrl-char-area]]. 

• BAL format 

("call 1 PRINT, (file-name, rec-area 
|zG#CALLJ [,rec-size [, cntrl-char-area]]) 

The file name you specify on your PRINT fvmction call must be the same name you 
configured in the FILE section on the filename positional parameter. For more details, 
see the IMS System Support Functions Programming Guide, UP-11907. If the file 
name is not one of those you configured as a printer file, IMS returns a status code of 3 
(invalid request) and a detailed status code 7 (invalid function) in the program 
information block. 

The record area may contain only printable data. Control characters are not permitted 
in this area. 

The record size parameter is the sjnmbolic address of a 2-byte binary field indicating 
the number of printable characters moved to the I/O area. 

IMS allows up to 160 characters for record size; however, the record size CEmnot exceed 
the maximum print positions of the printer selected. If it does, the record is truncated. 

If you specify a record size less than the configured block size, IMS fills the remaining 
bj^es with spaces (X'40'). 

If you want to control forms movement without printing, specify a record size of zero. 

When you omit the record size parameter, IMS assumes a record size of 120 bytes. 

The control-character-area parameter is a symbolic address of a 1-byte field 
containing a printer device-independent control character. 

IMS supplies a control character code of X'Ol' when you omit this parameter. This 
prints one line and then spaces to the next line. 
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When you specify PRINTOV=SKIP, automatic advance to the home paper position 
occurs when an overflow condition is detected. Use this configurator specification for 
most normal printing requirements. 

Specifjang PRINTOV=f ilename (DTF mode) allows you to print either footnotes at the 
bottom of a page or advance to the home paper position to print special page headers. 

IMS returns status code 1 on a forms overflow condition. This occurs when you don't 
specify PRINTOV=SKIP but configure instead PRINTOV=f ilename (DTF mode) or 
PRINTOV=REPORT (CDM mode). 

See B.7 for a programming example of PRINT function. 

5.16.2. Releasing Assigned Printer Files (UNLOCK) 

The UNLOCK function releases the printer file assignment from the current terminal. 
This means the printer file can now be extended by action programs initiated from 
other terminals. 

• COBOL format 

CALL 'UNLOCK' USING filename 

• BAL format 

[call 1 UNLOCK, (filename) V_^^ 

[ZGiSfCALLj 

As soon as your action program issues a successful PRINT function call, IMS assigns 
the printer file and initiates a file lock. Locking prevents output from several 
terminals from being sent to the same printer file concurrently. 
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You can unlock a printer file only if the action program issuing the UNLOCK function 
is initiated at the terminal to which that file is assigned. Otherwise, IMS returns a 
status code of 3 (invaUd request) and a detailed status code of 7 (invalid function). The 
following diagram illustrates locking and imlocking of printer files. 



x_^ 
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PRINTER Fit 6 ASSIGNED TO TERMINAL 1 
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5.16.3. Starting Spooled Printer Files before Job Termination (BRKPT) ^ 

The BRKPT function allows you to unlock and start printing a spooled printer file 
before the IMS job terminates. This makes the printer file available for reassignment. 

During the breakpoint process, the current action program may continue to issue 
PEINT functions to assign and extend the current spooled printer file. 

Avoid sending output directly to printer devices. Spooling output to printer files is 
faster. 

• COBOL format 

CALL 'BRKPT' USING filename [lock-disposition]. 

• BAL format 

TCALL 1 BRKPT, (filenamet, lock-disposition]) 
[ZG#CALLJ 

The lock-disposition parameter is a symbolic address of a 1-byte field containing 
EBCDIC character H. This value indicates that, after the printer file is breakpointed, 
IMS retains the file assigned to the current terminal. 



If your printer file is not spooled, the breakpoint request is ignored and, if you 
specified the lock-disposition parameter, the file lock is held. 

The following diagram illustrates the BRKPT execution for a spooled printer file when 
the lock-disposition parameter is not specified. 
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If you omit the lock-disposition parameter, IMS releases the current printer file after 
it is breakpointed. 

When your printer files are nonspooled, a BRKPT function issued without the lock- 
disposition parameter results in an unlock operation. 

The action program that issues your BRKPT function must be initiated from the 
terminal assigned to the printer file being breakpointed. If the printer file is not 
assigned to that terminal, IMS ignores the BRKPT request and returns a status code 3 
(invalid request) and a detailed status code of 7 (invalid function) in the program 
information block. 

See B.7 for a programming example of BRKPT function. 
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5.17. File Processing Considerations ^ 

5.17.1. Opening and Closing Files 

At start-up time, IMS opens all the files you configure and, at shutdown time, IMS 
closes them. You must assign each file in the job control stream at start-up. You can 
close and reopen files from the master terminal using the master terminal commands 
ZZCLS and ZZOPN. When IMS receives these commands, it issues calls to data 
management to perform close and reopen functions. You cannot open and close files 
from your action program. For a description of ZZCLS and ZZOPN, see the IMS 
Operations Guide, UP-12027. 

5.17.2. Identifying Files to IMS 

Describe each of your data files in a FILE section of the IMS configuration. Each file 
you configure has a single file descriptor entry in the file control table. IMS uses this 
table to reference files that you access and to queue requests to each file while 
servicing each request. 

5.17.3. Dynamic Allocation of I/O Areas 

In a normal programming environment, you would allocate I/O areas to receive data 
from files and to contain changes sent back to files. In multithread IMS, these I/O 
areas are preallocated. And in single-thread IMS, they are allocated when required. 
No more than one I/O area is allocated to a file at a given time. Once allocated, an I/O 
area can be used to support multiple-file functions for a number of different 
transactions. When no function calls to a file are outstanding, IMS releases the I/O 
area to main storage management. 

5.17.4. File Sharing 

More than one transaction can share access to a file. Locking procedures for ISAM and 
MIRAM file updates make it more efficient to program more than one function call in 
one action (for example, GETUP and its corresponding fvinction call, PUT or DELETE, 
in the same action). 

The lock on a record being updated can be held from one action to another. However, 
another GETUP must be issued. It is, therefore, more efficient to update ISAM or 
MIRAM files in a single action. 
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5.17.5. Work and Record Area Considerations 

If your DAM file resides on a fixed-sector disk, OS/3 data management requires that 
the length of the I/O area be some multiple of 256 bytes and half-word aligned. To 
achieve device independence across disk subsystems, so that your program can access 
a DAM file on any disk used under OS/3, the same is true ~ I/O areas should be 
multiples of 256 bytes in length. 

To ensure device independence in a BAL or COBOL action program that accesses 
DAM files, you should ensure that the record-area parameter of any IMS function call 
(GET, GETUP, PUT, DELETE, or INSERT) refers to an area whose reserved length is 
some multiple of 256 bytes on a half-word boundary. 

There are other considerations (such as record or block length, and the track capacity 
of the disk subsystem in use) to keep in mind in establishing work-area and record- 
area lengths for your action programs. For further details, refer to the Consolidated 
Data Management Macroinstructions Programming Guide, UP-9979. 

5.17.6. Test IViode Effects on File I/O 

When you enter a ZZTMD terminal command to place that terminal in the test mode, 
any request to IMS to change the contents of a file are only simulated. No UPDATE, 
DELETE, or INSERT functions are performed. Control returns to the requesting 
transaction with a successful completion status code. 

You can put a terminal in the test mode after completing a transaction; that is, when 
not in an interactive mode. To revert to normal mode, use the ZZNRM terminal 
command. Test mode is used to train new terminal operators to handle update 
transactions. All terminal entries made by the operator are the same in test mode as 
in the normal mode except that no file modifications actually occur. Test mode also is 
useful in testing newly written or modified action programs that perform file 
modifications. For more details about the ZZTMD and ZZNRM terminal commands, 
see the IMS Operations Guide, UP-12027. 
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5.17.7. Common Storage Area Files 

You can increase file processing efficiency by making frequently accessed ISAM or 
MIRAM files resident in a special common storage area (CSA). This feature is 
especially useful for maintaining vital information used by many action programs. 
You must have adequate main storage to use this feature. 



c 



CONFIGURATION 
FILE 



MYFILE 



FILETYPE=ISAM 



COMMON 

STORAGE 

AREA 



MAIN STORAGE 



MrFILE 



CSA ■ 
FILE 
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You can index and access CSA files only in indexed random mode. You use GET, 
GETUP, and PUT function calls the same way as for any ISAM or MIRAM file, but 
INSERT and DELETE functions are not vaUd. CSA files are not accessible through 
UNIQUE. 

If you specify CUPDATE=YES to the configurator, IMS updates the disk as well as 
the resident file. This saves disk accesses on reads but not on writes. However, if 
you've configured CSA files and omit CUPDATE or specify CUPDATE=NO, IMS 
updates the resident file but does not update the disk file until shutdown, when the 
entire CSA file is written to disk. File locking and recovery functions are the same for 
the CSA file as for a disk file. 
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Section 6 

Sending Output Messages 

6.1 . Purpose of Output Message Area 

When an action program issues an output message, the message is normally sent from 
the output message area. 

According to application requirements, action programs can issue output messages: 

• To the source terminal, auxiliary device, or successor action program at the end of 
an action via the CALL RETUroi function 

• To the source or other terminal or auxiliary device via the CALL SEND f imction. 
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6.2. Your Action Program's Output Message Area Contents 

The output message area you describe has two parts: a 16-byte control header and a 
variable-length message text. 



OUTPUT MSG 
CONTROL HDR 



OUTPUT 

MESSACiF 

TEXT 



16 BYTES 



VARIABLE 
LENGTH 



Your program copies the appropriate COBOL or BAL message control header format 
from the IMS copy library. The second part of the output message area contains the 
output message text your program sends to a terminal, auxiliary device, or successor 
action program. 
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At action initiation, IMS sets the message text portion of the output message area to 
blanks. 

When an action terminates normally, IMS sends the output message to the source 
terminal unless otherwise specified. 



6.3. Size of Output Message Area 



The OUTSIZE parameter in the ACTION section of the configurator specifies the 
length of the output message area. The size you specify depends on whether you use 
screen format services for the action and whether you build your screen format in the 
output message area or in dynamic main storage. 

If you build a screen format in the output message area, the OUTSIZE value must be 
large enough to accommodate the screen format buffer contents including variable 
output data buffer contents, display constants, and device control characters. 

Instead of specifying an output message area length on the OUTSIZE parameter, you 
can specify a standard output message size (OUTSIZE=STAN). IMS allocates an 
output area based on your CHRS/LIN and LNS/MSG parameter values in the 
GENERAL section of the configuration. 

For formulas to calculate output message area length, see the IMS System Support 
Functions Programming Guide, UP-11907. 
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6.4. COBOL Action Program Output Message Area 

6.4.1. Output Message Header Format 

The COBOL output message header format is available in the IMS copy library under 
the name OMA for extended COBOL or imder the name OMA74 for 1974 American 
National Standard COBOL. Figure 6-1 shows the output message area control header 
format. 



01 OUTPUT-MESSAGE-AREA. 




02 DESTINATION-TERMINAL- ID 


PIC X(4). 


02 SFS-OPTIONS 




03 SFS-TYPE 


PIC X. 


03 SFS- LOCATION 


PIC X. 


02 FILLER 


PIC X(2). 


02 CONTINUOUS -OUTPUT -CODE 


PIC X(4). 


02 TEXT -LENGTH 


PIC 9(4) COHP-4. 


02 AUXILIARY-DEVICE- ID. 




03 AUX- FUNCTION 


PIC X. 


03 AUX -DEVICE -NO 


PIC X. 



Figure 6-1. COBOL Format for Output Message Area Control Header 

When you code your COBOL action program's linkage section, copy the output 
message area control header format into your action program from the IMS copy 
library using a COPY verb. Once you copy the output message control header from the 
IMS copy library, your program can access any of these control fields by referencing 
them in the procedure division. 






6.4.2. Output Message Text Description 

The output message text description immediately follows the output message control 
header format copied from the IMS copy library. Describe the output message text 
fields your program issues to a terminal, auxiliary device, or succeeding action 
program. Define the output message text as those data items subordinate to the 
01 -level output message area description. The shaded area in Figure 6-2 shows the 
output message area control header fields generated by the COPY verb. Fields 
immediately following the control header represent output text sent by your program. 

Note that the first 02-level item describes the device-independent control expression 
(DICE sequence) that formats the output message. (Appendix F explains this use in 
detail.) DICE control sequences are needed to position output messages unless you use 
screen format services (see Section 7). 
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OUTPUT MESSAGE AREA 

CONTROL HEADER 
1 
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■flZiiCONTINUOUSrOUTPUTjCODE ;ixPlC,XC4). .1 
02 TEXT -LENGTH' .'"^PIC 9('4)-.''Cdyp-4.:- 














02 AUXILIARY-DEVICE-ID. • V^IV.- " ■ 








83 AUX-FUKCTION' "PIC X. ' 




1 

£ 




83 AUX-DEVICE-NO PIC X. 




.INKAGE SECTION. 






1 


02 DICE-OUT. 


CONTROL 


03 FILLER PIC XX. 


CHARACTER 


03 DICE-Y PIC X. 


SEQUENCE 


03 FILLER PIC X. 




02 OUT-MSG. 




03 PAY-OUT PIC $$$9.99. 


OUTPUT 


03 LIT-OUT. 


MESSAGE 


04 FILLER PIC X(32). 


TEXT 


04 CUST-OUT PIC X(6). 


DESCRIPTION 


04 FILLER PIC X(18). 




03 NEW-BAL PIC $$$9.99 



Figure 6-2. Sample COBOL Output Message Area Description 
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6.5. BAL Action Program Output Message Area 

6.5.1. Output Message Header Format 

IMS also supplies an output message area control header format for BAL action 
programs. It is in the form of a DSECT called by a macroinstruction (ZM#DOMH) in 
your action program. Figure 6-3 shows the format of the BAL output message area 
control header. (To list the current DSECTs on your system, see Appendix H.) 



ZA#OMH 


DSECT 




* OUTPUT MESSAGE HEADER 
* 




ZA#0DTID 


DS 


CL4 


DESTINATION TERMINAL ID 


ZA#OSFSO 


DS 


0CL2 


SFS OPTIONS 


ZA#SFTYP 


DS 


CL1 


FORMAT TYPE 


ZA#SFLOC 


DS 


CL1 


FORMAT LOCATION 


* EQUATES FOR 


ZA#SFTYP & 


ZA#SFLOC 


ZA#OSFSI 


EQU 


CI' 


INPUT FORMAT 


ZA#SFDYN 


EQU 


CD' 


DYNAMIC MEMORY 




DS 


CL2 


RESERVED FOR SYSTEM USE 


ZA#CONT 


DS 


XU 


CONTINUOUS OUTPUT CODE 


ZA#OMHL 


EQU 


*-ZA#OMH 


OUTPUT MSG AREA HEADER LENGTH 


ZA#OTL 


DS 


H 


MESSAGE LENGTH 


ZA#0AUX 


DS 


CL2 


AUXILIARY-DEVICE- ID 


* EQUATES FOR 
* 


ZA#OAUX 




ZA#0NC0P 


EQU 


X'00' 


NO COP SUPPORT REQUESTED 


ZA#0C0 


EQU 


X'C3' 


CONTINUOUS OUTPUT REQ 


ZA#00IQ 


EQU 


X'C9' 


QUEUE AS INPUT FOR DEST: TCT 


ZA#OHANG 


EQU 


X'D0' 


RESERVED FOR IMS/90 SYSTEM USE 


ZA#0C0P 


EQU 


X'F0' 


COP OUTPUT REQUESTED 


ZA#0C0CP 


EQU 


X'F3' 


CONTINUOUS OUTPUT TO COP 


ZA#OPTCP 


EQU 


X'F4' 


PRINT TRANSPARENT TO COP 


ZA#OPCOC 


EQU 


X'F7' 


CONTINUOUS OUTPUT TO COP WITH 


•k 






PRINT TRANSPARENT 


* 


SS: SPACE SUPRESSION ISS: INHIBIT SPACE SUPPRESSION 


* 
* 


C: 


CONTINUOUS 


OUTPUT NC: NOT CONTINUOUS OUTPUT 


ZA#OCSPM 


EQU 


X'F3' 


3: C,SS, PRINT MODE 


ZA#ONSPM 


EQU 


X'F0' 


0: NC,SS,PRINT MODE 


ZA#OCSPT 


EQU 


X'F7' 


7: C,SS, PRINT TRANSPARENT 


ZA#ONSPT 


EQU 


X'F4' 


4: NC,SS,PRINT TRANSPARENT 


ZA#OCIPM 


EQU 


X'F5' 


5: C, ISS, PR I NT MODE 



o 



Figure 6-3. BAL Format for Output Message Area Control Header (ZA#OI\/IH DSECF/ (Part 1 of 2) 
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ZA#ONIPM EQU 


X'F2' 


2: 


NC.ISS, PRINT MODE 


ZA#OCIPT EQU 


X'F9' 


9: 


C.ISS, PRINT TRANSPARENT 


ZA#ONIPT EQU 


X'F6' 


6: 


NC.ISS.PRINT TRANSPARENT 


ZA#OCSPF EQU 


X'C1' 


A: 


C.SS.PRINT FORM (ESC H) 


ZA#ONSPF EQU 


X'D1' 


J: 


NC.SS.PRINT FORM (ESC H) 


ZA#OCSTA EQU 


X'C2' 


B: 


C.SS.TRANSFER ALL (ESC G) 


ZA#ONSTA EQU 


X'D2' 


K: 


NC,SS, TRANSFER ALL (ESC G) 


ZA#OCSTV EQU 


X'C4' 


D: 


C.SS.TRANSFER VARIABLE (ESC F) 


ZA#ONSTV EQU 


X'D4' 


M: 


NC.SS, TRANSFER VARIABLE (ESC F) 


ZA#OCSTC EQU 


X'C5' 


E: 


C.SS.TRANSFER CHANGED (ESC E) 


ZA#ONSTC EQU 


X'D5' 


N: 


NC.SS. TRANSFER CHANGED (ESC E) 


ZA#0C1PF EQU 


X'C6' 


F: 


C. IBS, PRINT FORM (ESC H) 


ZA#ONIPF EQU 


X'D6' 


0: 


NC.ISS.PRINT FORM (ESC H) 


ZA#OCITA EQU 


X'C7' 


G: 


C.ISS. TRANSFER ALL (ESC G) 


ZA#ONITA EQU 


X'D7' 


P: 


NC.ISS. TRANSFER ALL (ESC G) 


ZA#OCITV EQU 


X'C8' 


H: 


C.ISS. TRANSFER VARIABLE (ESC F) 


ZA#ONITV EQU 


X'D8' 


Q: 


NC.ISS. TRANSFER VARIABLE (ESC F) 


ZA#OCTIC EQU 


X'E8' 


Y: 


C.ISS. TRANSFER CHANGED (ESC E) 


ZA#ONITC EQU 


X'F8' 


8: 


NC.ISS, TRANSFER CHANGED (ESC E) 


ZA#ONTRM EQU 


X'D9' 


R: 


C.READ MODE 


ZA#ONTRT EQU 


X'E2' 


S: 


C.READ TRANSPARENT 


Z/WfONTSR EQU 


X'E3' 


T: 


C, SEARCH AND READ MODE 


ZA#ONTST EQU 


X'E5' 


V: 


C. SEARCH AND READ TRANSPARENT 


ZA#ONTRA EQU 


X'E6' 


W: 


C. REPORT ADDRESS 


ZA#OCTBB EQU 


X'D3' 


L: 


C.BACK ONE BLOCK 


ZA#ONTBB EQU 


X'E7' 


X: 


NC.BACK ONE BLOCK 


ZA#OCTSP EQU 


X'E9' 


Z: 


C.SEARCH AND POSITION 


ZA#ONTSP EQU 


X'E4' 


U: 


NC.SEARCH AND POSITION 


ZA#HO0 EQU 

* 


X'5B' 


$: 


NC.CLEAR ICAM QUEUE 


* EQUATES FOR Z/WOAUX+1 






ZA#0DID1 EQU 


CM' 


DEVICE = AUX1 


ZA#0DID2 EQU 


C'2' 


DEVICE = AUX2 


ZA#0DID3 EQU 


C'3' 


DEVICE = AUX3 


ZA#0DID4 EQU 


C'4' 


DEVICE = AUX4 


ZA#0DID5 EQU 


C'5' 


DEVICE = AUX5 


ZA#0DID6 EQU 


C'6' 


DEVICE = AUX6 


ZA#0DID7 EQU 


C'7' 


DEVICE = AUX7 


ZA#0DID8 EQU 


C'8' 


DEVICE = AUX8 


ZA#0DID9 EQU 


C'9' 


DEVICE = AUX9 


ZA#ODQA EQU 


X'70' 


ALL ICAM QUEUES (H, M, L) 


ZA#ODQH EQU 


X'10' 


I CAM HIGH QUEUE 


ZA#O0QM EQU 


X'20' 


ICAM MEDIUM QUEUE 


ZA#ODQL EQU 


X'40' 


ICAM LOW QUEUE 



Figure 6-3. BAL Format for Output Message Area Control Header (ZA#OMH DSECT) (Part 2 of 2) 
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To generate inline the output message control header (the macro expansion of the 
ZA#OMH DSECT), you issue the ZM#DOMH macroinstruction in your BAL action 
program. If you don't want to see the ZM#DOMH macro expansion inline, use the 
PRINT NOGEN instruction before you issue the ZM#DOMH macroinstruction. 
Though the output message control header fields are not seen in your program coding, 
they are still available and you can reference them. 

6.5.2. Output Message Text Description 

Immediately following the ZM#DOMH macroinstruction, you describe the output 
message text fields your program wants to send to the terminal, auxiliary device, or 
successor action program. Using defined-constant (DC) statements, you describe each 
field of your output message text. 

Figure 6-4 illustrates the macroinstruction that generates the output message control 
header followed by the description of output text being sent to a terminal (in this case, 
a 42-byte area containing a 4-byte control character field, the word CAPITAL, and 
space to enter the name of a state capital). Refer to Appendix B for this example in the 
full context of the IMS state capital action program. Note that PRINT NOGEN is 
specified and the ZM#DOMH macro is not expanded inline. Nevertheless, this action 
program can still access any field in the control header. 

Note that the first four bytes of OUTTEXT contEiin the device-independent control 

expression (DICE sequence) that clears the line and positions the output message on /'^ . 

the new line. (Appendix F explains their use in detail.) DICE control sequences are V^ 

needed to format output messages imless you use screen format services. 

(See Section 7.) 
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1 10 


16 72 


PRINT 


NOGEN 


*BUILD OUTPUT MESSAGE 


HVC 


OUTTEXT( 4), NEWLINE PUT DEVICE INDEPENDENT CONTROL 


* 


CHARACTERS INTO MESSAGE TO CLEAR 


* 


TO END OF LINE AND POSITION TO 


« 


BEGINNING OF NEXT LINE 


HVC 


0UTTEXT+4(L'HSGC0N1),MSGC0N1 PUT TEXT CONSTANT INTO MESSAGE 


HVC 


0UTTEXT+4+L'MSGC0N1(L' SCAPITAL), SCAPITAL PUT CAPITAL NAME INTO 


* 


MESSAGE 


♦CONSTANTS 




STATE DC 


CL7' STATE' ISAM FILENAME 


HSGC0N1 DC 


C'CAPITAL' 


NEWLINE ZOPOSC 


0,0 


I CAM PROCEDURE TO GENERATE 


* 




DICE SEQUENCE FOR NEW LINE 


* 




CONTROL WITH CLEAR 


SCAPITAL DS 


XL25 STATE CAPITAL 


- -:":,' zM#DOMH nrniMiiiiiif ' "'"'" i 


/OUTTEXT:DS'^:.> 




OUTPUT- HESSAGETTEXT AREA 







X.„--'' 



Figure 6-4. Sample BAL Output Message Area Description 
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6.6. Contents of Output Message Area Control Header 

The header format identifies the terminal that is to receive the output message, 
screen formatting options (if used), continuous output code (if used), the length of the 
output message text, auxiliary function code (if used), and auxiliary device number (if 
used). Figure 6-5 shows some of the questions about output messages that the output 
message control header answers when the action program sets values in the control 
header fields. Subsections 6.7 through 6.13 describe output message header fields. 



c 



OUTPUT 

MESSAGE 

AREA 




Figure 6-5. Answers to Output Message Processing Questions 
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6.7. Identifying the Destination Terminal 
(DESTINATION-TERIVIINAL-ID) 

IMS needs to know the terminal to which it sends the output message your action 
program builds. The 1- to 4-byte value in the DESTINATION-TERMINAL-ID field 
(ZA#ODTID) identifies the terminal to which IMS sends the output message. 

If you don't move a value to this field before issuing a CALL RETURN or CALL SEND 
function, IMS assumes the source terminal to be the destination terminal. 

The destination terminal name must be left-justified and blank-filled. Also, you must 
identify this terminal in your ICAM network definition and optionally in a 
TERMINAL section of the configuration (Figure 6-6). 



ICAM Network Definition 



c 



LNE1 LINE DEVICE=(LWS) 

WS1 TERM ADDR=(312),FEATURES=(LWS),L0W=MAIN,INPUT=(YES), 
MEDIUM=MAIN,HIGH=MAIN 
LINE DEVICE=(LWS} 

ISiR=(313) , FEATyRES=CLWS) ;LOWSMmMViNPUT=(Y£S) , 
ilUM=MAIN;HIGHrMAIN , - !* . ' i 

LINE DEVICE=(LWS) 

TERM ADDR=(314),FEATURES=(LWS),L0W=MAIN,INPUT=(YES), 
MEDIUM=MAIN,HIGH=MAIN 
LNE4 LINE DEVICE=(LWS) 

WS4 TERM ADDR=(315),FEATURES={LWS),L0W=MAIN,INPUT=(YES), 
MEDIUM=MAIN,HIGH=MAIN 




IMS Configuration 



TERMINAL WSI^ UNS0L=ACTI0N 

TERmTnaT WS3 " UNS0L=Act ION 
TERMINAL WS4 UNSOL=ACTION 
TRANSACT MENU ACTION=JAMENU 
TRANSACT SIGN ACTION=JASIGN 
ACTION JAMENU CDASIZE=1024 
OUTSIZE=4096 



ACTION 



EDIT=NONE MAXSIZE=12000 
WORKSIZE=1024 
FILES=SYSCTL,CUSTMST,XREF1,XREF2 
JASIGN CDASIZE=1024 EDIT=NONE MAXSIZE=12000 



c 



Figure 6-6. Identifying tlie Destination Terminal to ICAM and the Configurator 
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The most common use of the DESTINATION-TERMINAL-ID field is to send an 
output message to a terminal other than the source. Place a value in the 
DESTINATION-TERMINAL-ID field before issuing the SEND function to transmit 
the message. 

The following COBOL statement moves a terminal identification other than the 
source terminal to the output message area DESTINATION-TERMINAL-ID field. 

MOVE DEST-TERM TO DESTINATION-TERMINAL- ID. 

The terminal operator enters the value of the desired destination terminal from the 
source terminal. This value is received in the input message area and described as a 
text field (DEST-TERM) in the input message area of the program's linkage section. 
For more details, see the sample COBOL action program, BEGINl, in Appendix B, 
Figure B-24. 



c 



c 
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6.8. Specifying Screen Format Services for Output 
(SFS-OPTIONS) 

When you use screen format services for output messages and issue a CALL BUILD 
function for an input or I/O screen format, IMS places a value of I in the SFS-TYPE 
field (ZA#SFTYP). This means that IMS is to use the screen format you name on your 
BUILD function call for the following input. When the screen format is for output 
only, this field contains hexadecimal zeros. 

Each time you issue a BUILD function, IMS resets the SFS-TYPE field. To override 
an I/O format, set this field to hexadecimal zero before issuing a CALL RETURN. 
This tells IMS to use the screen format you name on the BUILD function call for 
output only. (For more information describing input-only, I/O, and output-only screen 
formats, refer to Section 7.) 

To build a formatted output message in dynamic main storage instead of in your 
output message area, move a character D (CD') to the SFS-LO CATION field 
(ZA#SFLOC), the second byte of the SFS-OPTIONS field (ZA#OSFSO). Once you've 
built the screen format in dynamic main storage, if you want to send a message from 
the output message area, first clear SFS-LOCATION by filling it with hexadecimal 
zeros before issuing the SEND or RETURN function. In a COBOL action program, you 
can do this by coding the statement: 

MOVE LOW-VALUES TO SFS-LOCATION. 

In a BAL action program, the statement 

1 10 16 



HVI ZA#$SFLOC,X'00' 

does the same thing. 

For a complete description of screen format services, see Section 7. 
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6.9. Identifying a Continuous Output Message 
(CONTINUOUS-OUTPUT-CODE) 

When you issue a continuous output message, an action program can succeed to itself 
or to another action program to continue sending output. The CONTINUOUS- 
OUTPUT-CODE field can be used to communicate between the action program that 
originated the continuous output and its successor. 

If you do not move a value into this field, IMS sets the field to zeros and when the 
program passes control to its successor, the first four bytes of input message received 
by the successor action program are zeros. Though the CONTINUOUS-OUTPUT- 
CODE field can be used, this field is not mandatory in generating continuous output. 
It can, however, be helpful to indicate the last output message sent. Set this field only 
when the AUX-FUNCTION field indicates that continuous output is desired. For a 
complete description of continuous output, see subsections 6.18 through 6.24. 



n 
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6.10. Supplying Output Message Text Length 
(TEXT-LENGTH) 

The TEXT-LENGTH field (ZA#OTL) is a binary half-word integer that specifies the 
length of the output message text. IMS sets this value to a predefined output message 
text length at action initiation, and the action program may reduce the value to reflect 
the true output message text length. This output message length control is necessary 
when your action program issues multiple output messages. If the value is set to zero 
and no output message is sent by the action program, IMS sends a default termination 
message to the source terminal. 

The predefined output message text length is specified at configuration time via the 
OUTSIZE parameter in the ACTION section. In your action program, the value you 
place in TEXT-LENGTH must include the length of the actual text plus 4 bytes for the 
TEXT-LENGTH field itself. Be sure to move this value to the TEXT-LENGTH field 
before your program sends an output message to a terminal. Figure 6-7 shows the 
logic involved in moving a message text length to the TEXT- LENGTH field in the 
output message area. 



Mi-SSiACl Itxr f>0B>1L.S 



ADD 4 BYTFS 
FLIR ffcXrilNiiIH 

nciD 



Si 



AP 



MOVE S TO TEXT-LENGTH 




Figure 6-7. Setting IMessage Text Lengtti for Output IVIessages 
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6.11. Identifying Auxiliary Devices (AUXILIARY-DEVICE-ID) 

The AUXILIAKY-DEVICE-ID field (ZA#OAUX) is a 2-byte field that indicates 
whether the output message should be sent to an auxiliary device and, if so, it 
identifies the device. You also use this field to specify printing options. 

To list the output message on an auxiliary device attached to the destination terminal, 
use each byte of the AUXILIARY-DEVICE-ID field - the AUX-FUNCTION byte 
(ZA#OAUX) and the AUX-DEVICE-NO byte (ZA#0AUX+1). 

The AUX-FUNCTION byte describes the print options used for continuous output and 
to send the output message to an auxiUary device. For AUX-FUNCTION bjd;e 
settings, refer to Table 6-2. The AUX-DEVICE-NO field specifies the number of the 
auxiliary device receiving the output message (1 through 9) as defined in the ICAM 
network definition. 

If you don't send the output message to an auxiliary device or want continuous output, 
set the entire field to binary zeros. This is the original value of the field set by IMS 
when it generates the output message area control header. Zeroing out this field 
displays or lists the output message on the primary device - the destination terminal 
with no special options. The following COBOL coding zeros out the AUXILIARY- 
DEVICE-ID field in the output message area control header: 

MOVE LOW-VALUES TO AUXILIARY-DEVICE- ID. 

6.12. Specifying Special Print Options for Auxiliary 
Devices (AUX-FUNCTION) 

You can choose numerous print options to send output messages to auxiliary devices. 
For example, to list the output message on the commimications output printer (COP) 
or terminal printer (TP) in print mode, set the AUX-FUNCTION byte to X'FO'; to list 
it in print transparent mode, set the AUX-FUNCTION byte to X'F4'. 

The AUX-FUNCTION field has another use when you send continuous output to a 
terminal rather than to an auxiliary device. For more detail, see 6.20. 



o 



c 



6-16 UP-9207 Rev. 2 



Sending Output Messages 



O 



Figure 6-8 shows the coding statements that specify continuous output to an auxiliary 
device at the primary destination terminal, or continuous output in print transparent 
mode at a communications output printer attached to the first auxiliary device 
configured at that terminal. 



CREATE - CONT I NUOUS- OUTPUT . 

IF COP -OUTPUT NOT EQUAL TO 'COP' 
HO VE 'C TO AUX-FUNCT I ON 

MOVE CURRENT -CONT -CODE TO CONTINUOUS-OUTPUT-CODE. 



o 



Figure 6-8. Specifying Output to an Auxiliary Device 

For an explanation of print mode, print transparent mode, space suppression, and 
other print options, see 6.20; also, refer to Table 6-1 for a summary of the AUX- 
FUNCTION byte settings. 

6.13. Naming Auxiliary Devices (AUX-DEVICE-NO) 

When you send an output message to an auxiliary device, you must identify its 
number in the AUX-DEVICE-NO byte of the AUXILIAEY-DEVICE-ID field. The 
value you place in this b3fte must be a number from 1 to 9. This number identifies the 
auxiUary device number appended to the AUX operand of the TERM macroinstruction 
in your ICAM network definition. (See the IMS System Support Functions 
Programming Guide, UP-11907. 

If you send an output message to an auxiliary device attached to the destination 
terminal as shown in Figure 6-8, the network definition must contain a TERM 
macroinstruction with an AUX operand appended with the same value placed in the 
AUX-DEVICE-NO field. The following portion of a network definition shows the AUX 
operand with the appended number: 



MOVE 

1 



TO AUX-DEVICE-NO. 
10 16 



72 



TRM1 



TERM ADDR=(29,52), 

FEATURES=(U400,1920), 

► AUXB=(TP, 77), 

HIGH=MAIN, 

MEDIUM=MAIN, 

L0W=DQFILE1 
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6.14. Sending a Message at the End of an Action 

Normally, action programs send messages from the output message area to the 
designated terminal when you issue the RETURN fimction at action termination. This 
output can be: 

• Displayed on the source terminal or the terminal indicated by the 
DESTINATION-TERMINAL-ID field 

• Listed on an auxiliary device attached to the source terminal or destination 
terminal 

• Printed as continuous output at the source terminal or on an auxiliary device 
attached to the source terminal (see 6.11) 

• Queued as input to a successor action program terminating in delayed internal 
succession 
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6.15. Sending Additional {Messages (SEND Function) 

Sometimes you may want to issue more than one message during an action, or you 
may want to send a message to a terminal other than a source terminal. This is called 
switched output. To issue multiple or switched output messages, use the SEND 
function call. 

6.15.1. Transmitting iVIessages via the SEND Function 

The SEND function transmits messages to a terminal other than the source terminal 
or multiple messages to the source terminal. It can also initiate a transaction at 
another terminal via output-for-input queueing (described in 6.26); however, when you 
issue a SEND function for both output-for-input queueing and switched output from 
the same action program, IMS returns a status code of 6.|^ and a detailed status code 
of 2^^ indicating that these two operations are not permitted in the same procedure. 

In addition, the SEND fvinction can designate the master terminal as the destination 
for messages without naming the master terminal in the program. This is useful for 
sending error messages to the master terminal when the source terminal can't handle 
the error. In the case where there are multiple master terminals, the message will be 
sent to the first master terminal in the IMS-MT configuration. 

The COBOL and BAL source formats for the SEND function call are: 

• COBOL format: 

CALL 'SEND' USING output-buffer [master]. 

• BAL format 

("call 1 SEND, (output-buffer [.master]) 
[ZG#CALLJ 

The output-buffer parameter refers to a data-name (COBOL) or storage area (BAL) 
where the output message is built. This area must contain an output message header 
and text. The output buffer doesn't have to be the output message area described in 
the linkage section. You can send an output message from the work area or other 
interface area. This area, however, must be aligned on a full-word boimdary. 
Subsection 6.17 discusses the use of a work area to build output messages and 
explains how to send output messages from a work area. 
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The master parameter refers to a data-name or storage location that contains the 
value TVI' indicating that this message is sent to the master terminal. 

Figure 6-9 illustrates COBOL coding to send an output message to the master 
terminal. 
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ACTION PROCJRAM 



WORKING 
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OUTPUT 
MESSAGE 
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MASTER 
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IMS 



• OUTPUT 
MESSAGE 
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WORKING-STORAGE-SECTION. 

ICiX- -RVALUE 'MW: 



PROCEDURE DIVISION. 
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CALL 'SEND' USING OUTPUT-HESSAGE-AREA 



Figure 6-9. Sending an Output Message to the IVIaster Terminal 

When the data-name referenced does not contain the value M, IMS returns a status 
code of 3 (invalid request) and a detailed status code of 3 (incorrect parameter value) 
to the program information block of your action program. 

When you omit this parameter, IMS sends the message to the terminal specified in 
the DESTINATION-TERMINAL-ID field of the output message area, or to the source 
terminal when DESTINATION-TERMINAL-ID is not specified. 

Figure 6-10 illustrates the COBOL coding to send an output message to a destination 
terminal. 
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CALL 'SEND' USING OUTPUT -MESSAGE -AREA. 

Figure 6-10. Sending an Output IVIessage to a Destination Terminal 

You can send a message to the system console or master workstation if console 
support is configured. To send a message to the console or master workstation, enter 
the name ICNS in the DESTINATION-TERMINAL-ID field. When you send a 
message to the console, your message may not exceed 120 characters. For more 
information about the system console and master workstation, see 6.29. 

IMS does not send an output message to the designated terminal until the successful 
termination of the current action. After IMS moves the output message from the 
output message area and writes it to the output message queue, control returns to the 
statement following the CALL SEND statement. 

If the transaction terminates abnormally or is canceled in the current action, IMS 
deletes from the queue all output messages generated in the action and does not 
deliver any messages to the terminal. Instead, it sends a message to the source 
terminal indicating the reason for termination. 
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To use the SEND function, you must specify the UNSOL=YES parameter in the 
OPTIONS section of the configurator. In your ICAM network definition, you must: 

1 . Specify FEATURES=(OUTDELV) on the CCA macroinstruction. 

2. Create three queues for each terminal (LOW, MEDIUM, and HIGH operands on 
the TERM macroinstruction). 

3. Create at least one process file (PROS macroinstruction). 

4. If a global network, create a static session for each process file in the SESSION 
macroinstruction. 

If you use the SEND function frequently, you should specify disk queueing. Refer to 
the IMS System Support Functions Programming Guide, UP-11907. 
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6.15.2. Returns from the SEND Function 



After executing a SEND function, IMS notifies the action program whether the 
request succeeded or failed by placing binary values in the STATUS-CODE and 
DETAILED-STATUS-CODE fields of the program information block. Table 6-1 shows 
status and detailed status codes IMS can return after unsuccessful completion of the 
SEND f tinction. 

Table 6-1. Status Codes and Detailed Status Codes Returned after the SEND Function 






STATUS -CODE 
(Decimal) 


DETAILED -STATUS -CODE 
(Decimal) 


Description 







Successful 


3 


3 


Paraneter error 


3 


12 


UNS0L=YES or CONTOUT=YES was not configured, or 
no process files were created in ICAM network 
definition. 


6 


2 


Returned when output -for -input queueing is 
recreated and: 

1. Destination terminal is in interactive mode 

2. Destination terminal has an input message on 
queue 

3. ZZHLD or ZZDWN comnand was entered for 
destination terminal 

4. Destination terminal is marked physically down 
to ICAM 

5. IMS cannot allocate a main storage buffer 
(multithread only); INBUFSIZ specification 

inadequate 


6 


3 


Destination terminal physically or logically 
down; message queued 


6 


4 


Invalid destination terminal, auxiliary device, 
or auxiliary function specified 


6 


5 


No ICAM network buffer available 


6 


6 


Disk error or recoverable system error on output 
message to console 


6 


7 


Invalid length specification 
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IMS returns a status code of 6 and a detailed status code of 2 only when you use the 
SEND function to initiate a transaction at another terminal (output-f or-input 
queueing). The conditions causing this error are not permanent. The output message 
header is valid, and you may be able to retransmit the same message successfully at a 
later time. 

Some of the conditions causing a detailed status code of 3 (with status code 6) are the 
same as those for a detailed status code of 2. However, this error is returned when you 
use the SEND function for message switching, not output-f or-input queueing. In this 
case, the message sent is queued for the destination terminal and is automatically 
transmitted when the terminal is operational. 

If you configure ERET=YES, the action program regains control at the instruction 
after the SEND function call and must interrogate these status bytes. If you don't 
configure ERET=YES, the program does not regain control if the SEND function is 
unsuccessful and IMS abnormally terminates the program. At this time, IMS also 
sends a 3-Une transaction termination message to the system console. Transaction 
termination messages are documented in the System Messages Reference Manual, 
UP-8076. 
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6.16. Clearing IMS Output Messages from ICAM Queues 

Due to hardware malfunction or program errors, ICAM queues may contain IMS 
output messages that are imdeliverable. This may utilize excess ICAM resources and 
ICAM error recovery could occur. 

You may delete or clear the IMS output messages from the ICAM queue(s) by using 
the CALL SEND queue clear option. 

To delete the messages from the queue, set the AUX-function byte 2*A#0AUX to a C'$' 
or X'5B' and the AUX-DEVICE-NO ZA#0AUX+1 value for the queue to clear. The 
following is a list of values to clear the queues: 

Values to Clear ICAM Queues 

All ICAM Queues za#odqa equ X'7e' 

ICAM High Queue za#odqh equ x'le* 

ICAM Medium Queue za#ooqm equ X'20' 

ICAM Low Queue 2A#odql equ x'40' 

To clear the ICAM low queue for the terminal executing your transaction: 

• COBOL example 

hove "$" TO AUX-FUNCTION. 
MOVE LOU TO AUX-DEVICE-NO. 
CALL 'SEND' USING output -buffer. 

• BAL example: 

NVI ZA#0AUX,ZA#0DEQ 
MVI Z)W0AUX+1,ZA#0DQL 

[call 1 SEND, (output-buffer) 
LZG#CALLJ 

The output-buffer parameter refers to a data-name in COBOL or a storage area in 
BAL where the output message is built. 
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6.17. Using a Work Area to Build Output Messages 

When you use the SEND function you can use the work area or other interface area in 
the activation record to build your output message. If you decide to use the work area, 
you must configure the work area size via the WORKSIZE parameter in the 
configuration ACTION section. IMS does not generate a work area without this 
parameter. You describe the work area in your action program's Unkage section. 

The length of the work area in multithread IMS equals the WORKSIZE length 
configured, plus the work area increment (WORK-AREA-INC) length specified by the 
preceding action. In single-thread IMS, the work area length equals the WORKSIZE 
length configfured. The WORK-AREA-INC value is not supported in single-thread 
IMS. 

You can build output messages in four areas in your action program. The output 
message area is most commonly used. In addition, you have the convenience of 
building output messages in the work area or continuity data area. If you don't need to 
save the previous contents of the input message area, you can even build an output 
message there. 

The important difference is that when you build your output message in the output 
message area, you may use the CALL RETURN function to transmit the message. On 
the other hand, you must use the SEND function to transmit messages built in any 
area other than the output message area. 

When you issue a SEND function to transmit an output message from the output 
message area or any other area, you must be sure to use the same name you use for 
the output-buffer parameter in your SEND fimction call as you use for the output 
message description in your work area or continuity data area. This tells IMS where 
to go to find the output message you are sending. 

When sending an output message from any area other than the output message area, 
you must code your own output message header. You can't use the IMS copy library 
when creating the OMA header in a section other than the output message area. 
Figure 6-11 shows the COBOL coding to send a message to the master terminal from 
the work area. 



o 






6-26 UP-9207 Rev. 2 



Sending Output Messages 



WORKING- STORAGE SECTION. 

77 MAST-TERM PIC X VALUE 'M'. 


LINKAGE SECTION. 


01 WORK -AREA. 

03 DESTINATION-TERMINAL- ID PIC X(4). 
03 SFS-OPTIONS PIC X(2). 


03 OUTPUT-TEXT- 1 PIC X(50). 


PROCEDURE DIVISION 


PARA-X. 

CALL ^IB USING ODfPUTrMSG MAST-TERM. 




■ output -I 

1 TEXT-1 1 


MASTER 
TERMINAL 


/ 




\ 





Figure 6-11. Sending an Output Message from the Worit Area 
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6.18. Generating Continuous Output C 

When you want to print lengthy reports at a terminal or auxiliary device attached to a 
terminal, the continuous output feature is very useful. 

By generating continuous output you can transmit a series of output messages to a 
terminal, or more commonly to an auxiliary device attached to a terminal, without 
operator intervention. 

To use this feature, you must specify CONTOUT=YES in the OPTIONS section of 
your configuration. 

You also must define an ICAM network that supports unsolicited output. (ICAM 
requirements are discussed in 6.16.) 

Continuous output can be used in batch processing mode - online for production or 
offline for listing ~ as well as in interactive mode. 

6.19. Devices That Can Receive Continuous Output 

Action programs can direct continuous output to hard-copy terminals or to auxiliary 
devices (printer, tape cassette, or diskette) at display terminals. For a complete hst of 
terminals and auxiliary devices supported by IMS, see the IMS System Support 
Functions Programming Guide, UP-11907. 

6.20. Coding for Continuous Output 

To distinguish continuous output messages from other output messages, an action 
program must move a specific value to the AUX-FUNCTION field (ZA#OAUX) of the 
output message area header. When the program terminates, IMS checks this field and 
recognizes that the program generated a continuous output message. 

If that message goes to an auxiliary device rather than a terminal, the program must 
also move a value to the AUX-DEVICE-NO field (ZA#0AUX+1) of the output message 
header. This value tells IMS which auxiUary device (1 through 9) receives the 
continuous output message. Remember to assign a unique number to each auxiliary 
device when you define your communications network. 

Table 6-2 summarizes the settings for the AUX-FUNCTION field when your action 
program transmits continuous output to a terminal or to an auxiliary device. Note 
that you can use these print and transfer options to transmit messages to auxiliary 
devices for normal output as well as continuous output. 
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Table 6-2. Settings for Auxiliary Function Byte of Output Message Header 
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Devices 


Input/Output Options 


Contents of AUX- FUNCTION Field 


Pr imary 


Auxiliary 


Nane 


Space 
Suppression 


Inhibit 

Space 

Suppression 


Continuous Output 


No Continuous Output 


Hex 


Character 


Hex 


Character 


X 










C3 


C 


M 






X 


Print Mode 


X 




F3 


3 


F0 


e 




X 


« 


5 


F2 


2 


Print Transparent 


X 




F7 


7 


F4 


4 




X 


F9 


9 


F6 


6 


Print Form (ESC H) 


X 




CI 


A 


D1 


J 




X 


C6 


F 


D6 





Transfer All 
(ESC G) 


X 




C2 


B 


D2 


K 




X 


C7 


G 


07 


P 


Transfer Variable 
(ESC F) 


X 




C4 


D 


D4 


M 




X 


C8 


H 


D8 


Q 


Transfer Changed 
(ESC E) 


X 




C5 


E 


D5 


N 




X 


E8 


Y 


F8 


8 


Read 






D9 


R 






Read Transparent 






E2 


S 






Search and Read 






E3 


T 






Search and Read 
Transparent 






E5 


V 






Report Address 






E6 


U 






Backward One 
Block 






D3 


L 


E7 


X 


Search and 
Position 






E9 


Z 


E4 


U 


X 




Clear ICAM Queue 










5B 


$ 
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6.20.1. Directing Continuous Output to a Terminal v_ 

To send continuous output to the terminal (primary device), move the character C or a 
hexadecimal C3 to the AUX-FUNCTION field (see Table 6-2). The following COBOL 
statement will send continuous output to the terminal: 

MOVE 'C TO AUX-FUNCTION. 

In a BAL action program this statement does the same thing: 

1 10 16 



HVI ZA#OAUX,ZA#OCO 

6.20.2. Directing Continuous Output to an Auxiliary Device 

When transmitting continuous output to a printer, cassette, or diskette auxiliary 
device, you must also set the AUX-DEVICE-NO bjrte. The value you move to the AUX- 
DEVICE-NO field indicates the number configured for that auxiliary device. Each 
auxiliary device attached to a terminal has a specific number as defined in the 
communications network definition. 

6.20.3. Print Transparent Mode 

The print transparent mode is a commonly used option. In this mode, although the 
continuous output message generated goes through the logic of the primary device, its 
format is independent of the terminal format on the screen. The device-independent 
code (DICE) sequences and field control characters (FCCs) you include to format the 
continuous output message apply. The cursor return characters normally inserted by 
the terminal are not transmitted. Thus, the length of a line written to the auxiliary 
device is independent of the line length of the screen. 

When using print transparent mode with a UNISCOPE display terminal, make sure 
that the output message generated doesn't exceed screen capacity. If it does, the 
excess lines wrap aroimd and overlay the first few lines originally at the top of the 
display. The transmitted result is a message beginning with the excess lines instead of 
the original lines. The same consideration applies to other terminals; however, their 
larger screen capacity makes wraparound less likely. 

6.20.4. Print Mode 

In print mode, the continuous output message transmitted to the auxiliary device has 
the same format as the screen - that is, cursor return characters apply. 



\^^^ 



6-30 UP-9207 Rev. 2 



Sending Output Messages 



O 



When choosing either print or transfer options, you can allow or inhibit space 
suppression (see Table 6-2). When you specify allow space suppression. ICAM 
suppresses all nonsignificant spaces in the output message. When you specify inhibit 
space suppression, ICAM changes all spaces to DCS characters, making it necessary to 
strap the auxiliary device to space when it receives a DCS character in the output 
message text. 

For instance, let's assume you want to transmit continuous output to a cassette using 
the transfer all option. You would specify hexadecimal C2 or the character B in the 
AUX-FUNCTION field. In AUX-DEVICE-NO, you would put the device number 
configured for the auxiliary device to which you are directing continuous output. The 
following COBOL coding sets these values: 

MOVE 'B' TO AUX-FUNCTION. 
MOVE 5 TO AUX-DEVICE-NO. 

To do the same thing in a BAL action program, use the following statements: 
1 10 16 



MVI ZA#0AUX,ZA#0CSTA 
MVI ZA#0AUX+1,ZA#0DID5 
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6.20.5. Other Print Options 

In addition to print and print transparent options, you can direct the following print 
options with or without the inhibit space suppression option to the UTS 400 terminal 
printers, cassettes, or diskettes. 

Note: Unless the inhibit space suppression option is specified with each of these 
print options, nonsignificant spaces are suppressed. 

• Print form (ESC H) - Sends to the terminal printer, cassette, or diskette all of the 
unprotected characters and protected characters from the start-of-entry (SOE or 
home position) to the cursor. Spaces are substituted for protected data. Field 
control characters (FCCs), are suppressed. 

• Transfer all (ESC G) - Sends to the terminal printer, cassette, or diskette all 
characters from SOE to cursor including FCC sequences. 

• Transfer variable (ESC F) - Sends to the terminal printer, cassette, or diskette 
only the variable (unprotected) characters between the SOE and cursor including 
FCC sequences. 

• Transfer changed (ESC E) - Sends to the terminal printer, cassette, or diskette 
only the changed characters (or altered fields) between the SOE and the cursor 
including FCC sequences. 
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6.21. Writing a Continuous Output Program 

Normally when an action program generates multiple output messages in one 
transaction, the terminal operator must acknowledge each message after the first by 
pressing the message wait key. However, once you identify an output message to IMS 
as continuous output, the message is transmitted to the terminal or auxiliary device 
and the successor program is scheduled to continue generating continuous output. 
There is no need for operator intervention. This is how very lengthy reports can be 
printed at an interactive terminal. 

You write an action program to generate continuous output as you would any action 
program. However, there are some special considerations. 

First, if you're transmitting continuous output to the terminal, you must move 
hexadecimal C3 or the character C to the AUX-FUNCTION field of the output 
message area header. This informs IMS at action program termination that this 
program generated a continuous output message. It is not common to direct 
continuous output to a terminal exclusively; however, it is common to direct 
continuous output to a terminal connected to a hard-copy device such as Teletype 
DCT 500. 

If you're transmitting the continuous output message to an auxiliary device attached 

to the terminal, you select the value specifying the print or transfer option you want 

and move it to the AUX-FUNCTION field. (Refer to Table 6-2 for a summary of these >^ 

options.) In addition, you must move the number configured for the auxiliary device t I 

into the AUX-DEVICE-NO field of the output message area header. The following 

COBOL coding generates continuous output to a printer using the print transparent 

option with inhibit space suppression: 

MOVE 9 TO AUX-FUNCTION. 
MOVE 6 TO AUX- DEVICE -NO. 

To do the same thing in a BAL program you can use these statements: 
1 10 16 



MVI ZA#0AUX,ZA#0CIPT 
HVI ZA#0AUX+1,ZA#0DID6 



*Tele^pe is a registered trademarl< of Teletype Corporation. 
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An action program can generate only one continuous output message. This message 
can be as large as the screen capacity of the terminal receiving the message. Of course, 
screen capacity varies depending on the type of terminal or workstation you're using. 
Whether the message is destined for the terminal or for an auxiliary device, it always 
passes through the terminal screen. If the message is larger than the screen, it wraps 
around and when it is transmitted to the auxiliary device, the beginning of the 
message is lost. 

The term "continuous output" suggests lengthy output messages. If an action program 
can produce only one continuous output message and the largest message can be only 
the size of a screen, how do you generate long messages? 

The answer is that the first program generates its continuous output message and 
names a successor program to continue generating the continuous output. In turn, 
each program names a successor, either itself or another action program until the last 
screenful of output is processed. 

Remember, each action program can generate only one continuous output message. 
However, it can reschedule itself or another program as successor to continue this 
process for as long as the application requires. 

To continue generating continuous output, an action program must: 

• Terminate in external succession by moving an E to the TERMINATION- 
INDICATOR field in the program information block 

• Move its name or another action program's name to the SUCCESSOR-ID field of 
the program information block when the program terminates 

• Pass to the successor program (via the continuity data area) any data required to 
prepare the next of the continuous series of output messages 

This is the same procedure any action program follows for naming a successor. 

The reason for specifying external succession (E) rather than other termination 
indicators is that when continuous output takes place, IMS generates a 5-character 
message that it sends as input to the successor program. This program must be 
prepared to accept that input. External succession means that the successor action 
program is ready to accept an input message. If you use any other IMS termination 
indicator, IMS abnormally terminates the transaction and does not transmit the 
generated message. 
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A final point to remember when generating continuous output is that this message ^— ^ 

must be the final message the action program creates. This means that a continuous 
output message must always be transmitted via the RETURN function when the 
action program terminates. You can't use the SEND function to transmit a continuous 
output message. 

This does not mean, however, that an action program generating continuous output 
may never use the SEND function. The program can generate as many output 
messages as it chooses before creating the continuous output message; however, you 
must transmit all previous messages using the SEND function. 



x..^ 
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6.22. The IMS Delivety Code 



Whenever an action program generates a continuous output message, its successor 
program receives a 5-chara:cter input message from IMS. The first four characters 
contain the value placed in the CONTINUOUS-OUTPUT-CODE field of the output 
message area header by the previous program. If the program didn't move a value to 
this field, it contains binary zeros. 

The fifth character of the input message is a delivery code. The delivery code indicates 
whether ICAM successfully delivered the continuous output message to its 
destination. 

The following COBOL coding moves a value to the CONTINUOUS-OUTPUT-CODE 
field: 

MOVE 3 TO AUX- FUNCTION. 

MOVE 3 TO AUX-OEVICE-NO. 

MOVE APG1 TO CONTINUOUS -OUTPUT -CODE. 

IMS returns this value plus the delivery code to the successor action program in the 
first five bytes of its input message text. 



c 



CONTINUOUS 

OUTPUT 

CODE 



ACTION PROGRAM 



t 



OUTPUT 
MESSAGE 
HEADER 



'Mmm 



DESTINATION 
TERMINAL 



MESSAGE 
RECEIVED? 



CONTINUOUS 
OUTPUT MESSAGE 



>Qno> 



SUCCESSOR 
ACTION PROGRAM 



INPUT MESSAGE 
TEXT 



k: 



▼ MSG 



SUCCESSFl 

DELIVERY 

CODE 



c 



Here the value your action program moves to the CONTINUOUS-OUTPUT-CODE 
field in its output message area is APGl. When the action program terminates, it 
transmits the continuous output message. When the destination terminal receives and 
acknowledges it, IMS schedules the successor action program and sends the value 
APGl plus the delivery code acknowledgment from ICAM as input to the successor 
program. The value APGl comes into the successor program in the first four bytes of 
the input message text. The delivery code comes into the program in the fifth b)rte. 

The other two output fields in the previous coding (AUX-FUNCTION and AUX- 
DEVICE-NO, respectively) indicate that the continuous output message generated by 
this action program goes to an auxiliary device attached to the terminal. IMS sends 
the message using print mode with space suppression. The configured number for the 
auxiliary device is 3. 
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The fifth character of the input message is one of particular interest to the successor 
action program because it contains a value indicating the status of the continuous 
output message sent by the predecessor program. IMS returns a hexadecimal value to 
the successor action program to indicate whether the continuous output message was 
successfully delivered. Tables 6-3 and 6-4 summarize the output delivery notice status 
codes that can be returned to an action program. 



jf'^"^-. 



Table 6-3. Output Delivery Notice Status Codes Returned by IMS 



Condition 


Primary Devices Addressed 


Corresponding 
Labels in 
TCS DSECT 


Hexadecimal 
Value 


Polled 


Nonpolled 


UN I SCOPE, 
UTS Devices, and 
Workstations 


DCT leee 


DCT 500 


TTY 


Successful output 
completion 


Yes 


Yes 


Yes, 

regardless 
of 
delivery 


Yes, 

regardless 
of 
delivery 


TM#TDNEM 


81 (D 


Line down or 
disconnected. 
Message deleted 
by IMS. 


Yes 


Yes 


Yes 


Yes 


TM#TDLNO 


11 


Terminal 
marked down. 
Message deleted 
by IMS. (D 


Yes 


Yes 


No 


No 


TM#TDDNA 


12 


Auxiliary 
device down. 
Message deleted 
by IMS. 
Output may be 
addressed to the 
primary device. 


Yes 


No 


No 


No 


TM#TDNAX 


4e ® 


Missing or 
invalid 

destination or 
auxiliary 
specification 
in header. 


Yes 


Yes 


Yes 


Yes 


TM#TEDST 


84 (D 


No I CAM 

network buffer 
available (f) 


Yes 


Yes 


Yes 


Yes 


TM#TENBA 


85 (D 


Disk error 


Yes 


Yes 


Yes 


Yes 


TM#TEDER 


86 (D 


Invalid output 
buffer length 


Yes 


Yes 


Yes 


Yes 


TM#TEILG 


87 (D 



continued 



V„-'' 



6-36 



UP-9207 Rev. 2 



Sending Output Messages 



Table 6-3. Output Delivery Notice Status Codes Returned by IMS (cont.) 

Notes: 

(T) A BAL action program should access the labels in the TCS DSECT instead of testing the hexadecimal values in the input 

message directly. The hexadecimal values shown in the table can change in future releases, but the DSECT labels will remain 
the same. 

(2) The hexadecimal value 81, indicating successful output completion, is translated to the character A if the lowercase-to 
uppercase translate option is specified for messages input to the successor action. Similarly, the hexadecimal values 84 
through 87, indicating error conditions, are translated to the characters D through G if the translate option is specified. 

(T) When a terminal is marked down, input solicitation (polling) by ICAM continues automatically. When ICAM receives input from 
a downed terminal, that terminal is marked up and the input is scheduled for IMS. 

(4) Refer to Table &4 for UNISCOPE and UTS 400 auxiliary device condition codes that are ORed with TM#TDNAX. 

(5) If this condition exists, a user action program can tty to resend the last continuous output message. 



Table 6-4. UNISCOPE and UTS 400 Auxiliary Device Condition Codes 



Auxiliary Device 
Condition 


Label ® 


Hexadecimal 
Value 
Equated 
to Label 


Hexadecimal 
Value When 
ORed with 

TH#TDNAX (2) 


UNISCOPE 
or UTS 400 
Auxiliary 
Status 


Ready (good) status 
but COP/TP write 
function inoperative 


TM#TDDS1 


01 


41 


1 


Device out of paper, 
inoperative, or in 
test mode 


TM#TDDS2 


02 


42 


2 


Data error on TCS 


TH#TDDS3 


03 


43 


3 


Device is not 
responding; it 
may be disconnected 
or a read of unwritten 
tape may have 
occurred. 


TH#TDDS4 


04 


44 


4 



Notes: 



(T) Your action program should access the labels in the DSECT instead of testing the value directly 
because the equate (EQU) value for each label in the DSECT can vary in future releases. The 
labels will always remain the same. 

(2) The label TM#TDNAX represents the auxiliary-devicedown condition. (Refer to Table 5-3.) 
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6.23. Recovery Considerations with Continuous Output 

Kecovery and restart processing are the responsibility of your action program. When 
the successor action program receives an unsuccessful delivery notice, it can continue 
processing continuous output or terminate the transaction. When the successor 
program continues processing, it can send a regular output message to the destination 
terminal requesting assistance and then terminate with external succession. Note that 
when a continuous output message is imsuccessfully sent to an auxiliary device, only 
that device is marked down. You can still send output to the primary device. 

After the error condition is corrected, the terminal operator can send an input 
message to the successor program to reinitiate the continuous output transaction. In 
this case, the successor program must be prepared to accept input from the 
destination terminal when necessary, as well as the delivery notice returned by IMS. 

Both operator-entered input and delivery notice input can cause attempts to schedule 
your action program. If operator input exists, IMS processes it and discards the 
delivery notice. You should, therefore, code your action program to handle keyboard 
input that can end, temporarily break, and resume a continuous output transaction. 
The best way to interrupt continuous output is to use function keys as keyboard input. 
Function keys are faster to use because they are never locked. 

When a delivery attempt is unsuccessful, there are a number of recovery options. In 
planning recovery and handling unsuccessful delivery notices, however, it's important 
to realize the difference between polled and unpolled devices. 

The DOT 1000. UNISCOPE 100 and 200, UTS 10, 20, 40, and 400 terminals, and 
workstations are polled devices and transmit an acknowledgment to ICAM after 
receiving a continuous output message. The nonpoUed devices, Teletype and DCT 500 
terminals, do not. For nonpolled devices, a delivery notice is automatically generated; 
it always indicates successful delivery regardless of whether or not the output 
message was successfully delivered. Only a line-down condition returns an 
unsuccessful delivery notice. 

Consequently, IMS almost always receives a successful completion status from ICAM 
when a message is delivered to a nonpolled device. IMS sends this delivery code to the 
successor action program which, in turn, generates more continuous output. As you 
can see, this is a situation to be avoided. So, in critical parts of continuous output 
applications, avoid using nonpolled devices. 

You can use delivery codes to recover continuous output messages when output 
message errors are detected at queueing time as well as at delivery time. Errors with 
hexadecimal values 84 through 87 (Table 6-3) are discovered at output queueing time. 
All others are detected at the time output is delivered to the terminal. 



o 
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Reasons for output message errors are: 

• A missing or invalid destination in the output message header 

• An invalid output buffer length in the output message header 

• No ICAM network buffer available 

• A disk error occurred 

If the no-ICAM-network-buff er-available status exists, your action program can try to 
resend the last continuous output message. 

6.23.1. Testing the Delivery Code in a COBOL Action Program 

When IMS returns the delivery code in the fifth byte of your action program's input 
message text, your program must test this byte to see if the continuous output 
message was delivered successfully. IMS places a hexadecimal 81 or the letter A into 
this fifth byte when a successful completion occurs. It returns the letter A 
(hexadecimal CI) when you configure the lowercase-to-uppercase translate option for 
messages input to a successor action. Otherwise, it returns the hexadecimal value 81. 
Tables 6-3 and 6-4 list the hexadecimal values for delivery codes returned by IMS. 

To test for a successful delivery code, you can set up a 77-level item in working storage 
to contain the hexadecimal value 81 or the value A (depending on the translate option 
configured) and compare the value with the value IMS returns in the fifth byte of the 
input message text. You can also compare the first 5 bytes of input message text with 
a 5-byte literal containing the value A or 81 (for example, =' A' or =' 81'). Figure 6-12 
shows the specific statements needed to test for a successful output delivery code of A. 
For a complete continuous output program example in COBOL, see the PRINT 
program in Appendix B. 

After the PRINT action program determines from a terminal input value that it will 
process a continuous output message, it processes this message by succeeding to itself 
(external succession) and testing for a successful delivery code of A in the fifth byte of 
the input message text after each screenful of output message. If the delivery code is 
successful, PRINT terminates in external succession. If it is unsuccessful, PRINT 
handles the error status code and terminates normally. When continuous output is 
completed, PRINT terminates normally. 
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DATA DIVISION. 






WORKING-STORAGE SECTION. 






^MBB^^fe!ii» 


•_. 


•.!RIp:XfVALUE\'A'-. 


LINKAGE SECTION. 






01 PIB. C0PY-PIB74. 






01 IMA. COPY IMA74. 






02 TRANS- IN. 






04 CODE 




PIC X(5). 


04 DEL-NOTICE-MSG 


REDEFINES CODE. 


08 DEL -NOT ICE 


-CODE PIC X(4). 


mTMtmm 


tm 


MM^^B^ 


04 FILLER 




PIC X. 


04 TST-NUM 




PIC X. 


04 INPUT -TEXT 




PIC X(100). 


04 FILLER 




PIC X(1813). 


01 OMA. COPY 0MA74. 






02 PRNT-LINE. 






04 DI-1 




PIC 9(4) COMP. 


04 DI-2 




PIC 9(4) COMP. 


04 OUTPUT -TEXT 




PIC X(1916). 


PROCEDURE DIVISION USING 


PIB IMA D OMA. 


START -HERE. 






IF CODE EQUAL 'PRTPO' GO TO START- IT. 


IF CODE EQUAL 'PPPP' or 


EQUAL 'TTTT' GO TO TEST -RETURN. 


IF CODE EQUAL "CCCC GO 


TO 


CONT -CONTINUE. 


IF CODE EQUAL 'STOP' GO 


TO 


TERMINATION-EXIT. 


START- IT. 






CONT-PRINT. 






TEST-RETURN. 






iaEL-NQT!CE?:STAT.US -NOT- EQUAL-s*DEL.-NOT-ICE.-Gq •JO-TERKlNATIONiEXlT. 


CONT- CONTINUE. 






MOVE 'E' TO TERM I NAT I ON - 


INDICATOR. 1 


MOVE 'BUS020' TO SUCCESSOR 


ID. 


GO TO ALL-EXITS. 






TERMINATION-EXIT. 






HOVE 'N' TO TERMINATION- 


INDICATOR. 


ALL-EXITS. 






CALL 'RETURN'. 







o 



o 



Figure 6-12. Testing for Successful Delivery Code in a COBOL Action Program 
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6.23.2. Testing the Delivery Code in a BAL Action Program 

BAL action programs processing continuous output should access the ICAM labels in 
the transaction control section (TCS) DSECT, TM#TCS. Tables 6-3 and 6-4 Kst these 
labels that correspond with the hexadecimal values equated to the delivery notice 
status codes. 

BAL action programs should generate the TCS DSECT inline and access the labels 
instead of testing the hexadecimal value directly in the input message. The reason for 
this is that these hexadecimal values are equated (EQU) for each DSECT label and 
can change in future releases; however, the ICAM DSECT labels always remain the 
same. If you access the labels, you only have to reassemble your BAL action program 
with each new release to be sure your DSECT is current; otherwise, you must change 
your code and reassemble. 

To generate the TCS DSECT inline when your BAL program is assembled, call the 
ICAM procedure, TM#DSECT, using the operand TCS. Figure 6-13 shows the 
TM#DSECT procedure and a portion of the ICAM TCS DSECT showing output 
delivery notice status codes and their labels. Also shown are the specific BAL 
statements that test for a successful delivery code in the fifth byte of the input 
message area. Note that the contents listed with each label in the DSECT indicate 
that the message is being held by ICAM; however, IMS deletes these messages from 
the queue. 

Note also that if you configure TRANSLAT=YES for the action, you cannot use ICAM 
DSECTs to evaluate delivery status codes because the codes are changed by the 
translate routine. 
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TM#TDDNA EQU 


X'12' 




TM#TDNAX EQU 


X'40' 




TM#TDDS1 EQU 

* 


X'01' 




* 

TH#TDDS2 EQU 

it 


X'02' 


PORTION OF 


* 




I CAM DSECT 


TM#TDDS3 EQU 


X'03' 


SHOWING 


* 




OUTPUT 


TM#TDDS4 EQU 


X'04' 


DELIVERY 


* 




STATUS 


* 




CODES 


TI|I#TDN?M!'EQU- 

■k 


:^-X'81J. 




TM#TDLNO EQU 


X'11' 




TM#TEDST EQU 


X'84' 




TM#TENBA EQU 


X'85' 




TM#TEDER EQU 


X'86' 




TM#TEILG EQU 


X'87' 



TERMINAL MARKED DOWN, MESSAGE HELD 

AUXILIARY DEVICE DOWN, MESSAGE HELD 

OUTPUT CAN STILL BE SENT TO PRIMARY 

UNISCOPE AUXILIARY STATUS ONE 

MESSAGE HELD, GOOD STATUS BUT READ/WRITE 

FUNCTION INOPERATIVE 

UNISCOPE AUX STATUS TWO 

MESSAGE HELD, PRINTER OUT OF PAPER, 

INOPERATIVE OR IN TEST MODE 

UNISCOPE AUX STATUS THREE 

MESSAGE HELD, TAPE CASSETTE END-OF-TAPE 

UNISCOPE AUX STATUS FOUR 

MESSAGE HELD, NO RESPONSE FROM DEVICE WHEN 

ATTEMPTING TO READ BLOCK OF TAPE 

:SUCCESSFUI;tpytPOT>fcSHl>tWliaRf 

LINE DOWN/DISCONNECTED, MESSAGE HELD 

MISSING OR INVALID DESTINATION 
NO ICAM NETWORK BUFFER AVAILABLE 
DISK ERROR OCCURRED SERVICING SVC 
INVALID OUTPUT BUFFER LENGTH 



* TEST DELIVERY CODF 

i^^gE-»4.TM#TDNEM 
BE EXIT 



EXIT 



ZM#IMH 



CODE-^l^^S^^ll 
TEXT OS CL100 



o 



x...,,^ 



Figure 6-13. Testing for Successful Delivery Code in a BAL Action Program 
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6.24. Continuous Output and Cassette/Diskette Use 

You can read and write, search, or position data on cassette and diskette auxiliary 
devices by using the continuous output feature. To do this, you must move a value to 
the AUX-FUNCTION and AUX-DEVICE-NO fields of the output message area 
header just as you do when generating a continuous output message. Table 6-2 
summarizes the settings for the AUX-FUNCTION field when reading from or writing 
data to cassettes or diskettes. 

Notice in Table 6-2 that all the options beginning with the read option, except 
backward-one-block and search-and-position, must be used with the IMS continuous 
output feature. Backward-one-block and search-and-position can be used with 
continuous output and regular output by simply moving the appropriate value to the 
AUX-FUNCTION and AUX-DEVICE-NO fields. 

6.24.1. Input Options 

There are four input options used with cassette/diskette: read, read-transparent, 
search-and-read, and search-and-read-transparent. The continuous output feature 
must be used with any of these input options. 

1. The read option reads a block of data from the cassette/diskette to the terminal 
screen. When you specify this option, do not put any message text in the output 
message area. Also, you must move the value 4 to the TEXT-LENGTH field of the 
output message area header. 

2. The read-transparent option reads a block of data from the cassette/diskette 
and the remote device handler deletes the SOE cursor sequence, carriage return 
codes, and DICE codes. 

3. The search-and-read option reads a block of data from the cassette/diskette 
only if a search argument specified in the message text of the output message 
area is satisfied. When the argument is satisfied, the block of data is moved to the 
terminal screen. Your search argument may be in one of three search and read 
modes. Table 6-5 shows the formats for these modes. When you use the search- 
and-read option, the only contents of the output message area message text 
should be the search argument in the mode you choose. 

4. The search-and-read-transparent option performs the same fimction as the 
search-and-read option except the remote device handler removes all DICE 
sequences, SOE cursor sequences, and carriage return characters from the input 
message. 
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Table 6-5. User Message Text for Searching Cassette/Diskette 



Search Argument Format 


Search Type 


Ataaaa 

or 
Itaaaa 

or 
ataaaa 


Mode search to position the tape to a partucilar 
address and then read one block, where A, 1, or 
a is constant, and: 
t 

Is the track address (1 or 2). 

aaaa 

Is the address where the tape is 
to be positioned. 


Btaaaa/c. . .c 

or 
2taaaa/c...c 

or 
btaaaa/c... c 


Mode search to position the tape to a particular 
address, search for a specific character string, 
and: 
t 

Is the track address (1 or 2). 

aaaa 

Is the block address. 

c.c 

Is the character string. Up to 
16 characters can be specified. 


Ct/c...c 

or 
3t/c...c 

or 
ct/c...c 


Mode search to find the specified character 
string, where C, 3, or c is constant, and: 
t 

Is the track address (1 or 2). 

c.c 

Is the character string. Up to 16 
characters can be specified. 

The search starts at the present 
tape position. 






The report-address option displays the address of the cassette/diskette device on the 
terminal screen. To use this option, you must also use the continuous output feature 
and must specify the value 4 in the TEXT-LENGTH field of the output message area 
header. 
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The two other options available for cassette/diskette are the search-and-position and 
backward-one-block options. Only these two input options can be used with either 
continuous or regular output messages. 

• The search-and-position option positions the cassette/diskette to the block 
requested in the search argument that your action program supplies in the 
output message text. (See Table 6-6 for formats used in describing the search 
argument.) Your output message text cannot contain any other entries. 

• The backward-one-block option repositions the cassette/diskette one block in 
reverse. The AUX-DEVICE-NO field must be set and the TEXT-LENGTH field in 
the output message area must be 4. 

Table 6-6. User Message Text for Search and Positioning 



o 



Search Argument Format 


Search Type 


atssss 

or 
otssss 


Mode search to position the tape, where: 
a, 0, or (apostrophe) is constant, 
and: 


or 
"tssss 


t 

Is the track address (1 or 2). 




ssss 

Is the address where the tape 
is to be positioned. If specified 
as eeee, the tape is rewound. 



kJ 



In addition to making the required settings in the AUX-FUNCTION and AUX- 
DEVICE-NO fields of the output message area header, you can also insert into the 4- 
character CONTINUOUS-OUTPUT-GODE field of the output message area header a 
code that identifies the continuous output message you generated. This code is 
returned to the successor program as part of a 5-character input message. If you do 
not specify a code, the first four characters of the input message generated by IMS for 
your external successor program contains binary zeros. 

The CONTINUOUS-OUTPUT-CODE field assumes special importance when you use 
any of the four input options or the report address option for cassettes and diskettes. 
When you specify one of these options, IMS returns a delivery code to the successor 
program only if the message wasn't delivered. Otherwise, there is no input to the 
successor program until a message is transmitted from the cassette/diskette via the 
terminal screen. For any terminals performing these input options, unless the 
terminal operator always presses the transmit key, no input is transmitted to the 
successor program until the AUTO-TRANSMIT feature is set on to allow data to be 
transmitted from the cassette/diskette. 
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When using a screen bypass terminal, set the control page for that terminal to take 
advantage of the autotransmit capability. If this is not done for any of these five input 
options and a successful delivery notice is returned by the cassette/diskette device, the 
screen bypass terminal stays in the interactive mode waiting for input it won't receive. 

Because a successor action program may receive as input either a delivery notice error 
or an input message from the cassette or diskette, the CONTINUOUS-OUTPUT- 
CODE specified by the predecessor action program should be distinguishable from the 
first four characters of any input message being read from the cassette or diskette. In 
this way, the successor program determines what t3^e of input message it receives 
(that is, delivery notice error or input message text) and processes it accordingly. In 
either case, the successor action program must be capable of handling both 
unsuccessful delivery notices and standard input messages. 

6.25. Initiating a Transaction at Another Terminal 

Another special capability of an output message generated by an action program is to 
initiate a transaction at another terminal. We call this output-f or-input queueing. It 
means that when an action program issues a CALL SEND, the output message 
generated by that program is queued as input to IMS for the destination terminal in 
the form of a transaction code that initiates a transaction there. 
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To use the output-for-input queueing option, specify the CONTOUT=YES parameter 
in the OPTIONS section of the IMS configuration. 
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6.26. Coding for Output-for-lnput Queueing 

You must transmit any output message that initiates a transaction at another 
terminal using a SEND function. To do this, your action program moves the 
hexadecimal value C9 or the character I to the AUX-FUNCTION field of the output 
message area header. This value tells IMS to queue the generated output message as 
input to IMS from another terminal. You identify the receiving terminal by moving its 
configured value to the DESTINATION-TERMINAL-ID field. Figure 6-14 shows the 
coding required to accomplish these functions. 



LINKAGE SECTION. 

01 PROGRAM- INFORMATION-BLOCK 



COPY PIB74. 



01 



01 



INPUT-MESSAGE-AREA COPY IMA. 
01 TEXT PIC X(100). 

OUTPUT-MESSAGE-AREA COPY OMA. 

SFS-OPTIONS 

03 SFS-TYPE 

03 SFS- LOCATION 

FILLER 

CONT I NUOUS - OUTPUT - CODE 

TEXT -LENGTH 

AUXILIARY-DEVICE- ID. 



02 



02 
02 
02 
02 



03 AUX- DEVICE -NO 
02 OUTPUT -TEXT 
PROCEDURE DIVISION 



PIC X. 
PIC X. 
PIC X(4). 
PIC X(4). 
PIC 9(4) 



COMP-4. 



PIC X. 
PIC X(100). 
USING PROGRAM- INFORMATION-BLOCK 
INPUT-MESSAGE-AREA D 
OUTPUT-MESSAGE-AREA. 



GO-CONT-OUTPUT. 

HOVE 'I' TO AUX-FUNCTION. -" • - 
MOVE 'TRM3' TO DESTlNATfON"-TERMlNAL-ID'. 
MOVE TEXT TO OUTFU^-TE'T. 
CALL 'SEND' USING OUTPUT-MESSAGE-AREA. 



Figure 6-14. Initiating a Transaction at Another Terminal 
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The only other requirement is that the output message must contain the transaction 
code that initiates the new transaction at the destination terminal. This code, and any 
other output generated along with it, is queued immediately as input to IMS for the 
destination terminal. 

If, after issuing the SEND function using output-f or-input queuing, the action 
program terminates abnormally, then the new transaction is still Initiated at the 
destination terminal. 

If the destination terminal is in interactive mode when the SEND function is executed 
(that is, an IMS transaction is already in progress) or if it already has an outstanding 
input message queued for it, the output message sent using output-f or-input queueing 
cannot cause scheduling of a new transaction. In this case, the action program issuing 
the SEND fimction receives an unsuccessful status code in the program information 
block. (See 6.29.) 

When an action program generates an output message and requests that it be queued 
as input to another terminal, IMS validates the output message area header and the 
status of the destination terminal. Any errors are indicated to the originating action 
program by values returned to the STATUS-CODE and DETAILED-STATUS-CODE 
fields in the program information block. For example, when you issue a SEND 
fimction for output-f or-input queueing and switched output message from the same 
action program, IMS returns a status code of 6^^ and a detailed-status-code of 2^^ 
indicating that it does not permit these two operations in the same action program. 

Any errors in the text of the output message (such as invalid transaction code) are not v^ 

reported to the originating action program but rather to the action program processing 
the new transaction at the destination terminal. As a result, this program must be 
prepared to handle such error conditions, and, if necessary, to report these conditions 
to the originating terminal. 

For a complete listing of error codes that IMS returns to the STATUS-CODE and 
DETAILED-STATUS-CODE fields of your action program following the SEND 
fimction, see Table 6-1. 

Generally, a program that generates output using the output-f or-input queueing 
option terminates with normal termination; however, it can specify external 
succession. It cannot terminate with delayed internal succession. 
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6.27. Output-foNnput Queueing with Continuous Output 



It is fairly common to use the output-f or-input queueing and continuous output 
features together. For instance, one transaction could create the records you want 
printed and write them to a MIRAM file. The last stage of this transaction could then 
generate an output message using output-f or-input queueing for a destination 
terminal where another transaction actually prints the records. The transaction 
initiated at the destination terminal reads the MIRAM file and prints the message as 
continuous output. See Figures B-24 and B-25 for sample COBOL action programs 
performing output-f or-input queueing and continuous output. 
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6.28. Output-for-lnput Queueing with a Screen 
Bypass Device 



Another situation where you can use output-f or-input queueing is with the UTS 400 
screen bypass device. This device is defined to the communications network as a 
logical terminal. Nevertheless, because it is physically a separate buffer that can have 
a telecommunications printer attached to it, it has no way of sending input. Thus, the 
only way to access a screen bypass device is to use output-f or-input queueing. Another 
terminal in the IMS network calls an action program to generate an output message 
that initiates a transaction at the screen bypass device. This must be a continuous 
output transaction and a report could be generated as output on a printer attached to 
the screen bypass device. 
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6.29. Sending Messages to the System Console 

Your action program can send output messages to the system console if console 
support is configured. You configure console support by specif5ang OPCOM=YES in 
the OPTIONS section of the IMS configuration or by not specifying a master terminal 
in any TERMINAL section. 

To send output to the system console, place the terminal-id ICNS in the 
DESTINATION-TERMINAL-ID field of the output message header: 

MOVE 'ICNS' TO DESTINATION-TERMINAL- ID. 

Sometimes an IMS session has a master workstation associated with it. A master 
workstation is a workstation from which the IMS start-up job control stream is 
entered, or it may be defined in the job control stream. When there is a master 
workstation and you use the destination-terminal-id ICNS, your output message goes 
to the master workstation instead of to the console. When the master workstation logs 
off or is disabled, then the message goes to the console. 

You can send normal output, multiple output, switched output, continuous output, and 
output-f or-input queueing messages to the system console. However, there are certain 
restrictions on output to the console: 



• 



You cannot send output to an auxiliary device at the system console. The only 
auxiliary function settings you can use are hexadecimal 00, C3 (continuous 
output), or C9 (output-for-input queueing). 

The maximum length of the output message is 120 characters, not including the 
output message header. Additional characters are truncated. 

Because of the message length restriction, you cannot output a screen format to 
the console. 

Output messages are not edited. DICE functions, FCCs, and other control 
characters appear as blanks, or in a few cases as printable characters. 

There is no message waiting signal. Switched output and multiple output 
messages are sent immediately. 
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6.29.1. Error Returns on Output to the Console 

IMS returns a status code of 6 and a detailed status code of 4 when you attempt to 
send output to an auxiliary device at the system console. These are tiie same codes 
IMS returns when you have an invalid destination terminal, auxiliary device, or 
auxiliary function specification on output messages to regular terminals. 

When your output message can't be delivered because the console is physically or 
logically down, the action IMS takes depends on the type of output message it 
receives: 

• With a switched message, IMS returns a status code of 6 and a detailed status 
code of 6. With a continuous output message, IMS returns a delivery notice status 
of X'86'. These codes indicate recoverable system errors. 

• With other types of output messages (such as normal output in response to input 
from the console), IMS returns a successful status code of 0. The reason IMS does 
this is that an error status would cause a "TRANSACTION CANCELLED" 
message to be sent to the console, and this could cause an abnormal termination 
of the IMS session. 



c 



c 
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Section 7 

Using Screen Format Services to Format 

Messages 

7.1. Requirements for Using Screen Format Services 

The OS/3 screen format services facility lets you display predefined formatted screens 
at terminals without tedious programming of DICE codes and other control 
characters. In addition, screen format services does validation checking of input data. 
As you know, screen formats simplify the task of data entry and are an essential tool 
in a transaction processing environment. 

To display screen formats, issue the BUILD and REBUILD function calls in your 
action program. The BUILD fimction places the predefined screen format you request 
in the action program or in a dynamic main storage area; the REBUILD function 
replenishes input fields or builds an error formatted screen. 

You can direct screen formats to any display terminal supported by IMS except the 
IBM 3270, and also to auxiliary devices attached to display terminals. You cannot 
output screen formats to hard-copy terminals. 

UNISCOPE 100 and UNISCOPE 200 terminals must have the screen protection 
feature, and UTS 400 terminals operating in native mode must have the 
PROTECT/FCC switch set to FCC and the control page set to XMIT VAR. For 
local workstations, specify a line buffer length of at least 900 words on the LBL 
operand in the ICAM network definition. 

You predefine screen formats offline using the screen format generator. (See the 
Screen Format Services Technical Overview, UP-9977.) The screen format generator 
stores the formats in the system screen format file $Y$FMT or other disk files in 
MIRAM format. The screen formats for an IMS session may reside in one or two 
screen format files. 

To use screen format services, you must generate a supervisor in consolidated data 
management (CDM) or mixed mode. However, you can configure IMS in either CDM 
or DTP mode. 
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To make screen format services available to action programs, include the SFS 
parameter in the OPTIONS section at IMS configuration, specif j^ng the maximum 
number of terminals that may use screen formats at one time. With the RESFMT 
parameter, also in the OPTIONS section, specify the number of screen formats you 
want retained in main storage between function calls. 



c 



In the job control stream at IMS start-up, include a device assignment set for each 
screen format file, using the LFD name TCOIFMTF for the primary file and 
TC02FMTF for the secondary file, if there is one. 

The IMS System Support Functions Programming Guide, UP-11907, describes the 
configuration and start-up requirements. 

Figure 7-1 illustrates the steps you require to create and use screen formats with IMS. 



CREATE SCREENS 
USING OS/3 

SCREEN F0RMA7 
GENERATOR 



WRITE ACTION 

PROGRAMS USING 

BUILD AND REBUILD 

FUNCTION CALLS 



CONFIGURE IMS 
WITH SFS = n AND 

RESFMT ==n IN 
OPTIONS SECTION 



START UP IMS 

WITH DEVICE 

ASSIGNMENTS FOR 

SCREEN FORMAT 

FILES 




PHOut&b 
TRANSACTIOrJ 
USING 
SCREEN FORM/ ' 




Figure 7-1. Creating and Using Screen Formats 
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7.2. How Screen-Formatted Messages Are Processed 

Your action program requests a screen format by issuing a BUILD function call. IMS 
retrieves the screen format from the screen format file. (When you assign two screen 
format files, IMS checks TCOIFMTF first, then TC02FMTF.) IMS places the screen 
format in an output buffer area in your program or in dynamic main storage. 

The screen format placed in the buffer area contains the output display constants 
defined at screen format generation. These constants are always protected; the 
terminal operator cannot change them. 

IMS inserts into the screen buffer any variable data you supply in the action program. 
Figure 7-2 shows a screen format containing display constants and variable data. 
Underlines represent input fields. 



o 



PERSONAL CREDIT REPORT 
NAME: JOHN DOE 

ADDR: 1552 MAIN ST. STATE:PA ZIP: 19140 
ACCOUNT N0:193-A564 
BALANCE :350. 00 
PAYMENT: DATE: / / 



Figure 7-2. Screen Format with Display Constants, Variable Data, and Input Fields 

Variable fields defined at screen format generation as input or input/output are 
unprotected. The terminal operator can enter data in input fields and can make 
changes to input/output fields. Fields defined as output-only are protected. In 
Figure 7-3, the terminal operator has changed the address field and entered a 
payment amount and date. 





PERSONAL CREDIT REPORT 


NAME: JOHN DOE 




ADDR: 224 PINE ST. 


STATE:PA ZIP: 19102 


ACCOUNT N0:193-A564 




BALANCE:350.00 




PAYMENT: 25. 00 


DATE 12/23/80 



Figure 7-3. Screen Format witli Input Entries and Changed Address Field 

Like any other output message, screen formats are not actually sent to the terminal 
until a RETURN function call ends the action. You can also output a screen format by 
issuing a SEND f imction call. The CALL SEND lets you send a formatted message to 
a different terminal or multiple formatted messages to the originating terminal. 
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When you use the SEND function or continuous output to transmit a screen format, 
the format must be output-only because the terminal operator does not have an 
opportunity to enter input. Also, when your action program ends in delayed internal 
succession, you can use only an output format. Instead of going out to the terminal, 
the screen format is queued as input to the successor action program. 

You can transmit an input/output screen format by terminating the action program 
with external succession or normal termination. The terminal operator enters input on 
the format, and IMS schedules a successor action program or a new transaction based 
on this input. 

For normal termination, the first input or input/output field in the format must 
contain a transaction code. IMS verifies the transaction code and if it is invalid, 
resends the screen format and causes the transaction code to blink. The terminal 
operator can reenter the input message. 

IMS also checks the input for terminal commands. If the input contains a terminal 
command other thein ZZRSD, IMS processes the command and cancels the screen 
format. 

Normally, ZZRSD causes the last output message to be sent again, thus retaining the 
current screen format. However, if the screen format is built in dynamic main storage 
instead of in the output message area, it can't be sent again and the screen format is 
canceled. The terminal operator receives a "NO MSG IN QUEUE" message and can't 
enter input on the formatted screen. 

When the input does not contain a terminal command or invalid transaction code, the 
screen format coordinator validates the data before IMS passes it to the successor 
action program. IMS does no additional input editing regardless of the type of editing 
configured for the action. 

If the input contains errors, the screen format coordinator blinks the invalid fields. 
The terminal operator can correct the input until the retry count specified at screen 
format generation time is reached. Once the retry count is exhausted, the successor 
action program receives control. 
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Your action program can validate input data on a more detailed level than the screen 
format coordinator. When an action program determines that input data is invalid, 
you can issue the REBUILD function call to construct an error screen format. IMS 
replaces fields in which you place hexadecimal Fs with blink characters. Then, when 
your program issues a RETURN function call, the error fields blink on the screen 
format at the terminal and all other fields remain unchanged. 



A :tion 

PROGRAM 



y^HtTl 




You can also use the REBUILD function call to replenish input and input/output fields 
instead of constructing a new screen format for each input record. After the terminal 
operator transmits an input screen, the input data is replaced by underlines (or other 
replenish values defined at screen format creation). 

You can make temporary changes to a screen format by defining option indicators at 
screen format generation time and setting the indicators on before issuing a BUILD 
function call. Option indicators let you protect fields that are normally unprotected, 
highlight fields, blink error fields, and replenish input fields. For example, you can 
build an error screen or replenish screen by using option indicators and issuing a 
BUILD instead of a REBUILD f imction call. You cannot use the REBUILD function 
with a screen format that has option indicators defined. 
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7.3. Displaying a Screen Format O 

Do the following in your action program to display a screen format . . . 

1. Define an output buffer (usually the output message area). This area must be 
full- word aligned and begin with a 16-byte output message header. When you use 
the dynamic main storage option, you still need the output message header. 

2. Move the destination terminal-id into the first 4 bytes of the output message 
header. This step is optional when you want to display the screen format at the 
source terminal. 

3. When you want the screen format built in the output buffer, move the output 
buffer length into the TEXT-LENGTH field of the output message header. (See 
the formula described on the OUTSIZE parameter in the configurator ACTION 
section in the IMS System Support Functions Programming Guide, UP-11907.) 
On return from a successful BUILD function, IMS places the actual length 
required for the format in this field. 

4. When you want the screen format built in dynamic main storage, move CD' to 
SFS-LOCATION (COBOL) or set ZA#SFDYN in ZA#SFLOC (BAL). 

5. Define an 8-byte field containing the name of the screen format. This area must 
be left-justified and space-filled. 

6. When your screen format uses output option indicators or variable data, define a ij 
variable data area and a 2-byte field containing the length of the variable data 

area. Define option indicator bytes, if any, as the first entries in the variable data 
area. To set option indicators on, move C'l' to the option indicator b3rte locations 
before issuing the BUILD function call. 

7. When you want the screen format coordinator to validate output data, define an 
output status area large enough to contain one status byte for each variable field. 

8. Issue the BUILD fimction call. 

9. If you defined an input or input/output screen at screen format generation time 
and want to use the screen for output-only, move the value X'O' to the SFS- 
OPTIONS field (COBOL) or ZA#OSFSO field (BAL) of the output message 
header. Termination of this action with normal succession frees the input 
capabilities of an input-only or bidirectional screen and redefines it for output- 
only. 

10. Issue the RETURN or SEND function call. 



\«^^ 
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Once an action program issues the BUILD function, do not change the contents of the 
buffer area. Modifying the area can cause iinpredictable results in both the output 
screen and any input entered on the format. 

If you want to send a message from the output message area after building a screen 
format in dynamic main storage, clear the SFS-LOCATION field to zeros in a COBOL 
program or move X'OO' to the ZA#SFLOC field in a BAL program. This might be 
necessary, for example, when you output a screen format using the SEND function 
and then want to output a unformatted message with the CALL RETURN. 
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The BUILD function call constructs a screen buffer in the output buffer or in dynamic 
main storage. The screen buffer contains the display constants defined at screen 
format generation time and any variable data defined in the program. 

The COBOL and BAL formats for the BUILD function call are: 

• COBOL format 

CALL 'BUILD' USING output-buffer format-name 
tvari able -data data-size [output-status]]. 

• BAL format 

{CALL 1 BUILD, (output-buffer, format-namet, variable-data, 
ZG#CALLj data-size [, output-status]]) 



where: 



output-buffer 

Identifies the output area where the screen format is built. This area is full- 
word aligned and begins with a 16-byte output message header. When you 
use the dynamic main storage option, this area contains only the output 
message header. 

format-name ^ — 

Identifies an 8-byte field containing the name of the desired screen format. I j 

variable-data 

Identifies an area containing output option indicator bytes (if any) followed 
by a string of variable data (if any). Omit this parameter when your screen 
format does not use either option indicators or variable data. 

data-size 

Identifies a 2-byte field containing the length of the variable data area which 
should be at least as large as the screen size. This parameter is required 
when you specify a variable data area. 

output -status 

Identifies an area where the screen format coordinator places status errors 
found in the output validation of variable data. If omitted, no output 
validation is performed. 
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7.5. Example Coding to Display a Screen Format 

Figure 7-4 shows excerpts from a COBOL action program that builds a screen format 
in the output message area. The program provides two variable data fields (date and 
time) and a status area for output validation. The complete action program, 
JAMENU, is illustrated in Appendix B. Figure 7-5 shows the equivalent coding in a 
BAL action program. 



DATA DIVISION. 








WORKING 


-STORAGE SECTION. 








01 SCREEN -FORMAT -IDS. 








05 


SF-MENU 






PIC X(8) VALUE 'JASMENU '. 


LINKAGE 


SECTION. 








01 WORK -AREA. 








05 


IMS-PARAMETER-LIST 
10 IMS-SCREEN- ID 
10 SCREEN-SIZE 






PIC X(8). 

PIC 9(4) COMP SYNC. 


05 


SCREEN -RECORD. 
10 SR-DATE 
10 SR-TIME 






PIC 9(6). 
PIC 9(6). 


05 


REFORMAT -DATE. 
10 P-MONTH 
10 P-DATE 
10 P-YEAR 






PIC 99. 
PIC 99. 
PIC 99. 


05 


SG-STAT 






PIC X(5). 


01 OUTPUT-MESSAGE-AREA. 


COPY DMA. 




05 


OMA-TEXT 






PIC X(3000). 


PROCEDURE DIVISION USING 


PROGRAM - 1 NFORMAT I ON - BLOCK 








INPUT- 


MESSAGE -AREA 








WORK -AREA | 








OUTPUT 


-MESSAGE-AREA 


■ 






CONTINUITY-DATA-AREA. 



Figure 7-4. Building a Screen Format in a COBOL Action Program (Part 1 of 2) 
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200-BUILD-SCREEN. 




MOVE SOURCE-TERMINAL- ID TO DESTINATION-TERM- ID. | 


MOVE SF-MENU 


TO IMS-SCREEN- ID. 


HOVE ALL '0' 


TO SCREEN -RECORD. 


MOVE REFORMAT-DATE 


TO SR-DATE. 


MOVE TIME -OF -DAY 


TO SR-TIME. 


MOVE 12 


TO SCREEN-SIZE. 


PERFORM 505-BUILD. 




505-BUILD. 




CALL 'BUILD' 


USING OUTPUT -MESSAGE -AREA 




IMS-SCREEN- ID 




SCREEN -RECORD 




SCREEN-SIZE 




SG-STAT. 


IF STATUS-CODE IS GREATER THAN | 


MOVE '3' TO ERR 


•FLAG. 


507-RETURN. 




CALL 'RETURN'. 





c 



Figure 7-4. Building a Screen Format in a COBOL Action Program (Part 2 of 2) 
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PR0G1 START 

* ALLOCATE REGISTERS TO COVER ACTIVATION RECORD 

USING *,R2 
USING ZA#DPIB,R3 
USING ZA#IMH,R4 
USING W0RK,R5 
USING ZA#0MH,R6 
USING C0NT-DTA,R7 

* INITIALIZE REGISTERS 



BUILD SCREEN 

MVC ZA#0DT1D,ZA#ISTID 





MVC 


SCRNID.SFMENU 




MVC 


SCRNRECC 12), ZEROS 




MVC 


SRDATE(2),ZA#DTE+2 




MVC 


SRDATE+2(2),ZA#DTE+4 




MVC 


SRDATE+4,ZA#DTE 




MVC 


SRTIME,ZA#TME 




MVC 


SCRNSIZ, TWELVE 


. 


B 


SCRNBLD 


SCRNBLD 


ZG#CALL BUILD,(OMAREA,SCRN 



MOVE SOURCE -TERMINAL- ID TO 

DESTINATION-TERMINAL- ID 

MOVE SCREEN NAME TO SCREEN- ID 

CLEAR DATE/TIME FIELD 

MOVE PIB DATE TO SCREEN RECORD 

AFTER REFORMATTING DATE 

MOVE PIB TIME TO SCREEN RECORD 
SET SCREEN SIZE 



CLI ZA#PSC+1,X'00' ERROR CHECKING 
BNE BLDERR 
B TERM 



BLDERR 



TERM ZG#CALL RETURN 

* CONSTANTS 

SFMENU CLS'JAMENU 

ZEROS DC CL12' 

TWELVE DC XL2'0C' 
* 



SCREEN FORMAT NAME 



* ACTIVATION 


RECORD DEFINITION 






ZM#DPIB 






ZM#DIMH 




WORK 


DSECT 


WORK AREA 


PRMLST 


EQU 


* 




SCRNID 


DS 


CL8 


SCREEN IDENTIFICATION 


SCRNSIZ 


DS 


XL2 


SCREEN SIZE 


SCRNREC 


EQU 


* 




SRDATE 


DS 


CL6 




SRTIME 


DS 


CL6 




SGSTAT 


DS 


CL5 




OHAREA 


ZM#DOMH 




OMATEXT 


DS 


CL3e0e 


OUTPUT MESSAGE TEXT ARE 



Figure 7-5. Building a Screen Format in a BAL Action Program 
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Note that the COBOL action program moves zeros to the variable data area before 
entering values. Do not use the LOW-VALUES figurative because it translates to 
binary zeros. 

The example action programs do not move the output buffer length into the TEXT- 
LENGTH field; but we recommend that you do so when building a screen format in 
the output buffer. This is not necessary when you want to build a format in dsmamic 
main storage. 

To build a format in dynamic main storage, include the following statement in a 
COBOL action program: 

HOVE 'D' to SFS-LOCATION. 

In BAL, code the following instruction: 
1 10 16 



c 



MVI ZA#SFLOC,ZA#SFDYN 

When your screen format uses both output option indicators and variable data, code 
the option indicator bj^es as the first entries in the variable data area. For instance, if 
you defined option indicators that highlight certain fields on the screen format 
displayed by the COBOL action program in Figure 7-4, the variable data area might 
look like this: 

05 SCREEN -RECORD. 

10 OPTION- INDICATOR- 1 PIC X VALUE '0' 

10 OPTION- INDICATOR-2 PIC X VALUE '0' 

10 SR-DATE PIC 9(6) 

10 SR-TIME PIC 9(6) 

Then, to turn either option indicator on, move '1' to OPTION-INDICATOR-1 or 
OPTION-INDICATOR-2. 

Remember to include the option indicator bytes in the length of the variable data area: 

MOVE 14 to SCREEN-SIZE. 



c 
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7.6. Error Returns from the BUILD Function 

Action programs can receive two types of error returns: 

1. Status codes and detailed status codes in the program information block when 
the BUILD function is unsuccessful. 

2. Error codes in the variable data area when the screen format coordinator finds 
output validation errors. 

When the BUILD function call is unsuccessful, no screen buffer is constructed and 
IMS returns one of the following pairs of status and detailed status codes to the 
program information block: 



Status Code 
(Decimal) 



Detailed Status 

Code (Decimal) Explanation 



o 



1 

3 
3 
3 
6 
7 
7 

7 
7 
7 

7 
7 
7 
7 



1 

3 

12 

4 



1 

2 
3 
3 

5 
6 
10 
11 



Named format cannot be found 

Incorrect number of parameters 

Invalid parameter value 

Screen format services not configured 

Invalid terminal name or type 

Output validation error 

Buffer area not large enough; IMS places the actual length 
required for the format in the TEXT-LENGTH field 

Variable data area not large enough 

Not enough terminals configured 

Variable-data parameter specified when no variable data 
area exists 

Format size larger than screen size 

I/O error reading screen format file 

Screen format incorrectly generated 

System error 
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Status Code Detailed Status 

(Decimal) Code (Decimal) Explanation 



7 16 Inadequate main storage available in system; or format 

contains protected fields and terminal does not have 
protect feature or is not in protect mode 

7 17 Screen format services error 

7 18 Action program processing DDP transaction attempted to 

send screen format to initiating action program 

See Appendix D for a complete listing of status and detailed status codes in 
hexadecimal. 

When you define variable data and an output status area in your program, the screen 
format coordinator validates the variable data. When validation errors occur, the 
screen format coordinator places X'FF into each error field in the variable data area 
and one of the following error codes into the status byte for each invalid field: 



Output Validation 

Error Code Explanation 



1 Nonnumeric value defined for a numeric field 

2 Nonalphabetic value defined for an alphabetic field 

5 Range check failure 

6 Numeric field not in packed decimal format 



o 



o 



\>^y 
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7.7. Receiving Formatted Input in the Successor Program 

You can display an input or input/output screen format only when the action program 
terminates witii external succession or normal termination. The terminal operator 
enters input on the format, and IMS schedules a successor action program or a new 
transaction based on this input. 

The operator can enter a function key instead of formatted input, if the action 
program is prepared to accept it. A function key cancels the screen format. 

When the action program displaying the screen format terminates with external 
succession, IMS schedules the action program named in the SUCCESSOR-ID field of 
the program information block and sends the input data entries to the successor 
program's input message area. 

In the JAMENU action program in Appendix B, the same COBOL action program 
displays a screen format and also accepts input entered on the format. After building 
the screen format, JAMENU terminates with external succession, naming itself as 
successor. Figure 7-6 shows the screen format JAMENU displays, and Figure 7-7 
shows the input message fields to receive the formatted input. 



o 



06/23/81 06:49:28 JA$HENU 02/09/81 

ENTITLEMENT ACCOUNTING SYSTEM 

SELECT ONE (1) OF THE FOLLOWING OPTIONS: 

1. ADD A NEW CUSTOMER RECORD. 

*2. UPDATE CUSTOMER NAME/ADDRESS INFORMATION. 

*3. UPDATE BRANCH CUSTOMER INFORMATION. 

*4. UPDATE CUSTOMER ENTITLEMENTS. 

*5. DELETE A CUSTOMER RECORD. 

*6. DISPLAY CUSTOMER INFORMATION. 

7. LIST ALL ACCOUNTS (ON THE WORKSTATION). 

8. ENTER WORKSTATION ACTIVITY RECORDS. 

9. LOGOFF SYSTEM. 



•ENTER CUSTOMER NUMBER 
MENU SELECTION: — 



PLACE CURSOR HERE TO TRANSMIT 




Figure 7-6. Screen Format Displayed by JAMENU Action Program 
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01 


INPUT 


MESSAGE 


AREA 


COPY 


IMA. 






05 


I HA -SCREEN ■ 


REC 


REDEFINES 


IMA- 


PASS-1. 






10 


SR-CUST- 


NBR 






PIC 9(6). 






10 


SR-MENU 








PIC 99. 






10 


SR-TRSMIT 






PIC X. 






10 


FILLER 








PIC X(4). 



Figure 7-7. Input Message Area Fields for Formatted Input 

In the case of normal termination, the first input field in the format must contain a 
valid transaction code because IMS must schedule a new transaction to receive the 
input data. IMS sends the input data, including the transaction code, to the action 
program named in the configurator TRANSACT section. 

A convenient way to ensure that the terminal operator enters the appropriate 
transaction code in the first input field is to define that field as an input/output 
variable. Display the transaction code and when the terminal operator transmits the 
screen, the transaction code is automatically entered as input data. 

Figure 7-8 shows an input/output screen format displayed in response to the CSCAN 
transaction code. Initially, the cursor is positioned after tiie CSCAN transaction code. 
To list more names and addresses, the terminal operator simply presses the 
TRANSMIT key and the CSCAN transaction is rescheduled. To get details about a 
certain customer, the operator positions the start-of-entry character and cursor on the 
line for that customer and transmits. This schedules the CDETL transaction. (The 
CSCAN and CDETL action programs in Appendix B do not use screen format services 
but could have generated the same screens with screen format services.) 
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CSCAN 07009 RILEY 


805238 








►CDETL 


181089 


FISH 


ROBER 


17 CHERRY 


07006 


►CDETL 


091479 


HAF LEIGH 


WILLI 


3 HIGHFIEL 


07006 


►CDETL 


139915 


LAMBKA 


IRWIN 


DIRECTOR H 


07006 


►CDETL 


044246 


LONGENECKER 


R 


20 RICHARD 


07006 


►CDETL 


179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


►CDETL 


1??199 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 


►CDETL 


805257 


ROGERS 


CLESS 


51 RAVINE 


07006 


►CDETL 


152069 


WILLIAMS 


GEORG 


60 MCKINLE 


07006 


►CDETL 


181050 


ROHRER 


GARRY 


219 CARTER 


07008 


►CDETL 


029997 


BOONE 


GEORG 


64 BRUNSWI 


07009 



Figure 7-8. Displaying Transaction Codes in Input/Output Fields 

Although you can display an input/output screen format using either external 
succession or normal termination, external succession is more efficient. For a complete 
example of an action program using a screen format with external succession, see the 
JAMENU program in Appendix B. JAMENU also uses immediate internal succession 
to pass control to succeeding action programs that process the menu selection entered 
by the terminal operator. 



c 



Note: You can define certain input option indicators at screen format generation 
time. IMS does not support these input option indicators. However, if you 
defined any input option indicators for this screen format, perhaps for use 
with another program, you must code option indicator bytes as the first entries 
in the input message area. 
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7.8. Validating Input Data 



C^ 



The screen format coordinator validates the input data entered at the terminal and 
blinks invalid fields. The terminal operator can correct the invalid entries until the 
retry count specified at screen format generation time is reached. At that point, IMS 
schedules the successor program and places a 7 in the STATUS-CODE field and a in 
the DETAILED-STATUS-CODE field in the program information block. 

The input data is followed by one status byte for each input field. You must allow 
space for these fields in your input message area, but the length field in the input 
message header includes only the input data items and not their status bjdies. When 
validation errors occur, the screen format coordinator places an error code into the 
status bjdie for the invalid fields and replaces the invalid fields with X'FF'. The input 
validation error codes are: 



Input Validation 




Error Code 


Explanation 


1 


Nonnumeric keyin for a numeric field 


2 


Nonalphabetic keyin for an alphabetic field 


3 


Incorrect number of characters entered 


4 


Decimal point alignment error 


5 


Range check failure 



When your program receives a validation error, you will probably want it to send a 
message to the terminal operator and terminate the transaction. 
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7.9. Displaying an Error Format or Replenish Screen 

After the terminal operator enters input on a screen format and the screen format 
coordinator validates the input, you can retain the format at the terminal and make 
changes to it by issuing a REBUILD function call. You can use the REBUILD function 
in two different ways: 

1. Construct an error screen. Your action program performs additional validation of 
input fields and fills the input fields that are in error with X'FF (HIGH- 
VALUES). When you issue the REBUILD function, the screen format generator 
blinks any input fields filled with X'FF. 

2. Construct a replenish screen to prompt the terminal operator for the next input. 
When you issue the REBUILD function call, the screen format generator replaces 
input and input/output fields with underlines or other replenish value defined at 
screen format generation. 

When you want to build an error screen, identify the area containing the error fields 
(usually the input message area) with the variable-data parameter on the REBUILD 
function. Omit this parameter when you want to build a replenish screen. 

As with the BUILD function, you must define an output buffer, full-word aligned and 
starting with a 16-byte output message header. 

You can request that the error or replenish screen be built in the output buffer or in 
dynamic main storage. However, because of the smaller size of the message you send 
with the REBUILD function, you may want to use the output buffer instead of 
dynamic main storage. 

If you want the screen built in the output buffer, move the output buffer length into 
the TEXT-LENGTH field of the output message header. (To determine the output 
buffer length, allow approximately 10 bytes per blinking field or replenish field plus 
25 bji;es for overhead.) To build the screen in dynamic main storage, move CD' to 
SFS-LOCATION (set ZA#SFDYN in ZA#FLOC). 

After issuing the REBUILD function to construct an error or replenish screen, issue 
the RETURN function to send the screen to the terminal. Never use the SEND 
function with a CALL REBUILD function, because the error or replenish screen 
requests input from the terminal operator. For the same reason, you must terminate 
the action program with external succession or normal termination. 

You can also build an error or replenish screen (or a combination) by using option 
indicators and issuing a second BUILD function call instead of the REBUILD 
function. When you build an error screen this way, you do not have to fill the error 
fields with X'FF'. Set the appropriate indicators on by moving C'l' to the option 
indicator byte locations before issuing the BUILD f imction call. You cannot use the 
REBUILD function with a screen format that has any option indicators defined. 
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7.10. Building an Error or Replenish Screen (REBUILD) ^ 

The REBUILD function call constructs an error or replenish screen in the output 
buffer or in dynamic main storage. The screen format from the previous BUILD 
function remains in effect at the terminal, and error fields are blinked or input fields 
are replenished. 

The COBOL and BAL formats for the REBUILD function call are: 

• COBOL format 

CALL "REBUILD' USING output-buf fer [variable-data]. 

• BAL format 

FCALL 1 REBUILD, (output-buf fer[, variable-data]) 
[ZG#CALLJ 

where: 

output-buffer 

Identifies the output area where the error or replenish format is built. This 
area is full-word aligned and begins with a 16-bj^e output message header. 
When you use the dynamic main storage option, this area contains only the 
output message header. 

variable-data 

Identifies an area containing the input message fields including error fields. 
This is usually the input message area. 

When you include the variable-data parameter, the screen format coordinator blinks 
all fields filled with X'FF. When you omit this parameter, the screen format 
coordinator replaces all input and input/output fields with the replenish value you 
defined at screen format generation, which is usually underlines. 
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7.11. Example Coding to Display an Error or Replenish 
Screen 



Assuming you displayed the screen format shown in Figure 7-6 using the BUILD 
function, Figure 7-9 shows an example of the COBOL coding to validate the menu 
selection field and display an error screen using the REBUILD fimction. Figure 7-10 
shows this coding in a BAL action program. 

Note in the COBOL coding that the input fields are redefined as alphanumeric. This is 
necessary because you cannot move HIGH-VALUES to a numeric field. 






01 INPUT -MESSAGE -AREA. 



COPY IMA. 



05 IMA-SCREEN-REC REDEFINES IHA-PASS-1. 

10 SR-CUST-NBR PIC 9(6). 



10 


SR-CUST-NBR 


ERR 


REDEFINES SR-CUST-NBR PIC X(6) 


10 


SR-MENU 




PIC 99. 


10 


SR-MENU-ERR 


REDEFINES SR-MENU PIC XX. 


10 


SR-TRSMIT 




PIC X. 


10 


FILLER 




PIC X(4). 


01 OUTPUT - 


MESSAGE -AREA 




COPY OMA. 


05 OHA 


-TEXT 




PIC X(3000). 


PROCEDURE DIVISION 




USING PROGRAM- INFORMATION-BLOCK 








INPUT-MESSAGE-AREA 








WORK -AREA 








OUTPUT-MESSAGE-AREA 








CONTINUITY- DATA- AREA. 



255-VALIDATE-MENU-SEL. 

IF SR-MENU < 1 OR > 9 

MOVE HIGH-VALUES TO SR-MENU-ERR 
PERFORM 506- REBUILD 



Figure 7-9. Building an Error Screen in a COBOL Action Program (Part 1 of 2) 
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ELSE 
















PERFORM SET 


-MENU. 














506-REBUILD. 
















MOVE 100 TO TEXT-LENGTH. 














CALL 'REBUILD' 


USING 


OUTPUT 


■MESSAGE- 


AREA 








IMA 


SCREEN 


■REC. 




IF STATUS -CODE 


IS GREATER 


THAN 













MOVE '3' TO 


ERR-FLAG. 














507- RETURN. 
















CALL 'RETURN'. 

















Figure 7-9. Building an Error Screen in a COBOL Action Program (Part 2 of 2) 



1 


10 


16 


* VALIDATE MENU SELECTION 




CLI 


SRMENU.X'FI' 




BL 


REBLD 




CLI 


SRMENU, X'F9' 




BH 


REBLD 


* BUILD 


ERROR 


SCREEN 


REBLD 


MVC 


ZA#OTL, MSGSIZE SET TEXT-LENGTH FIELD 




ZG#CALL REBUILD, COMAREA, IMAREC) | 




CLI 


ZA#PSC+1,X'00' ERROR CHECKING 




BNE 


BLDERR 




B 


TERM 


BLDERR 


. 




TERM 

it 


ZG#CALL RETURN 


* CONSTANTS 




MSGSIZE 


DC 


H'100' 


* ACTIVATION 


RECORD DEFINITION 




ZM#DIMH 


IMAREC 


EQU 


1 


SRCUST 


DS 


CL6 




SRMENU 


DS 


CL2 


INPUT MESSAGE FIELDS 


SRXMIT 


DS 


CL5 




OMAREA 


ZM#DOMH ' 1 


OMATEXT 


DS 


CL3000 



Figure 7-10. Building an Error Screen in a BAL Action Program 



v_y'' 



7-22 



UP-9207 Rev. 2 



Using Screen Format Services to Format IVIessages 



C 



o 



To build a replenish screen, you need only move a value to the TEXT-LENGTH field 
(or move CD' to SFS-LOCATION to build the screen in djmamic main storage) and 
issue the REBUILD function call without the variable-data parameter: 

MOVE 100 TO TEXT-LENGTH. 

CALL 'REBUILD' USING OUTPUT -MESSAGE -AREA. 

To build an error or replenish screen using option indicators and the BUILD function, 
use the same coding used to display the screen format initially, except that you move 
C'l' to the appropriate option indicator b3^es before issuing the BUILD function. (See 
7.5.) 

7.12. Error Returns from the REBUILD Function 

When the REBUILD function call is unsuccessful, no error format or replenish screen 
is constructed and IMS returns one of the following pairs of status and detailed status 
codes to the program information block: 



Status Code Detailed Status 

(Decimal) Code (Decimal] Explanation 



1 Internal error 

7 1 Buffer area not large enough; IMS places the actual length 

required for the format in the TEXT-LENGTH field. 

7 5 Internal error 

7 6 I/O error reading screen format file 

7 7 REBUILD not allowed because screen format has no input 

fields 

7 8 Invalid field in variable data area 

7 9 Variabledata parameter specified but no error field 

detected 

7 11 System error 

See Appendix D for a complete listing of status codes and detailed status codes in 
hexadecimal. 
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7.13. Displaying a Screen Format on an Auxiliary Device v 

You can use the BUILD function call to output a screen format to an auxiliary device - 
printer, cassette, or diskette - attached to a display terminal. 

To output a screen format to an auxiliary device, you place values in the AUX- 
FUNCTION and AUX-DEVICE-NO fields in the output message header before 
issuing the BUILD function call. The AUX-FUNCTION setting tells IMS which print 
or transfer option to use, and the AUX-DEVICE-NO identifies the auxiliary device. 

Table 7-1 lists the print and transfer options IMS supports for the writing of screen 
formats and the settings for the AUX-FUNCTION field in continuous and 
noncontinuous output modes. For an explanation of the print and transfer options, see 
6.20. 

Because the terminal operator cannot enter input at an auxiHary device, the screen 
format must be output-only. For the same reason, you cannot use the REBUILD 
function call to write an error or replenish screen to an auxiliary device. 

Note: When you build a screen in dynamic main storage, all values, including 
auxiliary device numbers and functions, must be present in the output 
message header before you issue the CALL BUILD. If any header values 
(except SFS-OPTIONS) are changed after the CALL BUILD, the new values 
are ignored. 
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Table 7-1. Print/Transfer Options for Writing Screen Formats to Auxiliary Devices 



o 



Input 'Output Options 




Field 




Auiihvy Devices 




Name 


Suppression 


Inhibit 

Space 

Suppression 


Contmious 
Output 


No Continuous 
Output 


uis m 


UMSCOPE m/is» 




Hex 


Character 


Hex 


Chararier 


Supporleil 


Not Sivported 


Supported 


Not Supported 


Print Mode 


X 




F3 


3 


FO 





X 

(recommended) ® ® 




X 
(recommended)^ 








X 


F5 


5 


F2 


2 


X 
(recommended)®® 






X 

(unpredictable 
output at screen 
and auxiliary 
device) 


Print 
Transparent 


X 




F7 


7 


F4 


4 


X® ® 




X® 






X 


F9 


9 


F6 


6 


X® ® 






X 

(unpredictable 
output at screen 
and auxiliary 
device) 


Print Form 
(ESC H) 


X 




CI 


A 


Dl 


J 


X® 






X© 




X 


C6 


F 


D6 





X® 






X® 


Transfer 

All 


X 




C2 


B 


D2 


K 


(recommended)^ 






X® 


(ESC G) 




X 


C7 


G 


D7 


P 


X® 






X® 


Transfer 
Variable 


X 




C4 


D 


D4 


M 


X® 






X® 


(ESC F) 




X 


C8 


H 


D8 


Q 


X® 






X® 


Transfer 
Ctianged 
(ESC E) 


X 




C5 


E 


D5 


N 




X (field control 
cliaracters not 
supported) 




X® 






X 


E8 


Y 


F8 


8 




X (field control 
cliaracters not 
supported) 




X® 



LEGEND: 

(T) Printer - same format as screen 

(2) Printer - same information as screen; no carriage returns 

(3) Cassette/diskette - same format as screen; no field control cliaracters 

(4) Cassette/diskette - same format as screen; only records unprotected fields 

(5) Cassette/diskette - same format as screen; records all fields and all field control characters 
(S) Cassette/diskette - not available 
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7.14. Using Screen Formats in a Distributed Data 
Processing Environment 

Your action programs can call on screen format services in a distributed data 
processing environment using the IMS transaction facility. (See Section 9.) 

When your action program processes a transaction that is initiated by a terminal 
operator at a remote system, you can: 

1. Issue a CALL BUILD followed by a CALL KETURN to display a screen format at 
the terminal that initiated the transaction at the remote system. You cannot 
output a screen format to an auxiliary device at the remote system (primary IMS) 
or to an action program initiating a remote transaction. 



CALL BmJ3 ^ 



IMS1 



TRANSACTION CODE 



:> 



IMS2 




CALL RETURN 

J • L 



ACTION 
PROGRAM 



. ^' 




h^J 



2. Issue a CALL BUILD followed by a CALL SEND to display a screen format at a 
terminal (or auxiliary device) attached to your local IMS system. You cannot use 
a CALL SEND to display a screen format at the remote system (primary IMS). 



CALL BUILD 



IMS1 



TF^ANSAC HON CODE 




> 



IMS2 



At.IiON 
PROGRAM 



TT 



CALL SEND 





^%i._^' 
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When an action is initiated at a remote system, the SOURCE-TERMINAL-ID field 
(ZA#ISTID) of the input message area contains the locap-name of the remote system 
instead of a terminal identification. To display a screen at the source terminal, you 
can move the locap-name to the DESTINATION-TERMINAL-ID field (ZA#ODTID) of 
the output message area or leave binary zeros in this field. 

To display a screen at a terminal attached to your local IMS system, move the 
terminal-id to the DESTINATION-TERMINAL-ID field and issue a SEND function. 
Remember, you can display only an output format when you use the SEND function. 
Afterward, clear the DESTINATION-TERMINAL-ID field or move the locap-name to 
that field before issuing a CALL RETURN to send an output message to the source 
terminal. 

When you display an input/output screen format at the source terminal (at the remote 
system), you can terminate your program normally or with external succession. 
External succession is the recommended method. 

When the terminal operator at the remote system enters input on the screen format, 
the successor program you name at your local IMS system (which could be the same 
action program) takes control and receives the input. 



o 





'w 


' ,y 


^^^^^i^ 


< 


IMS1 
ENTERED ON 






IMS2 








ACTION 

PROGRAM 

1 








1 






SCREEN FORMAT 




ACTION 

PROGRAM 

2 










INPUT > 
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The successor action program can issue a CALL REBUILD, followed by a CALL 
RETURN, to build an error or replenish screen at the source terminal. Again, you can 
move the locap-name from the SOURCE-TERMINAL-ID field to the DESTINATION- 
TERMINAL-ID field or leave binary zeros in that field. This action program should 
also terminate with external succession and name a successor program to process the 
corrected input. 



c 



W 






IMS I 



IMS2 



I ACTION 
I PROGRAM I 
1 




■'All R ETURN 
1 



ACTION I 
'ROGRAM ' ■ 



ACTION 
ROGRAIV 



\ J >l'"ROGt 




LALI 
RFBUIL [; 



j\ CORRECTED 
=i' INPUT ENTERED 



x.^' 
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Section 8 

Calling Subprograms from Action Programs 

8.1. When to Use Subprograms 

You can call subprograms from action programs to perform common functions or 
repetitive computations. Subprograms must reside in main storage to be called by an 
action program. This guarantees their efficient use by not requiring that they be 
loaded into main storage each time they are called. They are loaded with IMS during 
start-up. 

When a calling action program uses linked subroutines, only the main action program 
may issue a subprogram call. 



8.2. How to Use Subprograms 



\»_^ 



X^^--'' 



When you use subprograms, configure SUBPROG=YES in the OPTIONS section. Also, 
name the subprograms on the program-name parameter of the PROGRAM section 
and specify SUBPROG=YES in the same section. 

To use a subprogram, the calling action program must place the subprogram name in 
the SUCCESSOR-ID field of the program information block before calling the resident 
subprogram. 

MAIN STORAGE 





• 


r ' 


-. 






CALLING 

ACTION 

PROGRAM 


PR(J(iRAM 

INFORMATION 

BIOCK 

bUC<,fSS()R ID 

• 
• 
• 




SUBPROG-NAME ) 


CAiiL ; 


* 






2 




■ 


SUBPROGRAM 
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Subprograms may be coded as either serially reusable or reentrant modules. If a 
subprogram is accessed by one action program at a time during a transaction, make it 
serially reusable. The subprogram code can be modified but must be reset or restored 
before it is accessed again by another action program. A serially reusable stibprogram 
can read and write into its own area nonreentrant calling action programs and the 
activation record. 



If several action programs access a subprogram concurrently, code the subprogram as 
a reentrant COBOL or BAL module to increase throughput. Reentrant subprograms 
are executed as read-only. They may modify only the activation record and 
nonreentrant calling action programs. 

Subprograms can issue all the function calls that regular action programs use. 

Subprograms may not call other subprograms. 

A parameter list provides the means of transferring information from action program 
to subprogram. 

The called subprogram can access only those files allocated for the calling action 
program. 

Your calling action program may be in COBOL while a subprogram may be in BAL, or 
both calling program and subprogram may be in the same language. 

MAIN STORAGE 



;5> 



MOVE 'SUB1' TO 
SUCCESSOR-ID. 
CALL 'SUBPROG' 



v 



SUr Khi ■• if- .r.l 



ZG//CALL RETURN 



o 



c 
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8.3. COBOL Action Program and Subprogram Interface 

A COBOL action program calls a resident subprogram with the following sequence: 

HOVE subprogram-name TO SUCCESSOR- ID. 

CALL 'SUBPROG' [USING data-name- 1 .. .data-name-n]. 

where: 

data-name- 1 . . .data-name-n 

Refer to data items in the data division of the calling COBOL action 
program. No more than 12 data-names can be specified. 

A subprogram written in COBOL returns control to the calUng action program as 
follows: 

CALL 'RETURN'. 

When the calling action program issues the SUBPROG CALL function, IMS clears the 
status code and detailed status code fields in the program information block. Be sure 
to save status codes and detailed status codes in your calling program's work area 
before issuing a SUBPROG call. Otherwise, you lose the status of the latest function 
call issued. 

When you issue the SUBPROG call, IMS transfers the contents of the calling 
program's work area to the subprogram's work area and your saved status codes are 
received in the subprogram's work area. 

Also, depending on your application, when returning to the main program, you may 
want to save the latest status codes and detailed status codes from the subprogram. 
When the main program needs the status of the latest function call, you move these 
program information block values to the subprogram work area. When the CALL 
RETURN function executes, IMS returns these values to the main program work area. 
Otherwise, IMS clears the status codes and detailed status codes in the program 
information block and they are lost. 
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8.4. BAL Action Program and Subprogram Interface ^ 

A BAL action program calls a resident subprogram via the following macroinstruction: 

FCALL 1 SUBPR0G,(param-1,...,parani-n) 
\ZG#CALLJ 



where: 



param-1,...,papam-n 

Refer to labels of storage locations in the BAL action program. Up to 12 

nnrnrnpti^rB pan hp snpmfipri 



parameters can be specified. 



A subprogram written in BAL returns control to the calling action program via the 
following macroinstruction: 

("call 1 RETURN 
[ZG#CALLJ 

Remember to place the name of the called subprogram in the program information 
block at location ZA#PSID before issuing the CALL function. The subprogram name 
must be left-justified and zero-filled (X'FO') in a 6-byte area. 

When the calling action program transfers control to the called subprogram, register 1 
points to the specified parameter list. If the subprogram requires working storage, the 
calling program can pass the address of the working- storage area to the subprogram 
either in the parameter list or in a register. Other register contents are as follows: 



Registers Contents 

Register Unpredictable 

Register 1 Parameter list address 

Registers 2-12 Address of calling action program contents 

Register 13 72-byte save area supplied by calling action program. Subprogram must save 
caller's registers using standard linkages. 

Register 14 Return address 

Register 15 Entry point address of subprogram 



Because IMS clears the status codes and detailed status codes after the main program 
issues the SUBPROG call, your main program must save these codes before issuing 
the SUBPROG call. Depending on your application, saving these codes may also be 
necessary before issuing the CALL RETURN from the subprogram. 



^^.^^^-^ 
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8.5. Subprogram Sample Application 
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Consider how often you test the performance of an I/O function call for various error 
conditions and consequently issue an error message to the terminal. After each 
function call, you check status. All of the error conditions and error messages could be 
coded in a subprogram so that each time the calling action program issues a function 
call, it could call the subprogram to test the status of that function call and move the 
appropriate error message into an area of the calling action program. After returning 
to the calling program, that program could issue the error message to the terminal. 

In this case, you can handle all the error testing and error message processing in your 
subprogram instead of duplicating the code in several action programs. Other routines 
suited to subprograms might be a frequently calculated inventory or payment total or 
cursor positioning used often in generating output messages to the terminal. 

Probably the most common subprogram call application is to a COBOL subprogram. 
Figure 8-1 is an example of a COBOL action program (GRP4D) that calls the COBOL 
subprogram (NUMPRG) to determine the status of function calls issued by GRP4D. 
Figure 8-2 shows the subprogram, NUMPRG. 

In Figure 8-1 , the calling program (GRP4D) retrieves the customer record of the 
customer named at the terminal. This customer record is on the file, TEST4, identified 
on line 9. 

Once GRP4D retrieves the customer record (I-REC), it tests the status code for the 
GET function call. If the GET is successful (line 56), GRP4D processes a customer 
record (lines 72-82) sending it to the source terminal upon normal termination (lines 
83 and 84). 

If the GET is unsuccessful, GPR4D saves the status codes and detailed status codes 
and moves the subprogram name, NUMPRG, to the SUCCESSOR-ID field in the 
program information block (line 59) and calls the subprogram (line 60). Notice 
particularly that the USING clause in the procedure division of the subprogram (line 
15) must match the USING clause on the CALL 'SUBPROG' statement in the calling 
program (line 60). This establishes the parameter list. 

NUMPRG (Figure 8-2) tests status codes, moves the appropriate error messages to the 
work area (lines 9-14, Figure 8-2), and returns to GRP4D (line 26, Figure 8-2). 
Following the SUBPROG call, GRP4D receives the error message returned by 
NUMPRG, moves it to the output message area (lines 41-52, Figure 8-1), and issues 
the output message to the terminal (lines 61-70, Figure 8-1). GPR4D terminates 
normally with the CALL 'RETURN' (line 84, Figure 8-1). 

When the status code being tested in NUMPRG is satisfied, NUMPRG returns to 
GRP4D. GRP4D processes the error message by sending it to the source terminal on 
normal termination. 

Note that the activation record areas described in the subprogram linkage section 
must correspond in size and layout to their like areas in the main program. (See 
Figure 8-1, lines 18-26, and Figure 8-2, lines 9-14.) 
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00001 


IDENTIFICATION DIVISION. 


00002 


PROGRAM- ID. 


GRP4D. 


00003 


ENVIRONMENT 


DIVISION. 


00004 


CONFIGURATION SECTION. 


00005 


SOURCE- COMPUTER. UNIVAC-0S3. 


00006 


OBJECT -COMPUTER. UNIVAC-0S3. 


00007 


DATA DIVISION. 


00008 


WORKING -STORAGE SECTION. 


00009 


77 


TEST4 


PIC X(7) VALUE 'TEST4 '. 


00010 


77 


DICE1 


PIC X(4) VALUE ='1003050A'. 


00011 


77 


DICE2 


PIC X(4) VALUE ='10060200'. 


00012 


77 


DICE3 


PIC X(4) VALUE ='10060003'. 


00013 


LINKAGE SECTION. | 


00014 


01 


PIB. COPY PIB74. 


00015 


01 


IMA. COPY IMA74. 


00016 




02 FILLER PIC X(11). 


00017 




02 PHONE-IN PIC 999. 


00018 


01 


WORK -AREA. 


00019 




02 I-REC. 


00020 




03 


PHONE-0 PIC 999. 


00021 




03 


NAME-0 PIC X(15). 


00022 




03 


ADDRESS-0 PIC X(6). 


00023 




02 ERR 


-DATA. 


00024 




03 


HSG PIC X(14). 


00025 




03 


S-CODE PIC 9999. 


00026 




03 


D-CODE PIC 9999. 


00027 


01 


OMA. COPY 0MA74. 


00028 




02 DATA-LINE. 


00029 




03 


DICE-1 PIC X(4). 


00030 




03 


MSG1 PIC X(4). 


00031 




03 


DICE-3 PIC X(4). 


00032 




03 


NAME0 PIC X(15}. 


00033 




03 


DICE-2 PIC X(4). 


00034 




03 


MSG2 PIC X(7). 


00035 




03 


DICE-4 PIC X(4). 


00036 




03 


ADDRESS0 PIC X(6). 


00037 




03 


DICE-5 PIC X(4). 


00038 




03 


MSG3 PIC X(3). 


00039 




03 


DICE-6 PIC X(4). 


00040 




03 


PHONE0 PIC 999. 


00041 




02 ERR 


-HSG-LINE REDEFINES DATA-LINE. 


00042 




03 


DICE-7 PIC X(4). 


00043 




03 


MSG0 PIC X(14). 


00044 




03 


DICE-8 PIC X(4). 


00045 




03 


HSG4 PIC X(11). 


00046 




03 


DICE-9 PIC X(4). 


00047 




03 


CODE10 PIC 9999. 


00048 




03 


DICE-10 PIC X(4). 


00049 




03 


MSG5 PIC X<8). 


00050 




03 


DICE-11 PIC X(4). 
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Figure 8-1. Sample Action Program (GRP4D) Calling Subprogram (NUMPRG) (Part 1 of 2) 
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00051 


03 CODE20 PIC 9999. 


00052 


03 FILLER PIC X. 


00053 


PROCEDURE DIVISION USING PIB IMA WORK-AREA OMA. 


00054 


BEGIN. 


00055 


CALL 'GET' USING TEST4 I-REC PHONE-IN. 


00056 


IF STATUS-CODE EQUAL ZERO GO TO PROCESS-HSG. 


00057 


MOVE STATUS -CODE T0 S-CODE. 


00058 


MOVE DETAILED-STATUS-CODE TO D-CODE. 


00059 


MOVE 'NUMPRG' TO SUCCESSOR- ID. 


00060 


CALL 'SUBPROG' USING WORK -AREA. 


00061 


PROCESS-ERROR. 


00062 


MOVE 80 TO TEXT -LENGTH OF OMA. 


00063 


MOVE DICE1 TO DICE-7. 


00064 


MOVE DICE2 TO DICE-8, DICE-10. 


00065 


MOVE DICE3 TO DICE-9, DICE- 11. 


00066 


MOVE 'STATUS- CODE' TO HSG4. 


00067 


MOVE 'DETAILED' TO MSG5. 


00068 


MOVE S-CODE TO CODE10. 


00069 


MOVE D-CODE TO CODE20. 


00070 


MOVE MSG TO MSG0. 


00071 


GO TO E-O-J. 


00072 


PROCESS -MSG. 


00073 


HOVE 80 TO TEXT -LENGTH OF OMA. 


00074 


MOVE DICE1 TO DICE-1. 


00075 


MOVE DICE3 TO OICE-3, DICE-4, DICE-6. 


00076 


MOVE DICE2 TO DICE-2, DICE-5. 


00077 


MOVE 'NAME' TO MSG1. 


00078 


HOVE 'ADDRESS' TO MSG2. 


00079 


MOVE 'KEY' TO MSG3. 


00080 


MOVE NAME-0 TO NAME0. 


00081 


MOVE ADDRESS -0 TO ADDRESS0. 


00082 


MOVE PHONE -0 TO PHONE0. 


00083 


E-O-J. 


00084 


CALL 'RETURN'. 



Figure 8-1. Sample Action Program (GRP4D) Calling Subprogram (NUMPRG) (Part 2 of 2) 
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mam 


IDENTIFICATION DIVISION. 




00002 


PROGRAM- ID. NUMPRG. 




00003 


ENVIRONMENT DIVISION. 




00004 


CONFIGURATION SECTION. 




00085 


SOURCE 


COMPUTER. UNIVAC-0S3. 




00006 


OBJECT 


COMPUTER. UNIVAC-0S3. 




00007 


DATA DIVISION. 




00008 


LINKAGE SECTION. 




00009 


01 WORK -AREA. 




00010 


02 


FILLER PIC X(24). 




00011 


02 


ERR -DATA. 




00012 




03 MSG PIC X(14). 




00013 




03 S-CODE PIC 9999. 




00014 




03 D-CODE PIC 9999. 




00015 


PROCEDURE DIVISION USING WORK-AREA. 




00016 


BEGIN. 






00017 


IF 


S-CODE EQUAL 1 




00018 




MOVE 'INVALID KEY' TO MSG 


ELSE 


00019 


IF 


S-CODE EQUAL 2 




00020 




HOVE 'UNALLOCATED FI' TO MSG 


ELSE 


00021 


IF 


S-CODE EQUAL 3 




00022 




MOVE 'INVALID REQ' TO MSG 


ELSE 


00023 


IF 


S-CODE EQUAL 4 




00024 




MOVE 'I/O ERROR' TO MSG 


ELSE 


00025 


MOVE 'PROBLEM IN SUB' TO MSG. 




00026 


CALL 'RETURN'. 





o 



Figure 8-2. Sample Subprogram (NUMPRG) 
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Section 9 

Action Programming in a Distributed Data 

Processing Environment 

9.1. Basic DDP Requirements and Terminology 

IMS handles distributed data processing (DDP) transactions through the IMS 
transaction f aciUty. To use distributed data processing with IMS, you must include the 
IMS transaction facility in your software at each OS/3 system and must configure 
multithread IMS at each system. Also, you must define a global ICAM network that 
supports distributed data processing and include a LOCAP section in the IMS 
configuration for each IMS system where you want to route transactions or which will 
route transactions to you. Consult the IMS System Support Functions Programming 
Guide, UP-11907, for configuration and network definition requirements. 

The following terms are used throughout the discussion of DDP transaction 
processing: 

LOCAL TRANSACTION 

Transaction that is processed at the same iiVIS systenfi where it is initiated. 

REMOTE TRANSACTION 

Transaction that is initiated at one IMS system and processed at another. 

PRIMARY IMS 

IMS system where a remote transaction is initiated. In our illustrations, we call this 
system IMSl. 

SECONDARY IMS 

IMS system where a remote transaction is processed. The action programs 
processing the transaction and any files they access are located here. In our 
illustrations, we call this system IMS2. 

LOCAL IMS 

Your IMS system, regardless of whether your system is primary or secondary for a 
particular transaction. 
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REMOTE IMS v_. 

IMS system at another computer. 

LOCAP-NAME 

The 4-character label of a LOCAP macrolnstruction in your ICAM network definition, 
identifying a local or remote IMS system. 
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9.2. How IMS Routes Remote Transactions 

There are three different ways in which the primary IMS can route a transaction to a 
secondary system: 

1. Directory routing 

The terminal operator enters a transaction code that identifies a transaction at a 
secondary system. The transaction code is defined in the configurator 
TRANSACT section. 

2. Operator routing 

The terminal operator prefixes the transaction code with a route character 
(followed by a period) that routes the transaction to a secondary system. This 
route character is defined in the configurator LOCAP section or in a PARAM job 
control statement at IMS start-up. 

3. Action program routing 

The terminal operator enters a transaction code that initiates a transaction at the 
primary system. The action program processing this local transaction issues an 
ACTIVATE function call to initiate a transaction at a secondary system. 

Screen format services cannot be used with transaction program routing. 

From the programmer's viewpoint, directory and operator routing are the same 
because they are both initiated by a terminal operator. Once the transaction is routed 
to the secondary system, an action program or series of action programs at that 
system interacts with the terminal operator the same way as in a local transaction. No 
action programs are involved at the primary system. 



c 
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ACTION 
PROGRAMS 




With action program routing, action programs at the secondary system do not interact 
directly with the terminal operator. They return a message to the initiating action 
program or its successor, which in turn outputs a message to the terminal operator. As 
a programmer, you may be writing action programs at either the primary or secondary 
system. 



PROfiRAM INITIATFIJ T HANS ACTION 
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9.3. Processing a Remote Transaction 



First, we'll assume that you are at a secondary IMS, writing action programs to 
process transactions initiated by an operator or an action program at a primary IMS 
system. 
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There is little difference between the way you process a remote transaction and the 
way you process a local transaction. You can use the same action programs to process 
both local and remote transactions. 

When the transaction begins, you receive an input message starting with a 1- to 8- 
character transaction code, just as with a local transaction. 

You can determine the source of the input message by testing the DDP-MODE field 
(ZA#DDPMD) of the program information block and the SOURCE-TERMINAL-ID 
field (ZA#ISTID) of the input message header. 

The DDP-MODE field contains the value 'R' (ZA#DTR) when the transaction is 
operator-initiated (either directory routing or operator routing). It contains the value 
'A' (ZA#PTRA) when the transaction is initiated by an action program. When a 
transaction is local, the DDP-MODE field contains zeros (X'OO'). This field has other 
possible values, but they apply to action programs at the primary IMS system (see 
9.8). 

When an action is scheduled to process a transaction at a secondary IMS, the 
SOURCE-TERMINAL-ID field contains the locap-name of the IMS system originating 
the transaction rather than a terminal-id. You cannot test for the actual terminal 
initiating a remote transaction. 

There are a few general restrictions on processing remote transactions. (There are 
several additional restrictions for program-initiated remote transactions, which will 
be discussed a little later in this section.) 
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1. You cannot use the SEND function to output a message to the originating 
terminal (or any terminal at the remote IMS). However, you can use the SEND 
function to output a message to a terminal at your local IMS. Afterward, clear the 
DESTINATION-TERMINAL-ID field (ZA#OTID) or move the source locap-name 
to that field before issuing a CALL RETURN to send an output message to the 
originating terminal. 

2. You cannot send continuous output to the originating terminal. Aggiin, you can 
use the SEND function to initiate continuous output at a local terminal using 
output-f or-input queueing. 

3. You cannot send output to an auxiliary device attached to the originating 
terminal. However, you can output to local auxiliary devices using the SEND 
function. 

9.4. Processing an Operator-Initiated Remote Transaction 

With the few exceptions already mentioned, you process an operator-initiated remote 
transaction the same way as a local transaction. 

You can use any type of action program succession with operator-initiated 

transactions. Once the transaction begins, the IMS transaction facility establishes a 

communications link, which stays in effect until the transaction ends. When you use 

external succession, the terminal operator receives and responds to your output /"^ 

messages without entering any additional codes. I J 

Figure 9-1 illustrates a remote dialog transaction, using both internal (either 
immediate or delayed) and external succession. 
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Figure 9-1. Processing an Operator-Initiated Remote Dialog Transaction 

You can use screen format services with operator-initiated remote transactions. See 
7.14 for details. 

9.5. Processing a Program-Initiated Remote 
Transaction 

When a remote transaction is initiated by an action program, you send an output 
message back to the originating action program's successor. That action program in 
turn outputs a message to the terminal operator. 

Because your output message goes to an action program rather than to a terminal, 
there are a few additional considerations and restrictions: 



1. You may want to format the output message differently; you do not need control 
characters. Of course, you may want to use the same output message for either 
operator- or program-initiated transactions. In this case, the action program 
receiving your message must be prepared to receive your control characters. 

2. You cannot use a screen format for the output message you return to the 
originating action program or its successor (see 7.14). However, you can use the 
SEND function to display a screen format at a local terminal. 

3. You must use normal termination when you return an output message to the 
originating action program's successor. You cannot use external succession. You 
can, however, use immediate or delayed internal succession and have your 
successor program return the output message (Figure 9-2). 
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Figure 9-2. Processing a Program-Initiated Remote Transaction 



Although a program-initiated remote transaction always has just one input message 
and one response, a dialog with the terminal operator can still take place. The 
initiating series of action programs at the primary IMS can use external succession to 
output messages and receive responses from the terminal and can issue repeated 
ACTIVATE function calls to communicate with your action programs and access your 
files. Figure 9-3 shows how you might process successive program-initiated remote 
transactions while the initiating action programs carry on a dialog with the terminal 
operator. 
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Figure 9-3. Processing Successive Program-Initiated Remote Transactions 
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9.6. Routing Transactions to a Remote IIVIS System 

Now, assume that you are at a primary IMS writing action programs to initiate 
remote transactions and receive response messages from a remote system. 




WRITING ACTION 
PHOQRAMS TO 
INITIATE REMOTE 
IRANSACTiONS 



In a program-initiated remote transaction, you make the decision whether to route the 
transaction to a remote system on the basis of some data the terminal operator enters 
or perhaps something you discover when you access your files or make some 
computations. 

You initiate a remote transaction by identifsdng the remote IMS system (locap-name) 
in the output message header, building a message containing a transaction code in 
your output message area, and issuing an ACTIVATE fxmction call. You must 
terminate your action program externally, naming a successor program at your local 
IMS system. Of course, you can reschedule the same action program as the successor. 

You cannot use a screen format for the output message you send with the ACTIVATE 
function call. 

Action programs at the remote IMS system process your message and send a response. 
Your successor program receives the response message in its input message area. You 
can then send an output message to the originating terminal. (See Figures 9-2 and 
9-3.) If you wish, you can issue another ACTIVATE call instead of outputting a 
message to the terminal (Figure 9-4). 
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Figure 9-4. Issuing IVIultiple ACTIVATE Calls without Operator Intervention 

9.7. Initiating a Remote Transaction (ACTIVATE) 

The ACTIVATE function call initiates a remote transaction and terminates the action 
program. It has no parameters. 

The COBOL and BAL formats for the ACTIVATE function call are: 

• COBOL format 

CALL 'ACTIVATE' 

• BAL format 

fCALL 1 ACTIVATE 
[ZG#CALLJ 



UP-9207 Rev. 2 



9-11 



Action Programming in a Distributed Data Processing Environment 



Here is a step-by-step procedure for initiating a remote transaction: 

1. Identify the remote IMS system where you want the transaction processed by 
placing its locap-name in the DESTINATION-TERMINAL-ID field (ZA#ODTID) 
of the output message header. 

2. Build the output message you want to send to the remote system in the output 
message area. The message must begin with a transaction code that is acceptable 
to the remote IMS system. 

3. Move the message length to the TEXT-LENGTH field (ZA#OTL) of the output 
message header. 

4. Specify external termination and the name of a successor program at your local 
IMS system. The successor program can be the same program. 

5. Issue the ACTIVATE function call. 

You don't issue a RETURN function call when you initiate a remote transaction. The 
ACTIVATE function call terminates the action program and sends the output message 
to the remote system. 
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9.8. Receiving a Response Message in the Successor 
Action Program 

When an action program issues an ACTIVATE function call and terminates in 
external succession, its successor program receives a message in the input message 
area regardless of whether the remote transaction is successful. When the remote 
transaction is successful, the successor program receives a response from the action 
program processing the transaction at the secondary IMS. When the remote 
transaction is unsuccessful, the successor program receives error codes in the input 
message area. 

To determine whether the transaction was successful, test the DDP-MODE field 
(ZA#DDPMD) of the program information block. The DDP-MODE field contains the 
value 'E' (ZA#PTRE) when the remote transaction ends normally and returns a 
message to your program. It contains the value 'C (ZA#PTRC) when the remote 
transaction is unsuccessful. This field has other possible values, but they apply to 
action programs processing a remote transaction at a secondary IMS system. 

When the remote transaction is successful (value 'E'), you can send a message to the 
originating terminal or issue another ACTIVATE call to initiate another remote 
transaction. 

IMS sets the DDP-MODE field to 'C and places an error code in the input message 
area when: 

• Your output message cannot be sent to the remote IMS 

• Your output message arrives at the remote IMS but the transaction cannot be 
scheduled 

• The remote transaction is scheduled but terminates abnormally 

• The remote transaction terminates normally but your program does not receive 
the response message 

You can continue processing your local transaction, perhaps issuing an error message 
to the source terminal. 

The only errors causing cancellation of the initiating transaction are succession errors. 
If an action program issuing a CALL ACTIVATE specifies an invalid termination 
indicator or successor-id, IMS cancels the transaction and sends an error message to 
the source terminal. Also, if the terminal operator keys in the ZZCNC terminal 
command, the transaction is canceled. 
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9.9. Error Returns from an Unsuccessful 
Remote Transaction 

When the remote transaction is unsuccessful, IMS places the value 'C in the DDP- 
MODE field and also sets an error code in the input message area. The error code 
consists of a 2-byte class code and a 2-byte reason code. When the class code is 0081, 
an error message containing DICE characters follows the error code. 

The format of the input message area when IMS returns an error is: 



Input Message 
Header 


Error 
Class Code 


Error 
Reason Code 


Message -Text 
(Optional) 


16 bytes 


2 bytes 


2 bytes 


Variable 



Table 9-1 describes the error codes and their meanings. 

Note: Class and reason codes are not translated, regardless of the translate option 
configured for the action receiving the input message. 

Table 9-1. Errors Returned to Input Message Area When Remote Transaction Is 
Unsuccessful 



Class Code 
(Hexadecimal) 


Reason Code 
(Hexadecimal) 


Explanation 


0003 


000C 


Distributed data processing not configured. 


0006 


0004 


Destination locap-name invalid or auxiliary function 
specified. 


0006 


0005 


No ICAH buffer available for switched message. 


0006 


0006 


Disk error on switched message. 


0006 


0007 


Invalid length specification for switched message. 


0006 


0009 


CALL ACTIVATE requested by action program at remote IMS. 


e00A 


0001 


Invalid function code. Submit a User Communication Form 
(UCF). 



continued 
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Table 9-1. Errors Returned to Input Message Area When Remote Transaction Is 
Unsuccessful (cont.) 



Class Code 
(Hexadecimal) 


Reason Code 
(Hexadecimal) 


Explanation 


zeu 


0002 


Invalid name. Submit UCF. 


0e0A 


0003 


Buffer not available. Retry. 


eeoA 


0004 


Invalid data type. Submit UCF. 


eeeA 


0005 


Invalid data length. Submit UCF. 


0080 


0100 


Required header item missing. Submit UCF. 


0080 


0700 


Message sequence error. Submit UCF. 


0080 


0800 


Invalid mode of operation. Submit UCF. 


0080 


0A00 


Protocol procedure error. Submit UCF. 


0080 


0B00 


Invalid header item. Submit UCF. 


0080 


0C00 


Version not supported. Submit UCF. 


0080 


0D00 


Class of procedure not supported. Submit UCF. 


0081 


0000 


Action program or IMS error at remote system. 
Message text indicates specific error. 


0080 


0001 


Error in transaction presentation control header. 
Submit UCF. 


0400 


0001 


Invalid transaction code specified. 


0400 


0002 


Shutdown in process at remote IMS. 


1000 


0051 


Invalid destination name. Submit UCF. 


1000 


0052 


Invalid input queue nssne. Submit UCF. 


1000 


0056 


Destination end user busy. Retry; if problem 
persists, submit UCF. 


1000 


0057 


Duplicate session request; already active. Submit 
UCF. 


1000 


0058 


No dynamic main storage available. Retry; if 
problem persists, submit UCF. 


1000 


0075 


Link not initialized. Check VLINE connection. 


1000 


0076 


Destination terminal down. Submit UCF. 


1000 


0077 


Line down. Check VLINE connection. 


1000 


0078 


Remote IMS not ready. Ensure that secondary IMS 
has successfully completed start-up. 



continued 
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Table 9-1. Errors Returned to Input Message Area When Remote Transaction Is 
Unsuccessful (cent.) 



class Code 
(Hexadecimal) 


Reason Code 
(Hexadecimal) 


Explanation 


ieee 


eiee 


No sessions available. Increase DDPSESS specification. 


wm 


0200 


Secondary system rejected session request because: 

1. Locap-name of primary IMS is not configured as a 
valid locap-name at secondary system 

2. Secondary system has no more available sessions 

3. Secondary system went down while trying to 
find an available session 


nee 


isee 


No ICAM buffer available. Increase buffers in ICAM 
network definition. 


nee 


i9ee 


No session established. Submit UCF. 


i2ee 


9900 


Invalid request. Submit UCF. 


1400 


0000 


Remote system shutdown. Could be normal or error 
condition. 



The class code 0081 indicates that the remote transaction abnormally terminated 
because of an IMS or action program error. This class code is always followed by a 
reason code of 0000 and a message text. The message text is one of the 3-line 
multithread IMS transaction termination messages documented in the System 
Messages Reference Manual, UP-8076. 



o 



The 3-line transaction termination message is formatted for output to the source 
terminal. You can move this message to your output message area and send it to the 
source terminal without additional formatting. The message is not edited, regardless 
of the editing option configured for the action; the message contains DICE codes. 



c 
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An example of the input message area contents when IMS returns an error code of 
0081 is: 



16-bvte-header 


008 1 0000 


10010101 


10034E01 



IMA control header Error code 



DICE 



TRANSACTION ABORTED TRANS ID;id TERM ID:id. 



FIRST LINE OF MESSAGE 



10040000 



TRANS CODExode.CURR ACTION:name.CURR PROG:name 



DICE 



SECOND LINE OF MESSAGE 



X^ 



1 0040000 REASON:error-description 

I 



DICE THIRD LINE OF MESSAGE 
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Section 10 

Additional Special Features 

10.1. Downline Load Feature 

Downline load action programs load COBOL, MAG 80, or PLM programs into the 
storage area of a UTS 400 or COBOL programs into the storage area of a UTS 40 for 
immediate execution. They can also load these UTS programs to auxiliary storage 
devices (diskette or cassette) attached to the UTS 40 and UTS 400. 






IMS LOAD tlRRAn\ 



MAIN.SIORAfiE 



UTS 40 

OR 
UTS 400 




These UTS programs must be stored in the IMS load libraiy ~ the same load library 
that contains your online IMS load module and action programs. If you configure the 
fastload feature, do not store UTS programs in the action program load library. Store 
them in the library containing the IMS load module or in the system load library, 
$Y$LOD. 
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IMS lOAD LIBRARY 














UTS 40 

(COBOL, 

PROGRAM 










UTS 400 
(PLM) 






UTS 400 


PROGRAM 








(COBOL! 
PHOGRAM 










UTS 400 
(MAO 80) 
PROGRAM 


1 












IMS ONLINE 

LOAD 

MODULE 

























There are two ways of downline loading: 

1. Enter the transaction code, DLOAD, to activate the IMS downline load action 
program, ZUKLOD. 



IMS LOAD LIBRARY 



MAIN STORAGE 



UTS 40 

OR 
UTS 400 




H ■ ■■ I AM 



,p.-'i 
r !■ 





AUXIl lARY DFVICF 




X_ 
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2. Write your own downline load action program. 



o 



IMS LOAD LIBRARY 



MAIN STORAGF 



UTS 40 

OR 
UTS 400 




USFR TRANSACTION 



For details about the DLOAD transaction code, see the IMS Terminal Operations 
Guide, UP-12027. 

Downline loading programs can be useful in numerous applications. One use is for 
editing and validating IMS input messages. If errors occur in input editing and 
validation, you can handle them directly at the UTS terminal without transmitting 
the message to the host computer. 

To use the downline loading feature, generate a resident ICAM that supports 
unsolicited output and specify DLLOAD=YES in the OPTIONS section of the 
configurator input. 

The UTS terminal accepting a downline load must be a master or primary station and 
not a slave station. 

Before using the downline loading feature, you should be familiar with the UTS 40, or 
UTS 400 terminal description found in the Integrated Communications Access Method 
(ICAM) Technical Overview, UP-9744. 
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10.2. Writing Downline Load Action Programs 

Suppose you decide not to call the ZUKLOD action program via the DLOAD 
transaction code to downline load UTS programs. You can write your own downline 
load action program to read blocks of UTS program code from the IMS load library to 
a UTS terminal or auxiliary device. Figure 10-1 is a sketch of a downline load action 
program that loads a UTS program, stored in the IMS load hbraiy, downline to a UTS 
400 main storage. 



c 



00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 



IDENTIFICATION DIVISION. 
PROGRAM- ID. LODPRG. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE -COMPUTER. UN I VAC -033. 
OBJECT -COMPUTER. UN I VAC -083. 
DATA DIVISION. 
WORKING -STORAGE SECTION. 

Tl LOD-HOD-NAME PIC X(8) VALUE 'MACPR0G1'. 
77 BUF-SIZE PIC 9999 USAGE COMP VALUE 10000. 

LINKAGE SECTION. 

01 PROGRAM- INFORMATION -BLOCK. COPY PIB74. 
01 INPUT -MESSAGE -AREA. COPY IMA74. 
02 UTS400-RESPONSE-MESSAGE. 

03 UTS400-RESPONSE-DICE PIC X{4). 

03 UTS400-RESPONSE PIC X(4). 

02 DEL-NOTICE-MSG REDEFINES UTS400- RESPONSE -MESSAGE. 

03 CONT-CODE PIC X(4). 

03 DEL-NOT-CODE PIC X. 

03 FILLER PIC XXX. 

TRANS -CODE -ENTRY REDEFINES UTS400-RESPONSE-MESSAGE. 



02 

03 TR-CODE 
03 FILLER 
01 OUTPUT-MESSAGE-AREA. COPY 0MA74. 
02 OOWNLINE-LOAD-MESSAGE. 

03 DOWNLINE -LOAD -HEADER 
03 DOWNLINE -LOAD -TEXT 
01 CONTINUITY-DATA-AREA. 

02 GET-SET-AREA 
PROCEDURE DIVISION USING 



PIC X(5). 
PIC XXX. 



PIC X(6). 
PIC X(1000). 



PIC X(400) 
PROGRAM- INFORMATION-BLOCK 
INPUT -MESSAGE -AREA 
IXITPUT -MESSAGE-AREA 
CONTINUITY -DATA- AREA. 



SYNC. 



START -PROG. 

IF TRANS-CODE = 'DLLPG' 



GO TO SET -PARA 



Figure 10-1. User-Written Downline Load Action Program SIcetch (Part 1 of 2) 



c 



104 



UP-9207 Rev. 2 



Additional Special Features 



I. 



eee36 else 

00037 IF CONT-CODE = 'CONT' GO TO TEST-DEL-NOTICE 

00038 ELSE 

00039 GO TO LOAD-STATUS-CHECK. 

00040 SET -PARA. 

00041 CALL 'SETLOAD' USING LOD-MOD-NAME GET-SET-AREA. 

00042 (Status code tests) 

00043 GET -PROG -CODE. 

00044 CALL 'GETLOAD' USING GET-SET-AREA DOWNLINE -LOAD -TEXT BUF-SIZE. 

00045 IF STATUS- CODE > GO TO STAT -TEST 

00046 ELSE MOVE 'C TO AUX-FUNCTION 

00047 MOVE 'CONT' TO CONTINUOUS-OUTPUT-CODE 

00048 GO TO EXTERNAL -TERM I NAT I ON. 

00049 STAT -TEST. 

00050 IF STATUS-CODE = 2 GO TO EXTERNAL-TERM 

00051 ELSE 

00052 IF STATUS-CODE = 3 AND DETAILED-STATUS-CODE = 20 

00053 GO TO INVAL-REQ 

00054 ELSE 

00055 IF STATUS-CODE = 3 AND DETAILED-STATUS-CODE = 21 

00056 GO TO SMALL-DATA-BUF 

00057 ELSE 

00058 IF STATUS-CODE = 4 GO TO I/O-ERR. 

00059 EXTERNAL -TERM. 

00060 MOVE '1B0E30323130' TO DOWNLINE-LOAD-HEADER. 

00061 MOVE 'E' TO TERM I NAT I ON -INDICATOR. 

00062 MOVE 'LODPRG' TO SUCCESSOR- ID. 

00063 CALL 'RETURN'. 

00064 AB-TERM. 

00065 HOVE 'S' TO TERM I NAT I ON -INDICATOR. 

00066 CALL 'RETURN'. 

00067 NORM -TERM. 

00068 (Send message to terminal) 

00069 CALL 'RETURN'. 

00070 INVAL-REQ. 

00071 (Send unsuccessful message to terminal) 

00072 CALL 'RETURN'. 

00073 TEST -DEL -NOT ICE. 

00074 IF DEL-NOT-CODE = '81' GO TO GET-PROG-CODE ELSE GO TO ERR-ROUT. 

00075 LOAD-STATUS-CHECK. 

00076 IF UTS400- RESPONSE = '39303030' GO TO NORM-TERM. 

00077 UNSUCCESSFUL -LOD. 

00078 (Generate error message) 

00079 GO TO NORM -TERM. 

00080 SMALL-DATA-BUF. 

00081 (Generate error message) 

00082 GO TO NORM -TERM. 

00083 I/O-ERR. 

00084 (Generate error message) 

00085 GO TO NORM -TERM. 

00086 ERR-ROUT. 

00087 (Generate error message) 

00088 GO TO NORM -TERM. 



Figure 10-1. User-Written Downline Load Action Program SIcetch (Part 2 of 2) 
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Downline load action programs must contain the following: 

• An 8-byte field defined for the UTS load-module-name (line 9 of Figure 10-1). The 
data-name used to describe this 8-byte field is the same name you must use on 
the SETLOAD function call. 

• One SETLOAD function call for each downline load (line 41). Issue the 
SETLOAD function before any GETLOAD function call because initialization 
must occur before you read a block of code from a UTS load module. 

• GETLOAD function calls issued to read blocks of code from the UTS load module 
into the data buffer in the output message area of your calling downline load 
action program (line 44). 

• A 400-bj^e area defined on the word boundary in the continuity data area (line 
29). This area is used as a work area by the SETLOAD and GETLOAD function 
calls. 

• The data-buffer (line 27) and 2-byte field indicating its size (line 10). The data- 
buffer contains a block of code read from the load module. 

Before the downline load program issues the GETLOAD function call, the SIZE field 
(lines 10 and 44) should have the length of the buffer area in binary format. After the 
return from the GETLOAD call, the SIZE field has the number of bytes actually 
moved into the buffer area. This number is also in the binary format. 

After issuing the GETLOAD function call, the downline load program must: 

• Check for end-of-file (02) in the STATUS-CODE field of the program information 
block (lines 50 and 59-63) 

• Process the status code in the program information block for successful 
completion of the GETLOAD function call (hues 46-48 and 59-63) 

If the GETLOAD function is successful, the downline load program should: 

1 . Move 'C to the AUX-FUNCTION field (the first byte of the AUXILIAKY- 
DEVICE-ID field) of the output message header (line 46) if you are sending the 
block of UTS program code to the terminal (primary device) main storage. 
Otherwise, see Table 6-1 for the continuous output character needed by your 
application. 

2. Prefix the data block received from the GETLOAD function call with a proper 
heading to load this block either directly into the UTS main storage or to an 
auxiliary storage device. This prefixed data block becomes the text in the 
downline load program's output message area. This text length can be calculated 
using the length returned in the size parameter of the GETLOAD function call. 
See Figure 10-1, lines 25-27 and 60, for an example of the output message area 
and the prefixing description required to format the text part of the output 
message area. 
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Your downline load action program should move the 6-byte prefix, 
X'1B0E30323130', into the prefix header (DOWNLINE-LOAD-HEADER) to 
provide the header information for loading the UTS main storage. 

If the downline load is intended for the auxiliary storage device, your action 
program should instead move X'1313nnnnnnnn' into the prefix header 
(DOWNLINE-LOAD-HEADER). Here 'nnnnnnnn' is a 4-character ASCII 
sequence naming the UTS load program. 

Figure 10-1, line 60, shows that the UTS MAC 80 program (MACPROGl) is 
downline loaded into the UTS main storage device. 

3. Send the message from the downline load action program output message to the 
UTS terminal or auxiliary device using the continuous output feature (lines 46 
and 47). 

4. Terminate the downline load action program with external succession (that is, 
place 'E' in the TERMINATION-INDICATOR field of the program information 
block) and name the downline load action program as the successor. The 
successor action program must then be prepared to handle a delivery notice in the 
form of an input message (lines 17-20). This includes testing the delivery notice 
for errors and if an error occurs, moving an error message to the output message 
area before terminating the program normally (lines 73 and 86-88). 

If the SETLOAD or GETLOAD function is unsuccessful and you configured 
ERET=YES in the PROGRAM section of the configurator, your downline load action 
program receives control with error indications set in the STATUS-CODE field of the 
program information block. For status code settings in this case, see status codes 3 
and 4 in 10.3. and 10.4. The action program should then send an appropriate error 
message to the terminal (lines 49-58). 

If the SETLOAD or GETLOAD function is imsuccessf ul and you didn't configure 
ERET=YES, IMS cancels the transaction and sends the following message to the 
terminal: 

DOWN LINE LOAD ERROR. 

If the GETLOAD function returns an end-of-file condition (STATUS-CODE set to 
X'02' in the program information block), the buffer area contains the transfer record. 
This is the last block that should be sent to the UTS terminal; thus, your action 
program should issue no more GETLOAD functions for this load module. 
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If the blocks of code are sent to the UTS main storage for immediate execution of the 
program, then when the UTS terminal receives a transfer record it automatically 
transmits a response (input message) indicating whether or not the downline load was 
successful. Therefore, the downline load action program should not use continuous 
output to send this last block. It should follow the same procedure as for a successful 
GETLOAD function, except it should not move 'C into the AUX-FUNCTION field of 
the output message header. The successor action program then receives in its input 
message area the 24-byte message header from a UTS in the following formats: 



c 



SUCCESSFUL LOAD 



■24 BYTES- 



TERMINAL-ID 



DATE/TIME STAMP 



TEXT- 
LENGTH 




10 



01 



01 



01 



39 



30 



30 



30 



UNUSED 



DICE 



UNSUCCESSFUL LOAD 



■24 BYTES- 



TERMINAL-ID 



DATE/TIME STAMP 



TEXT- 
LENGTH 




10 



01 



01 



01 



39 



30 



34 



UNUSED 



DICE 



Note: If you specify EDIT=NONE in the ACTION section, your program receives 
these DICE characters. If you specify EDIT=c or EDIT=tablename, or if you 
omit the EDIT parameter, these characters are stripped from the message 
header before it is sent to the program. 

Table 10-1 defines the various error bit configurations (*) that can be returned in the 
last bji;e of the message from the UTS terminal. 
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Table 10-1. Rejected Load Error Byte Definition 
Bit Number* Error Type Probable Cause/Recovery 



Never set 
Always set 



Load addressed to a LTTS 
slave station instead of a 
master station 



The UTS operator should initiate a power-on confidence test 
from the controller or master station and, upon completion of 
the test, the load should be retried. 

The load should be retried and addressed to the LfTS master 
station. 



o 



Illegal control code 
encountered in program 

Block overflow occurred in 
available/assigned main 
storage 



Start address of block is 
not in available/assigned 
main storage 

Addresses A and B not 
equal 



IMS error; submit SUR. 



If main storage is available, the UTS operator should assign the 
appropriate storage to the program. The load should be 
retried. If main storage is not available, the program should be 
recompiled, addressing available storage. 

Use the control page to assign more main storage, and reenter 
your transaction code. If insufficient main storage is available, 
the program must be compiled. 

IMS error; submit SUR. 



Numbered from right to left; that is, bit 7 is the most significant bit; bit is the rightmost or least 
significant bit. 

See Figure 10-1, lines 14-16, for an example of the input message area description to 
receive the UTS 400 response message after the last block of UTS program code is 
transferred downline. 
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After receiving the response message, the downline load action program should: 

1. Interrogate the response message (lines 75 and 76) and send an appropriate 
output message to the terminal indicating the success or failure of the downline 
load 

2. Terminate normally, that is, place "N' in the TERMINATION-INDICATOR of the 
program information block 

When the action program downline loads a UTS program to an auxiliary device, the 
UTS terminal does not generate a response message after it receives the last block of 
code. Therefore, the status of the downline load is not known until the program code is 
read into the UTS main storage. 



10.3. Initializing Downline Load (SETLOAD) 



The SETLOAD function call is the first fimction called by a downline load action 
program. 

The COBOL and BAL formats for the SETLOAD function code are: 

• COBOL format 

CALL 'SETLOAD' USING module -name save-area. 

• BAL format 



[call 1 

|ZG#CALLJ 



SETLOAD, (module-name, save -area) 



Module-name is an 8-byte field containing the name of the UTS program load module 
to be downline loaded. 

Save-area is a 400-byte area defined in the continuity data area. IMS uses the save- 
area to process the SETLOAD and GETLOAD function calls. This area must be word- 
aligned. 

When a SETLOAD function call is issued, IMS returns one of the following status 
codes with corresponding detailed status codes in the program information block. 
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Status Codes Detailed Status 

(Decimal] Codes Description 

(Decimal) 



Successful SETLOAD 

3 1 Invalid request; invalid number of parameters 

3 7 Invalid request; function invalid for type of request 

3 22 Invalid request; after the initial SETLOAD is issued, SETLOAD may not 

be issued again until the downline load action program receives the 
transfer record via the GETLOAD call. 



10.4. Loading the UTS Program (GETLOAD) 



Your downline load action program issues the GETLOAD function call immediately 
after the SETLOAD function and repeatedly issues the GETLOAD function until end- 
of-file is reached for the UTS program load module. 

The COBOL and BAL formats for the GETLOAD function call are: 

• COBOL format 

CALL 'GETLOAD' USING save-area buffer-area size. 

• BAL format 



("call 1 GETLOAD, (save-area, buffer-area, size) 
[ZG#CALLJ 



where: 



save-area 

Is the 400-b3d;e word-aligned area previously defined in the SETLOAD 
function. IMS uses the save-area to process the SETLOAD and GETLOAD 
function calls. 

buffer-area 

Is the data buffer in the output message area where your program receives a 
block of code from the UTS load module. 

size 

Is a 2-byte field where the length (size) of the buffer-area is stored. 

When your downline load action program issues a GETLOAD function call, 
IMS returns one of the following status codes and corresponding detailed 
status codes in the program information block: 
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(Decimal] Codes Description 

(Decimal) 
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20 



Successful GETLOAD 

End-of-load module (transfer record received). Note that end-of-file is 
set at the time the last block of data (transfer record) is passed to 
the action program. 

Invalid request; save-area address invalid or SETLOAD was not issued 
before GETLOAD. 



21 
XX 



Invalid request; data buffer too small (less than 10 bytes). 

I/O error. XX is the error code (in binary) returned by the OS/3 
loader. Note that these error codes are explained in the System 
Messages Reference Manual, UP-8076. 
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10.5. Disconnecting a Line from an Action Program 

The line disconnect f eatiire allows an action program to disconnect a single-station 
dial-in line following the delivery of its output message to enable another terminal to 
dial in on the same line. To use the line disconnect feature, include the continuous 
output capability in your configuration by specifying CONTOUT=YES in the 
configurator OPTIONS section. The line disconnect feature is available only in a 
dedicated ICAM network, not a global network. 

To disconnect a line after message transmission, the action program must: 

• Place a continuous output flag (X'C3') in the AUX-FUNCTION byte (ZA#OAUX 
field) of the output message header 

• Specify external succession with 'HANGUP as the successor by setting the 
TERMINATION-INDICATOR field (ZA#PSIND) in the program information 
block to E and the SUCCESSOR-ID field (ZA#PSID) to HANGUP 



HANGUP is an action program supplied by IMS that terminates with a special code 
causing IMS to issue a line release/line request sequence to ICAM to disconnect the 
line. 



MAIN STORAGE 



U.SiF< A.:'I(JN I'lifiCfiAM 



IM*; aCTKlN PROGFIAMS 



MOVE 'C3' TO AUX-FUNCTION. 

MOVE 'E' TO TERMINATION-INDICATOR. 

MOVE 'HANGUP' TO SUCCESSOR- ID. 

CALL 'RETURN'. 



> 





CTION PROGRAM 






HANGUP 











After the output message is sent, no further input is required from the terminal 
operator. IMS waits for ICAM notification of message delivery before scheduling the 
external successor, HANGUP. In this way, delivery of the message prior to the line 
disconnect is ensured. 
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(RUN) 



You can initiate background batch jobs from your action program by issuing the RUN 
function call. The RUN function initiates a system command that reads a job control 
stream and schedules that job for execution. 

The COBOL and BAL formats for the RUN function call are: 

• COBOL format 

CALL 'RUN' USING command- text. 

• BAL format 

("call 1 RUN, (command- text) 
LZG#CALLJ 

Command-text is the symbolic address of a character string that consists of a valid 
command and its associated parameters. Vahd commands are RUN, RU, RV, SI, SC, 
OCL, OC, or OV. The command text is contained in a command text area. This area 
must be at least 80 characters long. Your command text itself cannot be longer than 64 
characters, so in order to get the 80-character minimum you must blank fill (X'40') the 
area following the text. The following COBOL coding illustrates the statements 
needed in the action program to use the RUN function call: 

WORKING-STORAGE SECTION. 
01 COMMAND -TEXT. 

02 CMD-TEXT PIC X(18) VALUE 'RV JOBN(JOBC),HIGH' . 

02 FILLER PIC X(62) VALUE BLANKS. 



PROCEDURE DIVISION. 

PARA- 10. 

CALL 'RUN' USING COMMAND -TEXT. 

The following coding illustrates the same statement in BAL: 
1 10 16 

CALL RUN,(CMDTXT) 
CMDTXT DC CL80'RV J0BN(J0BC),HIGH' 



x^^' 



10-14 UP-9207 Rev. 2 



Additional Special Features 



When you use this function in a system with the security feature in force (supervisor- 
generated with ISLOGONSC=YES), the content of command-text changes. The 
following COBOL coding illustrates the statements needed to use the RUN function 
call in a security environment: 



ITORK I NG- STORAGE SECTION 


. 






01 CMD-TXT. 










02 USER- ID. 










03 FILLER 


PIC 


X 


VALUE 


'('. 


03 USER ID 


PIC 


X<5) 


VALUE 


'USERB' 


03 FILLER 


PIC 


X 


VALUE 


BLANK. 


03 PASSWORD 


PIC 


X(6) 


VALUE 


'PASSWD 


03 FILLER 


PIC 


X(2) 


VALUE 


') '. 



02 RUN-CMD PIC X(80) VALUE 'RV JOBN' 



PROCEDURE DIVISION. 



PARA- 10. 

CALL 'RUN' USING COMMAND -TXT. 



The user-id field is composed of any alphanumeric characters up to 6 characters in 
length. No spaces are permitted in the user-id field. For further details, refer to the 
Interactive Services Operating Guide, UP-9972, and the Security Maintenance Utility 
Operations Guide, UP-12028. 

The password field is composed of up to 8 alphanumeric characters. This field is 
optional based on security requirements. No embedded spaces are permitted in the 
password field. 

The RUN-CMD field is any of the job-initiating commands (RUN, RU, RV, etc.) and 
their associated parameters. This field must be 80 characters in length and blank- 
filled following the job-initiating command and its parameters. 

This security feature is not available in an IMS DDP environment. If a RUN function 
is attempted in a routed transaction, an IMS SECURITY VIOLATION error will 
result. 

The following coding illustrates an example in BAL: 

1 10 16 

CMDTXT EQU * 

USERID DC CL18*(USERID PASSWORD) ' 

RUNCMD DC CL80'RV JOBN' 

If the password field is specified, a space character (blank) is required between the 
user-id and password fields. 
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For example: 

(USER ID psswd) 

If the password field is omitted, no spaces are required following the user-id field. 

(USERID) 

The user-id field requires right and left parentheses and a space must immediately 
follow the right parenthesis. 

For example: 

(USERID) RV JOBN 

In a nonsecurily environment, if the user-id and password fields are presented, they 
will be ignored. In a security environment, the user-id and password fields are 
optional if the RUN function originated from a transaction entered fi*om a local or 
remote workstation. The security parameters will default to those at LOGON. 
However, if the fields are present, they will override the user-id and password values 
presented when logging on to interactive services. If LOGON is not performed in a 
security environment, the user-id and optional password must be specified as part of 
the command-text in the CALL RUN fimction. 

If a format error is detected in the user-id and password fields, a PIB status 
(subsection 3.25) will be posted. If an invalid user-id or password is detected, the 
transaction will be canceled with an IMS SECURITY VIOLATION message. Any 
other system errors will be reported in the following format. 

Any preliminary errors encountered by the OS/3 supervisor are passed back to IMS 
and posted in both the status and detailed status code fields of tiie program 
information block. 

The format of the errors in these fields is: 

Status code: 



c 












4 



Detailed status code: 






X 


X 


X 



Values for xxx are listed in Appendix A of the System Messages Reference Manual, 
UP-8076. 



^:^»..,-''' 



10-16 UP-9207 Rev. 2 



Additional Special Features 



o 



o 



10.7. Performing a SETIME WAIT within an 
Action Program 

This feature lets the user action program either suspend or delay action until a 
specified amount of time elapses. You issue the SCALL function call to use the 
SETIME WAIT feature. The COBOL and BAL formats for the SCALL function call 
are: 

• COBOL format 

CALL 'SCALL' USING setime-name time-period 

• BAL format 

fCALL 1 SCALL, ( set i me, seconds) 
[ZG#CALLJ 

Both COBOL and BAL function CALL statements contain positional parameters. In 
COBOL, the parameters refer to data names of a COBOL action program. In BAL, the 
parameters refer to labels of storage locations in a BAL action program. Positional 
parameters include setime-name and time-period. 

Setime-name is a 6-byte field containing the EBCDIC characters 'SETIME'. 

Time-period is a 2-b3rte field, half-word aligned. It contains a binary value indicating 
the number of seconds the action is to be suspended. The specified time period is the 
minumum time that action is suspended. However, the actual time varies depending 
on job priorities, and system load and overhead. 

In a COBOL action program, you define the setime-name in the working-storage 
section: 

WORKING -STORAGE SECTION. 

77 SET I ME -NAME PIC X(6) VALUE 'SETIME'. 

You define the time-period in the work-area field of the linkage section: 

01 WORK -AREA. 

05 PARAMETER- LI ST. 

10 TIME-PERIOD PIC 9999 COMP-4. 

In a COBOL action program, to suspend the program for 60 seconds: 

PROCEDURE DIVISION. 

MOVE 60 TO TIME-PERIOD. 

CALL 'SCALL' USING SETIME-NAME TIME-PERIOD. 

In a BAL action program, you define the setime-name as a constant in storage: 

1 10 16 

SETIME DC CL6'SETIME' 
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You define the time-period in seconds in a defined-storage (DS) statement: V_ 

1 10 16 



WORK DSECT WORK AREA 

SECONDS DS H TIME PERIOD 

to exercise the feature: 

HVI SECONDS, X'60' 

r CALL 1 SCALL,(SETIME, SECONDS) 

\ ZG#CALLJ 

Note: This feature is available only through the IMS multithread product. 

Care must be exercised when using this feature, as one job task control block (TCB) 
per transaction is allocated for the period. Also, all transaction resources are retained 
during this time period. 

10.8. Transaction Buffers 

Function calls GETMEM and RELMEM allow action programs to acquire and release 
blocks of main storage on a transaction-by-transaction basis. These buffers can be 
used to pass information from one action program to a successor in a transaction. This 
additional memory is assigned to the current transaction and is kept for the duration 
of the transaction unless returned by RELMEM. A transaction is permitted to hold up 
to three blocks of transaction buffers at a given time. 

The size of a transaction buffer is 4,096 bytes. The maximum number of transaction 
buffers available to an IMS session is 65,534. The original IMS startup pool can be up 
to 32,767 transaction buffers. An additional 32,767 transaction buffers may be 
acquired from the IMS storage pool. In setting up an IMS session in the specification 
of RESMEM, the size of these transaction buffer pools can be set to this maximum or 
less. 

Another parameter of RESMEM specifies the number of buffers a single transaction 
can acquire; the default is 4. The maximum any single transaction may be permitted 
to acquire is 16 of these 4Kb3rte transaction buffers. This limit for the number of 
buffers is specified in the IMS configuration. These transaction buffers are assigned to 
a transaction as 1, 2, or 3 blocks in multiples of 4K contiguous bytes. 

These blocks of transaction buffers are held for the duration of the transaction unless 
returned to the IMS buffer pool by a call to RELMEM. After RELMEM is called to 
release a transaction buffer, the buffer is no longer available to the transaction. At the 
termination of the transaction, the buffers are automatically returned to the 
transaction buffer pool. 
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If data is accessed from a transaction buffer that has been released by RELMEM, the 
condition of the data is unpredictable. 

An attempt to write into a buffer that has been released results in a program check in 
the action program. 

In the PIB status code 0, the detailed status code returns n, where n is the number of 
transaction buffers previously held. The ra is 0, 1, or 2 depending on the number of 
transaction buffers assigned to the transaction. 

An action program acquires this additional main storage by the GETMEM function 
call to IMS. The additional area of main storage, the transaction buffer, is assigned to 
the transaction issuing the call. 

A COBOL action program can acquire, request the availability of, and release 
transaction buffers. 



10.8.1. COBOL Data Division 

Transaction buffers are defined within a COBOL action program as 01 level data- 
items in the linkage section of the data division. The definition of transaction buffers 
is similar to the definition of the: 

• PIB (program information block) 

• IMA(input message) 

• WA (work area) 

• OMA (output message area) 

• CDA (continuity data area) 

in a COBOL action program. 

A transaction buffer in the linkage section may not be referenced prior to the 
execution of a call to acquire the buffer, or after a call to release the buffer. 
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10.8.2. COBOL Procedure Division W 

Two function calls, GETMEM and RELMEM, provide the transaction buffer interface 
to IMS. 

Using GETMEM, the action program may: 

• Request allocation of a transaction buffer or buffers 

• Acquire transaction buffers previously allocated to the transaction 

• Interrogate for the buffers currently allocated to the transaction 

The call to RELMEM releases the transaction buffers and returns them to the buffer 
pools allocated by RESMEM. 

10.8.3. COBOL Action Program Call to Allocate a Transaction Buffer 

The COBOL call to allocate a transaction buffer and to make the area addressable by 
the action program is: 

CALL 'GETMEM' USING data-name- 1 data-nanne-2 
where: 

data - name -1 

Is the data-name of the Unkage section 01 data-item for the transaction 
buffer allocated. 

data-name-2 

Is the data-name of a full-word binary item containing the number of 
4096-byte blocks requested (PIC 9(9) COMP-4 SYNC). 

10.8.4. COBOL Call to Get the Address of Previously Allocated 
Transaction Buffers 

The COBOL source code to get the address or addresses of the transaction buffers 
previously allocated to the transaction is: 

CALL 'GETMEM' USING data-name-1 [data-name-2 data-name-3] data-name-4 
where: 

data-name-1 data-name-2 data-name-3 

Are the data-names of the linkage section 01 items that map the transaction 
buffers. 

data-nfflne-4 

Is the data-name of the full-word binary item containing the COBOL low 
value of zero (PIC 9(9) COMP-4 SYNC). 
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10.8.5. Determining Buffers Currently Allocated to a Transaction 

The COBOL source code to determine the buffers allocated to the transaction is: 

CALL 'GETMEM' USING data-name- 1 data-nanie-2 
where: 

data-name- 1 

Is the name of a 12-b5^e area in the action program. This area may not be a 
linkage section 01 item. This area is divided into three 4-byte words. 

data-name-2 

Is the data-name of a full-word binary item that contains a value of zero. 

Notes: The action program may interrogate the 12-byte area data-name-1 after 
the call to determine the address of buffers currently allocated to the 
transaction. 

The high-order byte contains the size of the transaction buffer. 

The three least significant bytes of the data-name-1 words contain the 
address of a transaction buffer or a zero, when the buffer is not allocated. 

When one buffer is allocated, the first word contains the address and the 
other words contain zero. 

When two buffers are allocated, the first two words contain addresses and 
the third word contains zero. 

10.8.6. Releasing from One to Three Transaction Buffers 

The COBOL source code to release from one to three transaction buffers is: 

CALL 'RELMEM' USIMG data-name-1 [data-name-2 data-name-3] 

where: 

data-name-1 data-name-2 data-name-3 

Are the linkage section data-names of the transaction buffers to be released. 

A call to GETMEM can be issued to reacquire buffers previously released by 
RELMEM. These buffers are reinitialized to 0. 
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10.8.7. Programming Considerations 

The transaction bviff er data-names should not be included in the procedure division 
USING statement. 

The diagnostic message 0054, 'Number of records in linkage section not equal to 
number of arguments in the USING Hst. USING Ust accepted' occurs when action 
programs contain transaction buffers and should be ignored. 

Calls to GETMEM for allocating transaction buffers or acquiring the addresses of 
previously allocated transaction buffers result in the generation of procedure division 
USING type code following the call. This code updates the table of cover register 
values used to access the transaction buffers. 

Subsection 12.12 illustrates a snap dump of a program containing transaction buffers. 

10.8.8. Acquiring a Transaction Buffer 

To acquire a transaction buffer, the action program issues the following call to IMS: 



r2G#CALLl SCALL, (string, address, nuntoer) 
[CALL J 

where: 

string 

Is the address of a field containing the EBCDIC character string GETMEM 

address 

Upon successful execution of the call, points to a word which contains the 
address of the first of the contiguous transaction buffers available to the user 

number 

The address of a word containing a binary number between 1 and 16 (the 
maximum number of 4K blocks a transaction may use for transaction 
buffers) 

The sum of the previously acquired buffers plus this current number cannot 
exceed the number set in RESMEM at IMS configuration or start up. 

A maximum of three blocks of transaction buffers can be held by a transaction at any 
given time. 

Note: The addresses of the transaction buffers should not be kept in the CDA, but 
they must be requested in each program with a call to GETMEM and number 
set to 0. 



c 
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10.8.9. Querying the Number of Transaction Buffers Previously Allocated 

To query the number of transaction buffers previously allocated, the call is: 



rZG#CALLl SCALL, (string, address, number) 
[CALL J 



where: 

string 

Is the address of a field containing the EBCDIC character string GETMEM. 

address 

Points to a list of three words, in which is returned the address of the 
transaction buffer in the low-order bjd;e, and the number of contiguous 4K 
blocks of transaction buffers allocated in the high-order byte of each word. 

When the high-order byte of the word contains a 0, then the buffer has not 
been allocated. 

number 

Is the address of a full word of zeros. 

10.8.10. Returning Transaction Buffers to Main Storage 

To return a transaction buffer or buffers to main storage, an action program issues the 
following call to IMS: 



fZG#CALLl SCALL, (stringC, address]) 
\CALL J 

where: 

string 

Is the address of a field containing the EBCDIC character string RELMEM. 

address 

Contains a list of up to three full words with the addresses of the transaction 
buffers being returned. The last entry in the list must be an X'80' in the high- 
order byte to indicate the end of the list. 

If RELMEM is issued without an address of a specific list of full words, all transaction 
buffers previously acquired by the transaction are released. 
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10.8.11. Returning Status Codes ^ 

IMS returns to action programs the status code and detailed status code of the latest 
function call in the PIB of the action program. 

A successful call to RELMEM sets the status code (SC) and the detailed status code 
(DC) in the PIB to 0. 

A successful call to GETMEM sets the status code to and the detailed status code to 
0,1, or 2. 

A GETMEM or RELMEM error returns a 3 in the STATUS-CODE field; and in the 
DETAILED-STATUS-CODE field of the PIB. The detailed status codes are listed 
along with their meanings in Appendix D. 

Table 10-2 lists the GETMEM status codes and detailed status codes, and Table 10-3 
lists the RELMEM status codes and detailed status codes. Also, see subsection 3.5, 
"Obtaining Completion Status (STATUS-CODE)," and subsection 3.6, "Obtaining 
Additional Status Information (DETAILED-STATUS-CODE)," for information on 
testing the value of the status codes returned to the PIB for the function called. 

The error status codes 03 xx are returned to the user program only if ERET=YES is 
specified in the PROGRAM section at IMS configuration. 



If ERET=NO is specified and a major error occurs, the action program is terminated 
abnormally according to the IMS specification. 
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Table 10-2. GETMEM Status Codes and Detailed Status Codes 



Status Code Detailed Status 

(Decimal) Code Explanation 

(Decimal) 



No error 

n = number of blocks of transaction buffers requested. The n is 0, 
1, or 2, depending on tfie number of bloclts of transaction buffers 
previously assigned to the transaction. 



Incorrect number of parameters submitted with the request for the 
transaction buffer. 



o 



10 



12 



Incorrect parameter value. The address passed to receive the 
address of a transaction buffer or the field to specify the number of 
transaction buffers is not full-word aligned. 

Illegal function requested. This error code is returned after three 
GETMEM calls have been issued. No transaction buffer is made 
available. 

Required module not included in configuration. The parameter 
RESMEM was not defined at configuration time. Therefore, the 
modules supporting the function GETMEM are not available for the 
current IMS. 



14 



Insufficient space. The transaction buffer pool is depleted and the 
expansion increment exhausted. This error code is returned if a 
contiguous block of space is not available. The error code is also 
returned if, at IMS start up, the RESMEM parameters were 
overridden with zero. 
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Table 10-3. RELMEM Status Codes and Detailed Status Codes 
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Status Code Detailed Status 

(Decimal) Code Explanation 

(Decimal) 




1 



No error 

Incorrect number of parameters submitted with the request to 
release the transaction buffer. 



12 



Incorrect parameter value. The address of the list of transaction 
buffers to be released is not a full-word address. 

Transaction buffer not allocated. One of the addresses submitted in 
the list of transaction buffers to be released is not pointing to a 
transaction buffer assigned to the transaction. The value remains 
unchanged, and the command is terminated with the error code. 

Required module not in configuration. To activate the acquisition of 
transaction buffers, the keyword RESMEM is specified in the IMS 
OPTIONS section at configuration time. 



10.9. Opening Files from an Action Program 



Function calls OPEN and CLOSE allow action programs to open or close data files 
from within user written action programs. The COBOL and BAL formats for OPEN 
and CLOSE function calls are: 

• COBOL format 

CALL 'foPEN 1' USING filename. 
[CLOSEJ 

• BAL format 



HOPEN \ .(filename) 



(call ..---. 
[ZG#CALLJ \CL0SEJ 



The OPEN and CLOSE function calls are intended to address the operational 
problems associated with sharing files between IMS and batch applications. These 
function calls allow the user to construct action programs that open or close related 
groups of files. The resulting transactions should be limited to use by the IMS 
administrator. 
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10.9.1. Action Program Structure 

While the OPEN and CLOSE functions may be used in any action program, it is 
recommended that their use be confined to constructing tremsactions that just open or 
close a predetermined list of files. 

Because any given file may be in use at the time the OPEN or CLOSE function call is 
issued, the structure of the action program must include a PIB status check after each 
function call. If the function could not be completed, the program can be written to 
either repeat that function call or issue a SETIME WAIT before repeating the call. 
When the entire list of files has been successfully opened or closed, the program - and 
transaction ~ terminates. 

The following are some guidelines in using the OPEN and CLOSE function calls: 

• The files to be opened or closed need not be assigned to the action. 

• MIRAM files with sequential views must be addressed using only the filename of 
the primary view. The status posted will always reflect the state of the primary 
view of the file regardless of errors encountered on secondary sequential views. 
This is consistent with the ZZOPN and ZZCLS treatment of sequential views. If 
an attempt is made to use a secondary view filename which is eight characters in 
length, the primary filename is defaulted to and used for the OPEN/CLOSE 
function. 

• A test mode environment (ZZTMD) has no effect on OPEN or CLOSE functions. 

10.9.2. Error Conditions 

OPEN or CLOSE functions must be issued from within action programs originating 
from a master terminal. They must not address common storage data files or internal 
IMS files. In case of any of these invalid situations, an invalid function request, 0307, 
is posted in the PIB. 

If a close function is issued to a file in which at least one thread has b^en marked for 
rollback, the file is considered currently in use and cannot be closed. In this event, a 
PIB status of 0100 is posted. This can occur when before image records have been 
written to the AUDFILE for a given file and the transaction is still active. 

It is recommended that a transaction not attempt to close a file that is marked for 
rollback by that same transaction. 



o 
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Section 1 1 

Compiling, Linking, and Storing Action 

Programs 

11.1. Preparing Action Programs for Online Processing 

After you write a COBOL or BAL action program or subprogram, you must do the 
following: 

1. Compile or assemble the action program or subprogram (11.1). 

2. Link-edit the program to create a load module (11.2). 

3. Store the program in the appropriate load library (11.3). 

4. Identify the program to IMS in a PROGRAM section of the configuration. (See the 
IMS System Support Functions Programming Guide, UP-11907.) 

5. Identify the load library in the job control stream at IMS start-up, unless 
programs are stored in the system load library, $Y$LOD. (See UP-11907.) 

This section tells you how to compile (or assemble) and link your action programs and 
subprograms and where to store them for use during the online IMS session. For 
additional information on the job control statements and procedures shown in the 
examples, refer to the current versions of the Job Control Programming Guide, 
UP-9986, and the appropriate language manual. 
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11.2. Compiling or Assembling Action Programs ^ 

You assemble a basic assembly language action program or subprogram the same way 
as any other BAL program. 

You compile a COBOL action program or subprogram the same way as other COBOL 
programs, with one exception. That exception is different for 1974 American National 
Standard COBOL and extended COBOL and also depends on whether the program is 
sharable, nonsharable (serially reusable), or reentrant. 

11.2.1. Sharable, Nonsharable (Serially Reusable), or Reentrant 
COBOL Programs 

To compile a sharable or serially reusable 1974 COBOL program, include the job 
control statement: 

// PARAH IMSCOD=YES 

To compile a sharable or serially reusable extended COBOL program, include the job 
control statement: 



// PARAM OUT=(M) 

To compile a reentrant 1974 COBOL program, include the job control statement: 

// PARAM IMSCOD=REN 

The COBOL compiler checks for IMS language restrictions and issues diagnostics 
when you compile your serially reusable programs with the IMSCOD=YES or 
OUT=(M) parameters. However, if your program is not written to sharable standards 
(for instance, the procedure division contains statements that move data to the 
working-storage section), you cannot compile it with IMSCOD=YES or OUT=(M). 

To share COBOL action programs or subprograms, you must specify the TYPE=SHR 
and SHRDSIZE parameters in your IMS configuration in addition to including the 
shared code PARAM statement at compilation time. You can share action programs 
only in multithread IMS. 

Specify the TYPE=RNT parameter in your IMS configuration, and compile the 
program with the IMSCOD=REN parameter when you use 1974 COBOL reentrant 
action programs or subprograms. (See 2.3 for restrictions.) 

Increase the work area size on the WORKSIZE parameter in your IMS configuration 
to include the compiler's object program reentrancy control size. Include this 
additional area in your work area size whenever you compile the program with the 
IMSCOD=REN parameter (even if you specify TYPE=SER or TYPE=SHR in your IMS 
configuration). 
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To compile a nonsharable 1974 COBOL program, include the job control statement: 

// PARAM CALLST=YES 

to assure the proper linkages to IMS at CALL interrupts. However, the compiler does 
not check for IMS language restrictions when you use CALLST=YES instead of 
IMSCOD=YES or IMSCOD=REN. 

There is no special PARAM statement for compiling nonsharable extended COBOL 
action programs. When you omit PARAM OUT=(M), the compiler does not check for 
IMS language restrictions and you receive the COBOL error message: 

Ue NO EXIT PROGRAM NOR RETURN STATEMENT ASSOCIATED WITH 
ENTRY OR USING STATEMENT 

You can ignore this message. 

Table 11-1 summarizes the use of PARAM statements for sharable, nonsharable 
(serially reusable), and reentrant COBOL action programs. 

Table 11-1. Compiling Sharable, Nonsharable, and Reentrant COBOL Action Programs 

1974 COBOL Extended COBOL 



Sharable Include // PARAM IMSCOD=YES. 

Action Compiler checks for IMS 

Program language restrictions. 

Nonsharable Include // PARAM CALLST=YES. 

Action Assures proper linkages to IMS at CALL 

Program irrterrupts. Compiler does not check for 
IMS language restrictions. 

Reentrant Include // PARAM IMSCOD=REN. 

Action Compiler checks for IMS language 

Program restrictions. 



Include// PARAM OUr=(M). 
Compiler checks for IMS 
language restrictions. 

No substitute for// PARAM OLJr=(M). Compiler 
does not check for IMS language restrictions. 
Generates error message which can be ignored. 



Not supported. 



o 



For a shared COBOL action program, the size of the volatile data area is printed in 
decimal in the compilation summary listing. The format of this message is: 



SHARED CODE VOLATILE DATA AREA=nnnn BYTES 



Multithread IMS uses the shared code volatile data area to save and restore data at 
CALL interrupts. It is not used in single-thread IMS. 
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Use this size for the SHRDSIZE parameter specification in the ACTION section of 
your IMS configuration. If the action includes more than one COBOL action program, 
use the largest shared code volatile data area for this specification. 

In the compilation summary listing for reentrant 1974 COBOL action programs, the 
additional IMS work area needed by the object program is printed in decimal. The 
format of this message is: 

REENTRANCY CONTROL=nnnnnn WORKAREA BYTES 
(NOT INCLUDING PROGRAM DEFINED DATA AREAS) 

This additional work area is used by the object program for its control variables. 

Add this additional work area to the WORKSIZE parameter specified in the ACTION 
section of your IMS configuration. The work area size must be large enough to 
accommodate the maximum program data area size and the sum of all concurrently 
active object program reentrancy control areas. 

If you do not specify a large enough work area, program data areas are destroyed, and 
the action program may be abnormally terminated. 



c 



11.2.2. Job Control for Compiling COBOL Action Programs 

To compile a 1974 COBOL action program or subprogram, you can use either the 
COBL74 job control procedure (jproc) or the EXEC COBL74 job control statement. 

Figure 11-1 uses the jproc and assumes that the source program, MYPROG, is filed in 
the system source library, $Y$SRC. The program is sharable. 



o 



II 


JOB PR0G1 




//MYPROG C0BL74 


IN=(RES) 


// 


PARAM IMSCOD: 


=YES 


/& 






II 


FIN 





Figure 11-1. Compiling a C0BL74 Action Program Using Jproc 
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When you use the EXEC COBL74 job control statement, you must allocate a printer 
and three work files for the COBOL compiler. In Figure 11-2, the source program is 
embedded in the job control stream. The program is not sharable. 



// JOB PR0G2 


// DVC 20 // LFD PRNTR 


// W0RK1 


// W0RK2 


// W0RK3 


// EXEC C0BL74 


// PARAH CALLST=YES 


/$ 


. source program 


/* 


/& 


// FIH 



o 



Figure 11-2. Compiling a COBL74 Action Program Using Standard Job Control 

To compile an extended COBOL action program or subprogram, you can use either the 
COBOL jproc or the EXEC COBOL job control statement. 

Figure 11-3 executes the extended COBOL compiler using the COBOL jproc. In this 
example, the source program is embedded in the job control stream, and the program 
is sharable. 



// 


JOB PR0G3 




// 


COBOL 




// 


PARAM OUT= 


=(M) 


/$ 








. source 


program 


/* 






/& 






// 


FIN 





Figure 11-3. Compiling an Extended COBOL Action Program Using Jproc 



c 



UP-9207 Rev. 2 



11-5 



Compiling, Linking, and Storing Action Programs 



Figure 11-4 uses the EXEC COBOL job control statement and assumes that the 
source program, MYPROG, is filed in a user source library, SRCIN. Notice that a 
device assignment set is required for the user source library. The program is sharable. 



// JOB PR0G4 

// DVC 20 // LFD PRNTR 

// DVC 50 // VOL DISK01 // LBL SRCLIB // LFD SRCIN 

// W0RK1 

// W0RK2 

// W0RK3 

// EXEC COBOL 

// PARAH IN=HYPROG/SRCIN 

// PARAM OUT=(M) 

/& 

// FIN 



Figure 1 1-4. Compiling an Extended COBOL Action Program Using 
Standard Job Control 



11.2.3. Job Control for Assembling BAL Action Programs 

You assemble BAL action programs and subprograms the same way as other BAL 
programs, using the ASM jproc or the EXEC ASM job control statement. 

Figure 11-5 uses the ASM jproc and assumes the source program, ASMPRG, is filed in 
the system source library, $Y$SRC. 



c 



// JOB PROGS 

//ASMPRG ASM IN=(RES) 

/& 

// FIN 



Figure 11-5. Assembling a BAL Action Program Using Jproc 
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Figure 11-6 uses the EXEC ASM job control statement and takes source input from 
the job control stream. You must allocate a printer and two work files for the 
assembler. 



\ y 



II 


JOB PR0G6 






II 


DVC 20 // 


LFD 


PRNTR 


II W0RK1 






// W0RK2 






II 


EXEC ASM 






1% 










. source 


arogram 


1* 








/& 








II 


FIN 







Figure 11-6. Assembling a BAL Action Program Using Standard Job Control 



1 1 .3. Link-Editing Action Programs 



After you obtain a clean action program compilation or assembly, you must link-edit 
the program and store it in the appropriate load library. Load libraries are discussed 
in 11.4. 

You can use the LINK job control procedure for a BAL program or for a COBOL 
program compiled with PAEAM IMSCOD=YES, PARAM IMSCOD=REN, or PARAM 
OUT=(M). You must use the EXEC LNKEDT job control statement for nonsharable 
COBOL action programs. 

On the LINK jproc, you must specify the OUT parameter to store the action program 
in a load library: 

// LINK action-program-name, OUT= [(vol-ser-no, label)! 

[(RES,$Y$LOD) J 

For example: 

// LINK MYPROG,OUT=(RES,$Y$LOD) 

If you want to give the action program load module a different name than the object 
module, use this format: 

//load-module-name LINK object-module-name, 
OUT= ("(vol-ser-no, label)! 
\(RES,$Y$LOD) J 
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Figure 11-7 uses the jproc to link-edit an object module called MYPROG and create a 
load module called CREDIT. Output is to LOADLIB. You do not need a device 
assignment for LOADLIB because the LINK jproc generates it from your OUT 
specification. 



// JOB LINK 

//CREDIT LINK MYPR0G,0UT=<IMSV0L, LOADLIB) 

/& 

// FIN 



Figure 11-7. Link-Editing an Action Program Using Jproc 

When you execute the linkage editor using standard job control, you need a LOADM 
statement to name the load module and INCLUDE statements for the action program 
object module and the IMS link module, ZF#LINK 

A nonsharable extended COBOL action program or subprogram also requires an 
ENTER statement. The ENTER statement must be the last linkage editor control 
statement in your job control stream. 

Figure 11-8 shows a standard job control stream for the linkage editor. The linkage 
editor requires a printer file and one work file. You can omit the printer file if you 
assigned one to the compiler in the same job control stream. Output is to the system 
load library, $Y$LOD; a device assignment is not needed for this file. 



// 


JOB LNKEDT 




// 


DVC 20 // LFD 


PRNTR 


// U0RK1 




// 


EXEC LNKEDT 




II 


PARAM OUT=$Y$LOD 


/$ 


LOADM CREDIT 






INCLUDE MYPROG 


© 




INCLUDE ZF#LINK,$Y$OBJ 




ENTER MYPROG 


® 


/* 






/& 






// 


FIN 





Notes: 



(V) For extended COBOL, the object module name is appended with 00. 
(T) Required only for nonsharable extended COBOL programs. 
Figure 11-8. Link-Editing an Action Program Using Standard Job Control 
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Figure 11-9 shows a job control stream for compiling and linking a 1974 COBOL 
action program, using both the COBL74 and LINKjprocs. The action program is 
stored in the LOAD action program library (see 11.4). The LINKjproc generates a 
device assignment for the load library. 



// JOB COBL 








//MYPROG 


C0BL74 


IN=(RES) 






// PARAH 


IHSCOD= 


=REN 






//CREDIT 


LINK MYPROG, OUT= 


=(IMSVOL 


LOAD) 


/& 










// FIN 











Figure 11-9. Compiling and Linking a COBOL Action Program Using Jproc 

Figure 11-10 shows a job control stream for assembling and linking a BAL action 
program, using standard job control. A device assignment set is required for the 
output file, LOADLIB. 



// 


JOB ASML 




// 


DVC 20 // LFD PRNTR 




// 


DVC 50 // VOL IMSVOL // LBL LOADLIB 


// LFD LOADLIB 


// 


W0RK1 




// 


W0RK2 




// 


EXEC ASM 

. source program 




/* 






// W0RK1 




// EXEC LNKEDT 




// 


PARAM OUT=LOADLIB 




/$ 


LOADM PAYROL 
INCLUDE ASMPRG 
INCLUDE ZF#LINK,$Y$OBJ 




/* 






/& 






// FIN 







Figure 11-10. Assembling and Linking a BAL Action Program Using Standard Job Control 
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1 1 .4. Storing Action Programs in a Load Library 

When you link-edit an action program, you must specify the load library where you 
want it stored. IMS has specific requirements for storing action programs. 

The first requirement is that all your action programs must reside in the same load 
library. 

The load library you choose depends on whether or not you configure the fast load 
feature by specifying FASTLOAD=YES in the OPTIONS section of your IMS 
configuration. (See the IMS System Support Functions Programming Guide, 
UP-11907.) The fast load feature improves online performsince in applications with 
large action programs or frequent action program loading. 

If you configure fast loading, place all action programs in a separate action program 
load library in unblocked format. You assign this library at IMS start-up with the 
LFD-name LOAD. At start-up, you also assign the fast load file, LDPFILE. The first 
time a transaction calls on a particular action program, IMS copies the program from 
LOAD to the LDPFILE. After that, action programs are loaded from LDPFILE. 

If you do not want fast loading, you can store your action programs in either of two 
libraries (but all in the same library): 

1 . The system load library, $Y$LOD 

2. The library containing your online IMS load module. This library is identified at 
configuration time by the LIBL parameter of the IMSCONF jproc. 

To improve performance after link editing your action program, put the program 
module in block format, using the BLK librarian control statement. (Refer to the 
System Service Programs (SSP) Programming Reference Manual, UP-8842.) 

Note: If you use downline loading (10.1), store your universal terminal system 

(UTS) programs in $Y$LOD or in the library containing the online IMS load 
module. Do not store UTS programs in the LOAD action program library. 



c 



c 
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1 1 .5. Replacing Action Programs in the Load Library 
during Online Processing 

You can replace action programs in the load library while IMS is online, whether or 
not you use the fast load feature. However, you canotiot replace resident subprograms 
during online processing. 

You replace an action program in the $Y$LOD, LOAD, or other load library by 
recompiling (or reassembling) and relinking, or by applying a patch (COR). For an 
explanation of the COR function, see the System Service Programs (SSP) Operating 
Guide, UP-8841. 

When you use the fast load feature, you must insert the statement 

// DD ACCESS=EXCR 

in the device assignment set for the LOAD library in the compile and link or COR job 
control stream. 

The job control stream in Figure 11-11 recompiles and links a 1974 COBOL action 
program for output to the LOAD file. This example assumes you use the fast load 
feature. 



\»_v^ 
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// JOB RECOMP 

// DVC 50 // VOL IMSVOL // DD ACCESS=EXCR // LBL LOAD // LFD LOAD 

//MYPROG C0BL74 IN=(RES) 

// PARAM IMSCOD=YES 

//CREDIT LINK MYPROG, OUT=(IMSVOL, LOAD) 

/& 

// FIM 



Figure 11-11. Recompiling and Linking an Action Program during Online Processing 

After replacing the action program in the load library, issue the ZZPCH master 
terminal command. The next time a transaction calls on the action program, IMS 
loads the new version from the load library. When you use the fast load feature, IMS 
copies the new version to the LDPFILE. The ZZPCH master terminal command is 
described in the IMS Terminal Users Guide, UP-9208. 

Follow the same procedure to add an action program to the load library that is missing 
at start-up. Of course, the program must be defined in a PROGRAM section of the 
IMS configuration. 

When you use the fast load feature, do not use ALTER statements in the job control 
steam at IMS start-up. When you do not use fast loading, you can insert ALTER 
statements in the start-up job control stream to make temporary changes to action 
programs. 
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Section 1 1 

Compiling, Linking, and Storing Action 

Programs 

11.1. Preparing Action Programs for Online Processing 

After you write a COBOL or BAL action program or subprogram, you must do the 
following: 

1. Compile or assemble the action program or subprogram (11.1). 

2. Link-edit the program to create a load module (11.2). 

3. Store the program in the appropriate load library (11.3). 

4. Identify the program to IMS in a PROGRAM section of the configuration. (See the 
IMS System Support Functions Programming Guide, UP-11907.) 

5. Identify the load library in the job control stream at IMS start-up, unless 
programs are stored in the system load library, $Y$LOD. (See UP-11907.) 

This section tells you how to compile (or assemble) and link your action programs and 
subprograms and where to store them for use during the online IMS session. For 
additional information on the job control statements and procedures shown in the 
examples, refer to the current versions of the Job Control Programming Guide, 
UP-9986, and the appropriate language manual. 
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11.2. Compiling or Assembling Action Programs ^ 

You assemble a basic assembly language action program or subprogram the same way 
as any other BAL program. 

You compile a COBOL action program or subprogram the same way as other COBOL 
programs, with one exception. That exception is different for 1974 American National 
Standard COBOL and extended COBOL and also depends on whether the program is 
sharable, nonsharable (serially reusable), or reentrant. 

11.2.1. Sharable, Nonsharable (Serially Reusable), or Reentrant 
COBOL Programs 

To compile a sharable or serially reusable 1974 COBOL program, include the job 
control statement: 

// PARAH IMSCOD=YES 

To compile a sharable or serially reusable extended COBOL program, include the job 
control statement: 



// PARAM OUT=(M) 

To compile a reentrant 1974 COBOL program, include the job control statement: 

// PARAM IMSCOD=REN 

The COBOL compiler checks for IMS language restrictions and issues diagnostics 
when you compile your serially reusable programs with the IMSCOD=YES or 
OUT=(M) parameters. However, if your program is not written to sharable standards 
(for instance, the procedure division contains statements that move data to the 
working-storage section), you cannot compile it with IMSCOD=YES or OUT=(M). 

To share COBOL action programs or subprograms, you must specify the TYPE=SHR 
and SHRDSIZE parameters in your IMS configuration in addition to including the 
shared code PARAM statement at compilation time. You can share action programs 
only in multithread IMS. 

Specify the TYPE=RNT parameter in your IMS configuration, and compile the 
program with the IMSCOD=REN parameter when you use 1974 COBOL reentrant 
action programs or subprograms. (See 2.3 for restrictions.) 

Increase the work area size on the WORKSIZE parameter in your IMS configuration 
to include the compiler's object program reentrancy control size. Include this 
additional area in your work area size whenever you compile the program with the 
IMSCOD=REN parameter (even if you specify TYPE=SER or TYPE=SHR in your IMS 
configuration). 






c 
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To compile a nonsharable 1974 COBOL program, include the job control statement: 

// PARAM CALLST=YES 

to assure the proper linkages to IMS at CALL interrupts. However, the compiler does 
not check for IMS language restrictions when you use CALLST=YES instead of 
IMSCOD=YES or IMSCOD=REN. 

There is no special PARAM statement for compiling nonsharable extended COBOL 
action programs. When you omit PARAM OUT=(M), the compiler does not check for 
IMS language restrictions and you receive the COBOL error message: 

Ue NO EXIT PROGRAM NOR RETURN STATEMENT ASSOCIATED WITH 
ENTRY OR USING STATEMENT 

You can ignore this message. 

Table 11-1 summarizes the use of PARAM statements for sharable, nonsharable 
(serially reusable), and reentrant COBOL action programs. 

Table 11-1. Compiling Sharable, Nonsharable, and Reentrant COBOL Action Programs 

1974 COBOL Extended COBOL 



Sharable Include // PARAM IMSCOD=YES. 

Action Compiler checks for IMS 

Program language restrictions. 

Nonsharable Include // PARAM CALLST=YES. 

Action Assures proper linkages to IMS at CALL 

Program irrterrupts. Compiler does not check for 
IMS language restrictions. 

Reentrant Include // PARAM IMSCOD=REN. 

Action Compiler checks for IMS language 

Program restrictions. 



Include// PARAM OUr=(M). 
Compiler checks for IMS 
language restrictions. 

No substitute for// PARAM OLJr=(M). Compiler 
does not check for IMS language restrictions. 
Generates error message which can be ignored. 



Not supported. 



o 



For a shared COBOL action program, the size of the volatile data area is printed in 
decimal in the compilation summary listing. The format of this message is: 



SHARED CODE VOLATILE DATA AREA=nnnn BYTES 



Multithread IMS uses the shared code volatile data area to save and restore data at 
CALL interrupts. It is not used in single-thread IMS. 
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Use this size for the SHRDSIZE parameter specification in the ACTION section of 
your IMS configuration. If the action includes more than one COBOL action program, 
use the largest shared code volatile data area for this specification. 

In the compilation summary listing for reentrant 1974 COBOL action programs, the 
additional IMS work area needed by the object program is printed in decimal. The 
format of this message is: 

REENTRANCY CONTROL=nnnnnn WORKAREA BYTES 
(NOT INCLUDING PROGRAM DEFINED DATA AREAS) 

This additional work area is used by the object program for its control variables. 

Add this additional work area to the WORKSIZE parameter specified in the ACTION 
section of your IMS configuration. The work area size must be large enough to 
accommodate the maximum program data area size and the sum of all concurrently 
active object program reentrancy control areas. 

If you do not specify a large enough work area, program data areas are destroyed, and 
the action program may be abnormally terminated. 



c 



11.2.2. Job Control for Compiling COBOL Action Programs 

To compile a 1974 COBOL action program or subprogram, you can use either the 
COBL74 job control procedure (jproc) or the EXEC COBL74 job control statement. 

Figure 11-1 uses the jproc and assumes that the source program, MYPROG, is filed in 
the system source library, $Y$SRC. The program is sharable. 



o 



II 


JOB PR0G1 




//MYPROG C0BL74 


IN=(RES) 


// 


PARAM IMSCOD: 


=YES 


/& 






II 


FIN 





Figure 11-1. Compiling a C0BL74 Action Program Using Jproc 
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When you use the EXEC COBL74 job control statement, you must allocate a printer 
and three work files for the COBOL compiler. In Figure 11-2, the source program is 
embedded in the job control stream. The program is not sharable. 



// JOB PR0G2 


// DVC 20 // LFD PRNTR 


// W0RK1 


// W0RK2 


// W0RK3 


// EXEC C0BL74 


// PARAH CALLST=YES 


/$ 


. source program 


/* 


/& 


// FIH 



o 



Figure 11-2. Compiling a COBL74 Action Program Using Standard Job Control 

To compile an extended COBOL action program or subprogram, you can use either the 
COBOL jproc or the EXEC COBOL job control statement. 

Figure 11-3 executes the extended COBOL compiler using the COBOL jproc. In this 
example, the source program is embedded in the job control stream, and the program 
is sharable. 



// 


JOB PR0G3 




// 


COBOL 




// 


PARAM OUT= 


=(M) 


/$ 








. source 


program 


/* 






/& 






// 


FIN 





Figure 11-3. Compiling an Extended COBOL Action Program Using Jproc 
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Figure 11-4 uses the EXEC COBOL job control statement and assumes that the 
source program, MYPROG, is filed in a user source library, SRCIN. Notice that a 
device assignment set is required for the user source library. The program is sharable. 



// JOB PR0G4 

// DVC 20 // LFD PRNTR 

// DVC 50 // VOL DISK01 // LBL SRCLIB // LFD SRCIN 

// W0RK1 

// W0RK2 

// W0RK3 

// EXEC COBOL 

// PARAH IN=HYPROG/SRCIN 

// PARAM OUT=(M) 

/& 

// FIN 



Figure 1 1-4. Compiling an Extended COBOL Action Program Using 
Standard Job Control 



11.2.3. Job Control for Assembling BAL Action Programs 

You assemble BAL action programs and subprograms the same way as other BAL 
programs, using the ASM jproc or the EXEC ASM job control statement. 

Figure 11-5 uses the ASM jproc and assumes the source program, ASMPRG, is filed in 
the system source library, $Y$SRC. 



c 



// JOB PROGS 

//ASMPRG ASM IN=(RES) 

/& 

// FIN 



Figure 11-5. Assembling a BAL Action Program Using Jproc 
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Figure 11-6 uses the EXEC ASM job control statement and takes source input from 
the job control stream. You must allocate a printer and two work files for the 
assembler. 



\ y 



II 


JOB PR0G6 






II 


DVC 20 // 


LFD 


PRNTR 


II W0RK1 






// W0RK2 






II 


EXEC ASM 






1% 










. source 


arogram 


1* 








/& 








II 


FIN 







Figure 11-6. Assembling a BAL Action Program Using Standard Job Control 



1 1 .3. Link-Editing Action Programs 



After you obtain a clean action program compilation or assembly, you must link-edit 
the program and store it in the appropriate load library. Load libraries are discussed 
in 11.4. 

You can use the LINK job control procedure for a BAL program or for a COBOL 
program compiled with PAEAM IMSCOD=YES, PARAM IMSCOD=REN, or PARAM 
OUT=(M). You must use the EXEC LNKEDT job control statement for nonsharable 
COBOL action programs. 

On the LINK jproc, you must specify the OUT parameter to store the action program 
in a load library: 

// LINK action-program-name, OUT= [(vol-ser-no, label)! 

[(RES,$Y$LOD) J 

For example: 

// LINK MYPROG,OUT=(RES,$Y$LOD) 

If you want to give the action program load module a different name than the object 
module, use this format: 

//load-module-name LINK object-module-name, 
OUT= ("(vol-ser-no, label)! 
\(RES,$Y$LOD) J 
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Figure 11-7 uses the jproc to link-edit an object module called MYPROG and create a 
load module called CREDIT. Output is to LOADLIB. You do not need a device 
assignment for LOADLIB because the LINK jproc generates it from your OUT 
specification. 



// JOB LINK 

//CREDIT LINK MYPR0G,0UT=<IMSV0L, LOADLIB) 

/& 

// FIN 



Figure 11-7. Link-Editing an Action Program Using Jproc 

When you execute the linkage editor using standard job control, you need a LOADM 
statement to name the load module and INCLUDE statements for the action program 
object module and the IMS link module, ZF#LINK 

A nonsharable extended COBOL action program or subprogram also requires an 
ENTER statement. The ENTER statement must be the last linkage editor control 
statement in your job control stream. 

Figure 11-8 shows a standard job control stream for the linkage editor. The linkage 
editor requires a printer file and one work file. You can omit the printer file if you 
assigned one to the compiler in the same job control stream. Output is to the system 
load library, $Y$LOD; a device assignment is not needed for this file. 



// 


JOB LNKEDT 




// 


DVC 20 // LFD 


PRNTR 


// U0RK1 




// 


EXEC LNKEDT 




II 


PARAM OUT=$Y$LOD 


/$ 


LOADM CREDIT 






INCLUDE MYPROG 


© 




INCLUDE ZF#LINK,$Y$OBJ 




ENTER MYPROG 


® 


/* 






/& 






// 


FIN 





Notes: 



(V) For extended COBOL, the object module name is appended with 00. 
(T) Required only for nonsharable extended COBOL programs. 
Figure 11-8. Link-Editing an Action Program Using Standard Job Control 
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Figure 11-9 shows a job control stream for compiling and linking a 1974 COBOL 
action program, using both the COBL74 and LINKjprocs. The action program is 
stored in the LOAD action program library (see 11.4). The LINKjproc generates a 
device assignment for the load library. 



// JOB COBL 








//MYPROG 


C0BL74 


IN=(RES) 






// PARAH 


IHSCOD= 


=REN 






//CREDIT 


LINK MYPROG, OUT= 


=(IMSVOL 


LOAD) 


/& 










// FIN 











Figure 11-9. Compiling and Linking a COBOL Action Program Using Jproc 

Figure 11-10 shows a job control stream for assembling and linking a BAL action 
program, using standard job control. A device assignment set is required for the 
output file, LOADLIB. 



// 


JOB ASML 




// 


DVC 20 // LFD PRNTR 




// 


DVC 50 // VOL IMSVOL // LBL LOADLIB 


// LFD LOADLIB 


// 


W0RK1 




// 


W0RK2 




// 


EXEC ASM 

. source program 




/* 






// W0RK1 




// EXEC LNKEDT 




// 


PARAM OUT=LOADLIB 




/$ 


LOADM PAYROL 
INCLUDE ASMPRG 
INCLUDE ZF#LINK,$Y$OBJ 




/* 






/& 






// FIN 







Figure 11-10. Assembling and Linking a BAL Action Program Using Standard Job Control 
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1 1 .4. Storing Action Programs in a Load Library 

When you link-edit an action program, you must specify the load library where you 
want it stored. IMS has specific requirements for storing action programs. 

The first requirement is that all your action programs must reside in the same load 
library. 

The load library you choose depends on whether or not you configure the fast load 
feature by specifying FASTLOAD=YES in the OPTIONS section of your IMS 
configuration. (See the IMS System Support Functions Programming Guide, 
UP-11907.) The fast load feature improves online performsince in applications with 
large action programs or frequent action program loading. 

If you configure fast loading, place all action programs in a separate action program 
load library in unblocked format. You assign this library at IMS start-up with the 
LFD-name LOAD. At start-up, you also assign the fast load file, LDPFILE. The first 
time a transaction calls on a particular action program, IMS copies the program from 
LOAD to the LDPFILE. After that, action programs are loaded from LDPFILE. 

If you do not want fast loading, you can store your action programs in either of two 
libraries (but all in the same library): 

1 . The system load library, $Y$LOD 

2. The library containing your online IMS load module. This library is identified at 
configuration time by the LIBL parameter of the IMSCONF jproc. 

To improve performance after link editing your action program, put the program 
module in block format, using the BLK librarian control statement. (Refer to the 
System Service Programs (SSP) Programming Reference Manual, UP-8842.) 

Note: If you use downline loading (10.1), store your universal terminal system 

(UTS) programs in $Y$LOD or in the library containing the online IMS load 
module. Do not store UTS programs in the LOAD action program library. 



c 
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1 1 .5. Replacing Action Programs in the Load Library 
during Online Processing 

You can replace action programs in the load library while IMS is online, whether or 
not you use the fast load feature. However, you canotiot replace resident subprograms 
during online processing. 

You replace an action program in the $Y$LOD, LOAD, or other load library by 
recompiling (or reassembling) and relinking, or by applying a patch (COR). For an 
explanation of the COR function, see the System Service Programs (SSP) Operating 
Guide, UP-8841. 

When you use the fast load feature, you must insert the statement 

// DD ACCESS=EXCR 

in the device assignment set for the LOAD library in the compile and link or COR job 
control stream. 

The job control stream in Figure 11-11 recompiles and links a 1974 COBOL action 
program for output to the LOAD file. This example assumes you use the fast load 
feature. 
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// JOB RECOMP 

// DVC 50 // VOL IMSVOL // DD ACCESS=EXCR // LBL LOAD // LFD LOAD 

//MYPROG C0BL74 IN=(RES) 

// PARAM IMSCOD=YES 

//CREDIT LINK MYPROG, OUT=(IMSVOL, LOAD) 

/& 

// FIM 



Figure 11-11. Recompiling and Linking an Action Program during Online Processing 

After replacing the action program in the load library, issue the ZZPCH master 
terminal command. The next time a transaction calls on the action program, IMS 
loads the new version from the load library. When you use the fast load feature, IMS 
copies the new version to the LDPFILE. The ZZPCH master terminal command is 
described in the IMS Terminal Users Guide, UP-9208. 

Follow the same procedure to add an action program to the load library that is missing 
at start-up. Of course, the program must be defined in a PROGRAM section of the 
IMS configuration. 

When you use the fast load feature, do not use ALTER statements in the job control 
steam at IMS start-up. When you do not use fast loading, you can insert ALTER 
statements in the start-up job control stream to make temporary changes to action 
programs. 
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Section 12 

Debugging Action Programs 



Though error-free programs are every programmer's dream, in reahty they never 
seem to materialize. After all the explanations are made about how to program 
applications correctly, probably the most important tool a programmer has is his 
working knowledge of debugging procedures. Consequently, it's important to know 
how to debug your action program using the snap dump feature provided by IMS. 

12.1. Types of Snap Dumps 

You can obtain two lypes of snap dumps: 

1. Termination snap dump 

2. CALL SNAP dump 

A termination snap is caused by action program termination either by voluntarily 
moving an S to the termination indicator or by abnormally terminating due to 
program check or timer-check (time out due to a loop in the action program). 

A CALL SNAP dump is caused by your program volimtarily issuing the CALL SNAP 
statement in a COBOL action program or the ZGHfCALL SNAP macroinstruction in a 
BAL action program. The action program does not terminate to produce this dump. 

IMS provides both edited and unedited snap dumps. In single-thread IMS, 
termination snaps are always edited; however, for CALL SNAP dumps only unedited 
snap dumps are available. In multithread IMS, users must specify SNAPED=YES in 
the OPTIONS section of the IMS configuration to obtain edited snap dumps. 
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12.2. Termination Snap Dumps 



Figure 12-1 illustrates the general layout of a termination snap dump caused by S 
termination indicator or abnormal termination. 

This same general layout appUes to single-thread and multithread IMS. 
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Figure 12-1. Layout of a Termination Snap Dump 

There are six sections to each termination snap dump: edited headers, IMS and action 
program registers, interface areas, action program load area, the thread control block, 
and the terminal control table. 
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Edited headers 

The edited header section contains information about the action program that 
was running when the snap occurred. Included is the name of the action program 
load module that was executing, an allocation map that provides the relative 
addresses of action programs and IMS areas needed in debugging the program, 
and a general statement of why the snap dump occurred: for example, USER 
REQUESTED VOLUNTARY TERMINATION. 

IMS and action program registers 

The next section contains registers and their contents. Here, you'll find one or two 
sets of registers depending on the reason for the snap dump. If your action 
program voluntarily terminated with a snap, that is, S termination indicator, 
your snap dump contains one set of registers - IMS registers. These registers are 
of little use to you. 

When you voluntarily terminate your action program to obtain a snap dump, 
you're usually checking contents of interface areas that are easily beatable from 
the allocation map in your snap dump. In this situation, you do not need to obtain 
a program status word from the save area. Furthermore, no program status word 
is passed to the save area on a termination snap. 

If, however, your action programs are in BAL and you do need to know your 
action program's register contents on a termination snap, look in your action 
program's save area plus C^^ bjrtes to find registers 14, 15, and 0-12, in that 
order. 

To arrive at the save area plus C^^, locate the BAL program information block 
DSECT field, ZA#PSAVE, which contains the address of your action program 
save area. (See Figure 3-2 for the BAL program information block DSECT.) 

On the other hand, if IMS terminates your action program abnormally, the snap 
dump contains two sets of registers - user action program registers and IMS 
registers. 

User registers precede IMS registers and are labeled so they are easily 
identifiable. Just above the user registers 0-F is the 8-b3^e program status word 
indicating in its last three bytes the address of the instruction immediately 
following the one that caused the abnormal termination. (See Figure 12-11, 
program s tatus w ord, 
EeE6eEei Aef^^H^^.) 

Interface areas 

Following the register section, you find the interface areas - program information 
block, output message area, input message area, work area, continuity data area, 
and defined record area. 
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The next section of the snap dump is the action program load area. It contains the 
executable load module generated by the linkage editor. 

Thread control block 

Following the action program area is a section used for the action program's 
thread control block. In the third control block, most pointers and flags reqmred 
to control the user environment are stored for use by IMS and indirectly by the 
user action program. 

Figure 12-2 illustrates the relationship between the IMS thread control block and 
the user interface areas for both single-thread and multithread IMS. 
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Figure 12^2. Relationship between THCB and Interface Areas 
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Notice that pointers within the thread control block point to each interface area. 
Single-thread and multithread IMS differ only in the location of these pointers 
and in the relative order of the interface areas themselves. 

Also, the program information block (first interface area) in the thread control 
block is located 20 bytes into the thread control block in a multithread 
termination snap. In a single-thread termination snap, the program information 
block begins at the first byte of the thread control block. 

Terminal control table 

The last section in the snap dump is the terminal control table. Data in this area 
is relevant to the terminal that initiated the action and is the least useful section 
of the dump to the IMS programmer. 
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12.3. CALL SNAP Dumps 



12.3.1. Layout Description 

Figure 12-3 illustrates the general layout of CALL SNAP dump. Except for the edited 
headers, this layout pertains to single and multithread CALL SNAP dumps. All 
single-thread CALL SNAP dumps are unedited. 
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Figure 12-3. Layout of a CALL SNAP Dump 

There are three sections in each CALL SNAP dump: 

1 . Edited headers (for edited dumps) 

2. IMS registers 

3. Requested main storage areas 

The edited Header section contains information about the action program that was 
running when the CALL SNAP occurred. Included is the name of the action program 
load module that was executing, an allocation map that provides the relative 
addresses of action programs and IMS areas needed in debugging the program, and a 
general statement of why the snap dump occurred; for example, USER INLINE 
SNAP. 
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The register section contains IMS registers only. No program registers are shown. 
These registers are of Httle use to you. 

Following the register section, you find the main storage area. The main storage areas 
included in the CALL SNAP dump are only those you named on the SNAP function 
call in your action program. You can dump up to six main storage areas including 
interface areas. 



12.3.2. SNAP Function Call 

When you want to debug your action program without terminating the program, use 
the SNAP function call. The SNAP function dumps up to six noncontiguous main 
storage areas in hexadecimal. The printer file is breakpointed. Output is to the 
printer. COBOL and BAL formats for the SNAP function calls are: 

• COBOL format 

CALL 'SNAP' USING start-area- 1 end-area- 1 

[...start-area-6 end-area-6]. 

• BAL format 

ZG#CALL SNAP,(start-addr-1, end-addr-1[, ...start-addr-6, 
end-addr-6]) 

The start-area-1 and end-area-1 parameters are paired for the COBOL CALL 
statement just as the start-addr-1 and end-addr-1 parameters are paired for the BAL 
CALL statement. The start-area-1 is the data name of the beginning of the area to be 
snapped and the end-area-1 is the data name of the end of the area to be snapped. 

For the BAL CALL macroinstruction, the start-addr-1 and end-addr-1 parameters 
indicate the start and end addresses of the area being snapped. 

The SNAP function dumps up to six areas including the program information block, 
input message area, work area, output message area, continuity data area, working- 
storage (COBOL), and defined storage area (BAL). 

In the FIXSAM action program (Figure 12-8, line 312) the SNAP function call shows 
how the start areas and end areas are paired and their data names defined elsewhere 
in the program. Though the beginning and ending identification of these snapped 
areas may occur on the SNAP function call in any order as long as they are paired, the 
interface areas take their beginning and ending identification from the single and 
multithread activation record layouts shown in Figure 12-2. 
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12.4. Single-Thread and Multithread Snap Dumps 

There are three major differences between single-thread and multithread snap 
dumps. First, the order of the interface areas is different. In a single-thread dump, it 
is: program information block; output message area; input message area; work area; 
continuity data area; and defined record area if defined files are used. On a 
multithread dump, it is: program information block; output message area; continuity 
data area; work area; input message area; and defined record area if defined files are 
used. Since the allocation map in an edited dump points directly to these areas, there 
should be no difficulty in locating them in either single or multithread IMS dumps. 

The second major difference concerns the thread control block. The format for single- 
thread and multithread is totally different. Figures 12-4 and 12-5 provide listings of 
the thread control block DSECTs for both single-thread and multithread IMS. By 
examining these figures, notice that although the format is different, the data they 
contain is basically the same. 

The third difference is if the action program is a shared code COBOL program; in 
multithread, the termination snap dump shows an additional area appended to the 
end of the program information block. This is the shared code volatile save area used 
by IMS and COBOL to make COBOL reentrant at CALL interrupt. This portion of the 
dump is of little use to an action programmer. 

The terminal control table for single and multithread IMS is also a valuable 

debugging aid. Figure 12-6 shows the single-thread terminal control table, and Figure / 

12-7 shows the multithread terminal control table. \^ 
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Figure 12-4. Siiigle'Thread Coittt>l Block (Part 1 of 4) 
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Figure 12-4. Single-Thread Control Blocic (Part 2 of 4) 
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*'20» OMS nUN-UNIT tXlSTS 



REJUEST TO OMS 



Figure 12-4. Single-Thread Control Block (Part 3 of 4) 
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LOC. LINE SOORCE 

COOnI? HOI 3H+ZB01MSNA 

COOOCa BOl J6 + Zfll>DM5NA 

0C0173 Hni36 + ZBitFLCi5 

300083 BriJ7+ZB«KAT 

CiCOO'49 B0138*Zb«STATs 

700020 BCI39*ZbllSFStN 

(50000H B0140*ZB»GLB 

COOOOt BGltl+ZB«OED 

000171 tir^l'iZ* 

tSOClT* HCl M3*Zb»LPCT 

tl00l7S bOMH + ZanLACT 

00017C SOI "is + ZBuuao 

000183 ttOl '♦(b + ZBBNLST 

000182 B0M7 + 

0O018'4 B0M8 + ZC«CCA 

OOOlBS B01HV*ZC«LOCAP 

C'OOIHC BOISO + ZBBMOICE 

0001V3 HDlbl+ZbllU^!DE^ 

COOlVt B01b2 + Zr4«tr>ATE 

500198 bClb3+Zb»sESLN 

CC019C BCl bM + ZlJKTHFlN 

000I9C bOlbS+ZTxHLEN 

00019C B01b6+ZTBTLEN 

000003 eni S7 + ZCH I IP 



bTATE 
EwlJ 
EQU 
US 

Eljll 

tQO 

tiJU 

E'ilU 

EQU 

DS 

OS 

DS 

OS 

US 

C/S 

US 

OS 

US 

uS 

L)S 

oS 

'oS 

EQl) 

t'MU 

CSECT 



MLNF 
X'10« IMS NOT ALLOWtn ACCESS TO DHS 
X«08» QMS IS NOT THERE 
XLl 
X'»C» KATAk 




._ U..JSEO 

F LAST PCT A0URE5S 

F UAST ACT ADOKESb 

F ■ " - • ■ 



Oi>«ESS 




I 
DEf^TRANS.COoES 



- ■•.*! »<:»w'. t ;.i,ik.V*s 



Figure 12-4. Single-Thread Control Block (Part 4 of 4) 
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LOC. 




LINE SOURCE 
273 


STATEHENT 
ZM*OTHCB 




000000 




27**ZT#DTHCB 


OSECT 


I 




** IMS THREAD CONTRL BLOCK - HULTI THREAD •• 


000000 




275*ZT#THQPT 


OS 


F 


• 


NEXT THREAD IN QUEUE POINTER 


00000* 




276+ZTlKNTHCB 


DS 


F 


• 


NEXT THREAD FOR SCHEDULING 


000008 




277*ZT»THURF 


OS 


X 


• 


URGENT FLAG - ROUTINE 


000009 




278*ZTIITHR0F 


DS 


X 


• 


THREAD READY FLAG 1 - READY 


OOOOOA 




279+ZT»DWAIT 


DS 


0> 


• 


BIT INITIAL THREAD WAIT FLAG - WAIT 


OOOOOA 




2eo*ZT#R£GRS 


OS 


X 


• 


BIT 7 RESTORE REGISTER FLAG - YES 


OOOOOB 




ZSl^-ZTflECBB 
Z8Z** 
283** 
28*+» 


DS 


X 


• 


BIT CANCEL FLAG 1 - CANCEL 

BIT Z OUTPUT MESSAGE GENERATED BY ZG«NTHS0 

BIT 3 INTERNAL CANCEL INITIATED 

BIT 7 lECB FLAG 1 - 3 WORD 


OOOOOC 




285*ZTI»THSVR 


OS 






THREAD SAVE AREA REGISTER 


OOOOIO 




286*ZT»THRAD 


DS 






THREAD RETURN ADDRESS 


000014 




287+ZT»TPIBA 


OS 






PROGRAM INFORMATION BLOCK ADOR 


000018 




Z88+ZT«TIHA 


OS 






INPUT MESSAGE AREA ADOR 


OOOOIC 




Z89+ZT«THA 


OS 






WORK AREA ADOR 


000020 




Z90+ZTIT0MA 


DS 






OUTPUT MESSAGE AREA ADOR 


00002'^ 




Z91*ZT»TC0A 


DS 






CONTINUITY DATA AREA AOOR 


000028 




292*ZT«TDRMA 


OS 






DEFINED RECORD AREA AOOR 


00002C 




293*ZT*DDREC 


OS 






DATA DEFINITION RECORD ADOR 


000030 




Z9*+ZT«SU8FL 


OS 






DEFINED FILE SUB-FILE OESC ADOR 


00003* 




Z95+ZT»TFAM 


OS 


8F 


• 


FILE ALLOCATION MAP 


000020 




Z96*ZT»TNUMF 


ECU 


*- 


ZT«TFAH 


. FILE ALLOCATION MAP LENGTH 


00005* 




Z97+ZT#TATA 


OS 






ACTION CONTROL TABLE RECORD ADOR 


000058 




Z98+ZT»TPTA 


DS 






PROGRAM CONTROL TABLE RECORD ADOR 


00005C 




Z99+ZT»TPTA1 


DS 








000060 




300+ZT*TTTA 


OS 






TERMINAL CONTROL TABLE RECORD AOOR 


00006* 




30l*ZTfTIHB 


OS 






INPUT MSG BUFFER AOOR 


000068 




302tZT*TE0lT 


OS 






EDIT TABLE ADOR 


00006C 




303+ZTiTRIO 


DS 


CL8 . 


TRANSACTION ID 


00007* 




30*+ZT»TIN0 


OS 


XLl . 


CONTROL INDICATORS 






305+» 








BIT TERMINATION TYPE NORMAL 






306 + * 








1 ABNORMAL 






307+* 








BIT 2 ERROR RETURN NO 






308+* 








1 YES 






309** 








BIT 3-* INTERNAL MESSAGE CONTROL: 






310*« 








00 END ACTION OR END TRANSACTION 






311*» 








01 EXPLICIT OUTPUT 






31Z** 








10 DELAYED INTERNAL SUCCESSION 






313** 








11 CANCELLED 






31**» 








BIT 5 INTERNAL REQUEST INOIC FOR FM 






3l5t* 








NO 






316»« 








1 YES 






317 + * 








BIT 6 OUTPUT IN PROCESS 






318+* 








BIT 7 OUTPUT WAITED 


000075 




319+ZT«TER« 


OS 


X 


• 


ERROR CODE NUMBER 


000076 




320*ZTIIISFS1* 


DS 


H 


• 


LENGTH NEEDED BY SFS RIO 


000078 




3Z1+ZT»TES 


DS 


F 


• 


ADOR ACTION CNTRL TBL lACTI 


00007C 




322*ZC#SFSSC 


DS 


H 


• 


INPUT STATUS BYTE COUNT 


00007E 




323*ZC#ITLN 


OS 


XLl . 


XTION FLO LEN CTR-INVALIO TRANSACTION 


k ^ '.■ 




•.'. . "^ •-'. •' «■/' -">>■ 


' < ■ ! . ~ 


^^^ 


:■-:■•.: ■: 


™ TpiTT".* .■ -;■ " 



V.^''' 



Figure 12-5. Multithread Control Block (Part 1 of 2) 
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LOC. 
00007F 
000085 



000088 
00008C 
000090 

000094 
000098 

00009C 
OOQ0A8 
000004 
00OOD4 
OOOOFC 
000100 
OOOIIC 
000164 
000190 
OOOICC 
000100 
000104 

000104 
000040 
000004 
000001 
000108 
OOOIOC 
OOOIEO 
0001E4 



0001F4 
0001F8 
OOOIFC 
000200 
000204 
000208 
00020A 
00020C 
000210 
000214 
000218 
000224 
00022C 
00022C 
00022C 
000000 
000000 



LINE SOURCE 
A 324*ZC#SFSI0 
A 325-» 
A 326** 
A 327*» 
A 328*ZTfT8A 
A 329*ZT#TRPLA 
A 330*2T»TFC 
A 331*» 

A 332+ZT#TUPDA 
A 333*2T«TCR 
A 334*» 
A 335*ZT»TFMA 
A 335*ZTiTSAVl 
A 337*ZT#TSAV2 
A 338>ZT«SAV5 
A 339«-ZTfSAVE6 
A 340* 

A 341*ZT«TSAV4 
A 342+ZT«TSAV3 
A 343*ZA#PSSK 
A 344+ZTiTFLA 
A 345+ZTiTFl 
A 346+ZT#TF2 
A 347+* 

A 3484'ZT«SVIN0 
A 349*ZT«T0HR0 
A 350+ZT»ZZ0PN 
A 35H-ZT#RDF 
A 352+ZT»UDMCA 
A 353«ZTfiDHCA 
A 3S4+ZTffSiBA 
A 355+ZTI(SCLST 
A 356** 
A 357+* 
A 358*» 

A 359*ZT«SCPLA 
A 360*ZTiSCSPl 
A 361*ZT«SCPTR 
A 362»ZT#SCURF 
A 363+ZT«SCFN 
A 364+ZT#SCNTF 
A 365+ZTiSCFGl 
A 366«Zr*ATME 
A 367*ZT«XTHE 
A 358*ZT#STHE 
A 369«ZTiSCPN 
A 370*ZT#SCSP2 
A 371*ZT#SCEN0 
A 372 + 

A 373+ZTfTLEN 
A 374+IMSOSECT 
375 IMSDSECT 



STATEMENT 



OS 
OS 



CU6 
XL3 



A . 

A . 

A . 

A . 

A . 



OS 
OS 
OS 

OS 
OS 

OS 

OS 

OS 

EQU 

EOU 

OS 

OS 

OS 

OS 

DS 

OS 

OS 

ZT#TF2+l 



SUCCESSOR-ID FOR REBUILD 
UMUSED 

- FILE HANAGEHENT ENTRIES - 

- PARAMETER LIST FOR SUBTASK 
BEGIN ADOR 

REQUEST PARftH LIST AOOR 
BYTE - • OF PARANS IN LIST 

BYTE 3 - FUNCTION CODE 
UNPROTECTED DTF AODR 
COVER REG 

- OTHER - 
UORK AREA 
SAVE AREA 1 



3A . 

IIA . 

IIA . 

ZTITSAV2 . SAVE AREA 5 

ZT«SAV5+40 . 

7F'0» . 

SAVE AREA 4 
SAVE AREA 3 



18A 
llA 
15F 
F . 
F . 
F . 



EOU 

EOU 

EOU 

EOU 

DS 

OS 

OS 

DS 



OS 

DS 

OS 

OS 

OS 

DS 

OS 

DS 

DS 

OS 

OS 

DS 

EOU 

DS 

EOU 

CSECT 

CSECT 



REQUIRED BY IRAN 
APPL. HANAG. 
FLAG BYTE 

ACTIVATE FUNCTION CODE SAVED 

ZT»TF2 . FLAGS 

X'40' . INDICATES TOM READ 

X'04' . INDICATES TO WRITE 2Z0PN TERM. RECORD 

X'Ol" . MIRAM RE-READ FLAG 

A . USER PROGRAM DMCA ADDRESS 

A . IMS INTERNAL DMCA ADDRESS 

F . SIB ADDRESS 

4F . USERIDi 

PROGRAM NAMEt 
TRANSACTION CODE, 
FILE NAME ADDRESS LIST. 
PARAM LIST ADDRESS 

UNUSED 

FILE LIST PTR. 

CUR.PTR. IN LIST 

ADDRESS OF FILE NAME IN FCTI 

FILE COUNT 

SECURITY BIT FLAGS 

ACTION TIME IN MILLISECONDS 

EXPIRATION TINE ON MILLISECOND CLOCK 

STARTING TINE IN MILLISECONDS (SBSCLKI 

SET TIME ECB lEVENT CONTROL BLOCK) 

UNUSED 



F . 

F . 

F . 

F . 

F . 

H . 

H . 

F . 

F . 

F . 

3F . 

2F . 

» . 

OF . 

»-ZT#OTHCB 



LENGTH OF THREAD CONTROL BLOCK 



ww«> 



f t^e. tt-Wj* * -*^ < 



I'^AP^ '**!. _ ^' .8^*11 ^ lylyt^l.ly a* 



Figure 12-5. Multithread Control Block (Part 2 of 2) 
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LOC» 



LIME 



SOUKCE STATEMENT 



o 



000000 
S00003 

acoooM 
cgooos 
oooooc 
ooooic 

tJOOOlt 
200018 
ttOOOl A 
OOOOlB 
0000 IB 



000080 

ooootc 

000020 
OOOOlQ 
000008 
COOOOM 
000002 

scoooi 

300001 
3000IC 



CC0080 
5000'»0 
000020 

ooooio 

000008 

coooot 

S00002 
OOOOOl 

OOOOlD 
OOOOID 



coooec 
ccoots 

t?00023 
2000 IC 
C00008 

cooooM 

000002 



2712 
A2713+^C«DTCT 
A271M+* 
A2715*2C»LlNK 
A77l6+ZC«TID 
A2717+ZCBTAL 
A27la+ZC«TALT 
A2719+ZCOTTTA 
A7720+ZCBTFSR 
A2721+ZCSTCUL 
A2722+ZCBTLN 
A2723+ZC«TTST 
A272') + ZC»T5T 
A2725+* 

A2726** EG)Ua 
A2727+* 

A2728+ZC»TTLST 
A2729 + ZC«TTT+(D 
A2730*ZC«TTUM 
A273l*ZC«TT0WN 
A2732+ZC»tTHLD 
A2733+ZC«TTUT 
AZ73'( + ZC«TM«iiR 
A2735+ZC»TMTC 
A7736+ZCBT0MW 
A2737+» 
A7738+ZC«TSTl 
A2739+* 

A27M0 + * EGIUa 
A27S1+* 
A27H2 + ZC8TT IM 
A27N3+ZCOTTMT 
A 2 7 1 S ♦ Z C » T A L T S 
A27'45*ZC«TT«C 
A2746+ZCBTTMWS 
A2747+ZCOTTBTH 
A27t8*ZC»TTHP 
A27t9+ZC«TTM5 
A27B0+* 
A2751+ZC8TST2 
A27&2+ZCBTPKSF 
A2753** 

A275M + * F(<UA 
A27S5+» 

A27b6*ZCBTTuNS 
A27i7 + ZCI1TTKEL 
A77b8 + ZCBTPf<M{J 
A27S9+ZCBTPKMP 
A2760+ZCBTTSTA 
A27&1*ZCBtC0NT 
A2762+ZCBTDtLN 



ZMbOTCT 

OSECT «••• TERMINAL CQNTnnL TABLE RECORD •••• 

US F ACT LINK TO NEXT TcT IN QUEUE 

DS XLt TERMINAL 10 

DS F REL ADDR SOURCE TCT (OS/3) 

US F REL AOPR ALTERNATt TCT <0S/3) 

US F COrRESPOnDINC) TTT aDURESS 

DS F SUCC ACT REL AQDR - ROLLBACK 

DS H CONTINUITY DATA LLn&TH 

US xLi LINE Number 

uS xL7 STATUS BYTES 
EQU ZCBTTST 

TES FOR ZCBTTST/ZCBTST 



EQu 


X'80» 


EUU 


X'MQt 


twu 


X'20» 


EUlJ 


X'10» 


EdIU 


X*08» 


EQU 


X'OM» 


tyu 


X'02. 


E«U 


X'Ol • 


t«U 


X'Ol • 



LAST TCT 

TEST MODE 

URGENT MESSAGE, ACTION 

TERMINAL DOWN 

HOLD TERMINAL 

URGENT TERmINai 

MS6 WAIT (FOR ZZTST) RECEIVED 

MWRITE FOR ZZTsT (SlNLGE THREA0> 

OUTSTANDING MftRlTE tMULTl THREaD) 



ECtU 



ZCaTST*l ,1 



TES FOR ZCBTSTl 

EQU X'80« INTEhACTIVE MuOE 

tSU X'HO' MASTER TERMINAL 

EQu X'20» ALTEkNATE TERh SPECIFIED 

tUU X'lO' ROLLBACK COMPLETE 

EQU X'08» IMS SENT MS6 «a1T 

EQU X'UH" BATCH TERMINAL. 

LQU X'02» ROLLBACK IN PKqCESS 

EuiU X'Ol* MS6 TO ORIG TERM SENT 

EQU ZCBTSTl+1,1 
EQU ZCbTsT2 

TLS FOR ZCBTST2 



EQU 
EQU 
EQU 
EQU 
EQu 
EQU 
EQU 



X'aO» MWRllE ISSUED FROM ZOBUNSMT MOoUl 
X"tO» RELEASE BUFFEn AT MWRITE COMPL 

ms& in queue 

msg in process 

send auto sta1,,s message 

CONTINUOUS OUtpUT KEQUES 
DEL NOTICE -■' ' • " 



LE 



x"to 

X'20« 
X« 10» 
X 'OB' 
X'Ot* 
X«02' 



STA1,,S MESSAGE 
OUtpUT REQUESTED 
- ACTION TO BE SCHEn 






Figure 12-6. Single-Thread Terminal Control Table (Part 1 of 5) 
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n 



LOC* 


LINE SOUkCE 


STATEMENT 


OOOOOI 


*2763*ZC«TOia 
A276H+" 


EQU 


X«OH OUTPUT 6ENERA1E0 FOR INPUT QUEUING 


C000l€ 


*2765*ZC»TST3 
A2766*« 


twU 


2C«TST2*| ,1 




*2767*» EQUATES 


fOR ZC»TST3 




A2768*» 






300085 


A2769*ZC«TT0K 


EUU 


X»b0« DISCONNECT REuutSTED <S/T) 


eoooMc 


A2770 + ZOTT8NE 


LUU 


X'HO' TERMINAL'S LO* QUEUE NOT EMPTY 


acoo2o 


A277l*ZC»THURS 


t«U 


X»20« OUTPUT HEADER cAvEO 


!>000IC 


A2772*ZC«TIDN 


t'iU 


xMo« inteknal oeliveRt notice 


Cconoe 


A2773*ZC«TI(.M 


tQil 


X'08« IMS iiENEHATED ERHOR MSG 


CCOOOH 


A?77«( + ZC«COIP 


fc«U 


X"0t« CONTINUOUS OUIPUT |N PROCESS iw/T) 


000002 


A2775*2C«TNHDt 


EQU 


X'02t NO IMS REAOt rtS6 TO THIS TERMINAL 


ceoooi 


A2776+ZC»TUNAC 


tQu 


X'01« SEND UNSOLICITED OUTPuT INDICATOR 




A 2 7 / 7 ♦ • 




FOR SWITCHED MESSAGES AT ACTION END 




A?778*» 






OOOOlF 


A2779*ZC«T5T'* 
A2780*» 


EttU 


ZC»TST3*| ,1 




A77B|*» EQUATES 


FOh ZCbTSTM 




A2782*» 






ccooer 


A2783*ZC«ERMEx 


tQU 


X>6Q' A/M GENERATED ERROR HSG* 


COCOHC 


A?7e'4*ZC»SFSKH 


LQU 


X'MO« REBUILD ALLOttLD BY A/P 


C0002C 


A27e5»ZC»ABTDY 


EQU 


X'20* ABORT DYNAMIC SESSION 


OODOiO 


A278<,*ZC«DTrTl«(0 


EQU 


X'IO» ABORT TERM KI.sdOiiI 


cooooe 


*2787*ZC«SI6N 


L8U 


X'Oet SIGN ON FOH DYNAMIC SESSION 


CCOOOM 


A2788*ZC«ATTR1 


EiiiU 


X'OS« TERM HAS CONFIG" ATTRIBUTES 


coono2 


A?7a9*ZC»C0NSL 


EQu 


X«02« CONSOLE TERMINAL 


COQOOt 


A2790 + /CIICMTRD 
A2791+* 


Ewu 


X»01« OUTSTANDING TCS^UISKETTE READ FUNCTION 


00002C 


A2792*ZC«TST5 
A27»3*» 


E<4U 


ZC«TsTt*l t 1 DHS FLAaS 




A279M+* EQUATES 


FOR ZC.TSTb 




A2795+* 




• 


coooec 


A27V6*ZC»IHPRT 


EWU 


X'80' ISSUED IMPACT FOR ACTION 


sooots 


A2797*ZC»0EPNli 


EUU 


X"»0» DEPAHT PENDiNo 


ooootc 


A?798*ZC«DrPRT 


E&U 


X"«0» ACTlc/N ISSUED dEPART 


000023 


A2799*ZC«DMSUP 


t<iu 


X'^0' ISSUED DSM OPtN FOR UPDATE 


000020 


A280a*ZC«BND 


ttiu 


X'20» BOUNu/UNBOuND STATE 


ooooic 


A2801 ♦ZC«UBPND 


EQU 


X'lO* UNBlND PENDING 


ccooos 


A28C2*ZC»0''SK0 


EUU 


X«OH« DMS FORCED DEPART mITH ROLLBACK 


OOOOOH 


A2fl33*ZC»0«S0B 


EUU 


X*Ot< QMS rtUN UNIT UNBOUND 


ocoooe 


A2eu'«*ZC»UPUKu 


EUU 


X«06» OPENED FOR UPuaTE IN THib RUN-uNIT 


CCOpCiH 


A2606*ZC<iuPl)Td 


EUU 


X'OMt UPDATING RuN-UNlT IN THIS SUCCESS UNIT 


000002 


A2836+ZCBTCALL 


EUU 


X'02« FUNCTION C ALL/ TERm I N AT I ON CALL 


OCOOOJ 


A?807 + ZC»0»1S0R 
A2808** 


£U(I 


X'Ol* DMS REQUEST VIA U.K'H. 


000021 


A2fl09+ZC»TST6 
A26I0*» 


EUU 


ZC«TST5*1,I DMS FLAk,S EXTENSION 




A28U*» EUUATtS 


FOR ZCnTSTA 




A?812*« 






CC008C 


A?R13+ZC»0H5Ek 


EQU 


X'SO' DMS ERROR IN hUN-UNiT 


PCOOtC 


A2bl'**Zt»Wftm 


EUU 


X'HO' TEMPORARY FLAo •! 


1* '* •' 






- ■ •'.■-■ -., . ,' & 






Figure 12-6. Single-Thread Terminal Control Table (Part 2 of 5) 
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LOC. 
C30Q2D 
CCOOlC 



LINE SOURCE ST* 
A281& + 2C"WfiK2 tyu 
A281 6+ZCHTTMDF £«u 
A2817+* THE FOLLO 



500022 



ccoDsn 

C000M3 
35002? 

ccooic 
r3002a 



U000D9 

ooooci 

C000C3 
CCOnCB 

ceoo2H 



COOnSO 
C?0TI7 
30002C 
0500 1? 

CC00D8 

C3002S 

J3?02A 
5C0028 
CC012C 
C5003? 
S3C03H 

?eoo36 

C09n37 

5soo3e 
ceoo3A 
Cson3c 



A2818+* nETwqKk D 

A2819** ZCs 

A2820+* ZC» 

A2821*» ICn 

A2622+* ZCs 

A2823+* ZCo 

A2824*» ZC« 

A2825+* 

A2826+* 

A2627+ZC»DDPST DS 

A2828+* 

A2629+* EQUATES 

A2P3a+« 

A2831 +2C«^FMTr tQU 

A2832*ZC8FSUUT EUU 

A2833+ZCap5ED0 EQU 

A283M*ZC»DPP0T EtiU 

A283ii*» 

A2836+ZC»0nPMD uS 

A28J7** 

A2838+* EQUATES 

A2839+* 

A28H0+ZC»0TR LWU 

A28H1+ZC»PTkA tQU 

A28S2*ZCapTRC LQU 

A28'43 + ZC8PT«E EQU 

A28MM+* 

A26Hb+ZC»SFLAG DS 

A?eS6*» 

A28M7+* EQUATES 

A28'(a + » 

A28'<9 + ZC« I'-ifMT EWU 

A2850 + ZCBDYNM tulU 

A26bl+ZCasr8Tl EQU 

A28b2+ZC»ITCF tQu 

A28S3 + ZC»SFtjT2 EQu 

A28SM** 

A2e^5*ZC»SF IRC US 

A2866+* 

A28i7+ DS 

A28!58*ZC»TRCTa DS 

A78S94.ZCSTQE US 

A286Q+ZC«PPfT DS 

A?861+ZC»PQCMT DS 

A2862*ZC8MQCNT 05 

A2h63+ZCBTDELS DS 

A2B64*ZC«LiiCNT DS 

A?86b*ZC«TlN dS 

A?866*ZCaTlMT uS 



TEMENT 

X'l 
k«ING S 
YNAMIC 
TTLST 
TTUT 
TTMT 
TNHDY 
TUNaC 
ATTRI 



0» TEMPoRARr FLAu »2 

0« MOEFER ISSUt-D t-OK THIS TERMINAL 
TATUS bYTE TAGS ARE NOT CLEARED WHEN A &i OBAL 
TERMINAL DOES A S»SOFF 



X OUP STATUS BYTE 

FOR ZCsDDPST 

X'80« REMOTE TRANS 

X"40' FIND SESSION UiJSTANDINS 

X«20« PSEUdO TCT 

XM0» MWRITE FOR DDP 

X DDP MODE 

FOR ZCsDOP MODE 

C'K' DIRECTORY TRANS. ROUTING 

C'A» PROGRAM TRANS. ROUTING - ACTIVATE 

C'C PROGRAM TRANs. ROUTING - ABORT/CANCEL 

C'E» PRO&PAM TRANS. ROUTING - END 

XLl GENEhAL SFS FLAu BYTE 

FOR ZCaSFLAG 

X'aC INPUT FORMAT 

X*4C' DYNAMIC MEMORT 

x'20> SFS l-LAG I 

X' tO> INVALID XTION 

X'08» SFS FLAb 2 

XLl SFS INPUT RETRY ^OONT 

XL2 UNUSED 
A TRcT AUDk 

F CANCEL Link 

F DtsPL TO PROCESS hlLE TABLE 

H PROCESS wUEUE COUNT 

XLl LAST ICAM SVC 

XLl DELIVERY NOTICE sTATUS 

H LOW QUEUE COUNT 

H TOTAL INPUT COUNT 

H TRANS. Input couni 



Figure 12-6. Single-Thread Terminal Control Table (Part 3 of 5) 



UP-9207 Rev. 2 



1247 



Debugging Action Programs 



c 



LOC. 

rooo3E 
ccoott 

CO00H8 

cooot* 
ccootc 

COOOSD 
r30n62 

ceooBi 

COOOS*t 

rooo56 

rOD058 
C0005C 
3000 6 C 
COQOhH 

C00n68 

coootc 

CC0070 
CC007M 
CC007C 

C0006S 

00008M 

SOOOSB 
300088 

rooovn 

300092 
€00091 
C00096 
05CnB8 

roooDB 
CconOB 
Toooe:? 

tpOOF I 
CoonEb 
C900EF 

rsooFc 
coooFr 

CCOOFO 

roooF? 
caooF'* 

COOOFfc 
C0C0F8 

roooF9 

C?OOFA 

"90nF8 

CffOOFB 



LINE SOUKCt 
*2867*ZC»TTCH 
*2868»ZCaTlNCH 
»2869*2Cbt01CH 
*2fe70«ZC«T0C 
»287l*ZC«T0M5Z 
A2872*ZC«T0N 
*2673*ZC«I^'L 
A2b7<»*ZC«OML 
A287b*ZC«TML 
A2876+* OS/3 
A2877*ZL»COStw 
A?a78*ZC»DHL 
A2879+ZC»I0F 
A?e80*ZC»0t*F 
A2edl+ZC«TBF 
A7^82*ZC»0BF 
A28d3*ZC«DPhtL 
A2e8'«*ZC«T0tLC 
A28fl5*ZC«5FSTc 
A7P66*ZC«SFSFN 
AZ887*ZC«SFSA0 
A2b8e*ZC»StSlD 
A2889*ZC«T0MtH 
A289D+2C«TTKID 
A2fe9l*ZC«TRlD 
A2e92*ZC«0LCNT 
A2SV3* 

A28y'«*ZC«TCb 
A7J<95*ZC«TL I 
A2896*ZC»T*Uh 
A2b97*»»» ZC«TLI AND 
A2G98+ZC»TTtXT uS 
A28V9 + ZCIITC0DE t«U 
A?900*ZC»TtOKc OS 
A29CI*»«» TmE AtiOvE 
A293^*ZC«TnUHN US 
A2903+ZC«TOFN uS 
A29a«t* US 

A2935*ZC»TtS US 



STATEMENT 



US 

US 

US 

US 

DS 

US 

US 

US 

US 

S^T* 

EUU 

OS 

US 

OS 

US 

US 

OS 

OS 

US 

us 
us 

05 

us 
us 

two 
us 

us 
us 
us 

us 



TERH COHMANO COUN I 
TOTAL NO. INPUT Cu*RS. 
TOTAL NO. OUTPUT C"»KS« 
rOTAL OUTPUT COUNI 
SOURCE TtHM O/P Hi6« SIZE 

TImER lIwk 

INPUT MESSAGE LENtorH 

OUTPUT MESSAGE LENGTH 

TIMER MESSA6E LENGTH (OS/3 M.T.J 



OF ZChTmL 

<0S/3 S.T. ONLY) 



H 
F 
F 
H 
H 
F 
H 
H 
H 
USES 2C»COStO INSTEAU 
ZC«TmL C/O SEw COUNt 
H OOP MS(i. LENGTH 
A INPUT BoFFEK AUOh 

A ooTf-uT Buffer addr 
A timEr Buffer aooh 

A OOP euFFEH AOOn 

A UDP BUFFtR RELEASt AUDR 

XL"* USER CONTINUOUS „UTPUT CODE 

A SFS TERMINAL CLASi ENTRT AOOK 

CL8 SFS FOkMAI NAME 

A SESSION STAT TAbLt *DDR 

F SESSION 10 

F SFs DYNAMIC MEmORT 

cl6 trans id (initia, 

zc«ttRid os/** tag 

H iMc oeaDloch detection Count 

H UNUSED 

A THREAD CONTROL BLOCK AOOK 

SF TRANS LOCK INDICATOR 

8F AuUITtO UPOATt MmP 

7C«TaUM MUST AGREE *iTm ZT«TNUMF In tHE THCB 

CL8 tRanslateu Term c»u/trans code 

ZCaTTEXT Ob/t TAG 

CLl DOR nAmE 10 CHArt (HIGH BYTE ■ X'FD'I 
FIELD IS DEFINED IN U^/H BUT NOT TAGGED 
CL7 DATA DEF REC NAtiF 
CL7 DEFInEU file NAiIE 
X UNUSED 
F SUCC ACT HECORO RcLATIvE aDOK 



^ 



AOOR 
UATE/TIHt» 



MuLTI-TukEAO SYSTEMS USE ZC»tS b ZC«CDC IN PLACE OF 2r«TES 



ZC»Te5 



SUCC ACT KLCORU 
CONTINUITY DATA 



A?9C6*« 

A2VD/* 

A2908*ZC»ES 

A?909*ZCBC0l 

A2910*» 

A291 I*ZC«WA1 

A2912*ZC»Cr'l 

A2913*ZC«TTTN 

A??!"** 

A2915* 

A2916+* MULTI-IHREAO USES 

A2V17+ ORG ZChTTTN 

A?918*ZC»C0K OS H TCT RECORD 



ORG 

US 

OS 

oS 
US 
US 
OS 
oS 



Hct ATlvE AOOR 
LtNGTH 



H WORK AREA INC 

rt CONTINUITY DATA AhEA 

XLl TCT RfCORO NUMBUR 

XLl UNUSED 

H UNuSED 

ZC«CDK & ZCbCES 

NUMBER 



INC 



INSTEAD OF 7C»TTTn f. ZCbTInT 



■W 



Figure 12-6. Single-Thread Terminal Control Table (Part 4 of 5) 



V_^'' 



12-18 



UP-9207 Rev. 2 



D 



Debugging Action Programs 






LOC» 
OOOOFA 
OOOOFC 

COO 100 

COO 100 
COOlOO 
COOlOO 
000101 
COO 106 
COO 108 
COOlOA 

30C10C 
CDOl 10 
coo 1 I 

Coo 1 1 1 
0031 12 



CC0003 

trooosn 

soooio 

000020 

300010 
C00008 
SOOOOM 
000002 

COOl 13 



C0008C 

coooia 

300022 

ooooio 
oaoooB 

COOOOH 

0001 11 
COOl IB 
0001 ic 
C00120 
C0012C 

cooooo 



LINE SOURCE 
A2919 + ZC1ICES 
A2920+ZC8SCFR 
A2921+* 
A2922+ZC0TTIR 
A2923+ZC»TIR 
A2924+ 

A2925*ZC»TRWA 
A2926*ZC»FBPA 
A2927+ZC»CePA 
A292B+ZC«LBPA 
A2929+ZC«nRBCb 
A2930*» 

A2931+ZC»TLNAM 
A2932+ZCBTCHAR 
A2933 + ZCIITTSL 
A2931+ZCaTTSW 
A2936+ZCSTTTYP 
A2936*» 

A2937+* EQUA 
AZ938+* 

A2939+ZC«TTNFC 
A2910 + ZC»TT')PR 
A29MI+ZCIITTMU2 
A29H2*ZC»TT'IU1 
A29M3+ZC»TT327 
A29M1*ZC'ITTUHC 
A29H5 + ZC«>TTU20 
A29')6 + ZC»TTH0t 
A29H7** 

A29'48*ZC»TTATT 
A29HV** 

A2960** KjUA 

A2951+* 

AZ9b2+ZC»TTKAN 
A29b3*ZC8TTNVl 
A?V3l+ZC«TTSBT 
A29b5*ZC»TTPKT 
A29b6+ZC»TTCST 
A2Vb7*ZC"TTCC1 
A29B8+* 

A29b9*ZCaTlNEK 
A29A0+ZCSTRIDA 
A2961+ZCBALT1D 
A2962*ZC»TF IN 
A2963+ZCaTLtN 
A296M+Z0«0UTMT 



bTATEMENT 

US H SUCC ACT REL AUDR _ ROLLBACK 

OS XL4 COUNT FlELO FOR ROLLBACK 

DS XLl TERM 1 1,0 FOR ACTION pRO<i USING ROLLBACK 

tint ZC»TTIR OS/I TAG 

ORG ZCBTlR 

DS F TRACE WORK AREA 

US H • FIRST BLOCK OF PARTITION 

DS H • CURRENTLY ACCESSED BLOCK 

US H • LAST BLOCK OF PARTITION 

DS H •« OF REM. BYTES 1 1-- CURR. BLOCK 

US CLH LINE NAME 

US CL1 TERMINAL CH AR ACT pR I ST I CS 

£«U ZCBTCHAR SCREEN LENtiTH 

tQU ZC«TTSL+1 SCREEN WIUTH 

EQU zC»TTSW+1 terminal TyPE 

TlS FOR ZCbtTTYP 



EUU 
EUU 

tau 
Eyu 

E«U 

Eau 

twu 

EiJU 



X*00« U100/U200/uT51n/TTY 

X'80» UTSlOO PR 

X*HO« UTStOO CP (U2 mODEI 

X*20« UTSlOO CP (U1 mODEI OR UTSMOO 

X*10« IBM 3271 

X'08» UTStO 

X'01» UTS20 

X'02' UTSlOO TEXT EUiTOR 

7C»TTTYP+1 TERMINAL ATTRIBUTES 



TtS FOR ZC«TTATT 

tWU X*BO» KATAkANA 

tau x*io» non-video 

LQU X'2D» SCREEN BYPASS 

L'JU XMO« PACKET PON TERMINAL 

tQu X»08« CIRCUIT SWITCH PUN TERMINAL 

EQlJ X'OI' TERMINAL ON CLuSTEK CONTROLLER 

US F SFS ERROk FIELD 

US A PTr TO TkIDT EnTRT for CURRENT TRANSACTION 

uS F ALTERNATE TERM ID 

US OF This must always &£ at eno 

twu •-ZCaDTCT 
CSECT 



c 



Figure 12-6. Single-Thread Terminal Control Table (Part 5 of 5) 
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LOC. 


LINE SOURCE 


STATEMENT 










377 


ZMfOTCT 








000000 


A 378*2CiDTCT 
A 379** 


DSECT 


• 


•»** TERMINAL CONTROL TABLE RECORD ••»♦ 




i 


000000 


A 380*ZC#LINK 


OS 


F • 


ACT LINK TO NEXT TCT IN QUEUE 




- 


000004 


A 381+ZC»TIO 


OS 


XL4 . 


TERMINAL 10 




■ 


000008 


A 382+ZC«TAL 


OS 


r • 


REL AODR SOURCE TCT (OS/31 






oooooc 


A 383»ZC«TALT 


OS 


r • 


REL AODR ALTERNATE TCT IOS/31 




1" 


000010 


A 384*ZC#TTTA 


DS 


r • 


CORRESPONDING TTT ADDRESS 




■f 


000014 


A 385+ZCfTESR 


OS 


r • 


SUCC ACTION CNTRL TBL «ACTI AODR - ROLLBACK | 


,. 


000018 


A 386*2CiTC0L 


DS 


H . 


CONTINUITY DATA LENGTH 




I 


OOOOIA 


A 387+ZCfTLN 


DS 


XLl . 


LINE NUMBER 






OOOOIB 


A 388*ZC#TTST 


OS 


XL7 . 


STATUS BYTES 






OOOOIB 


A 389+ 


ORG 


ZC«TTST . 


RIO 


1 


OOOOIB 


A 390+ZC#TST 
A 391+* 
A 392+* 
A 393+* 


DS 


X . 


EQUATES FDR ZC#TTST/ZC*TSI 


RIO 


* 


000080 


A 394+ZC»TTtST 


EOU 


X'80' 


LAST TCT 






000040 


A 395+ZCiTTTMO 


ECU 


X'40' 


TEST MODE 




: 


000020 


A 396+ZC«TTUM 


EOU 


X'20' 


URGENT MESSAGE. ACTION 






000010 


A 397+ZCiTTOHN 


EOU 


X'lO" 


TERMINAL OOUN 






000008 


A 398+ZCiTTHLD 


EQU 


X'08' 


HOLD TERMINAL 




f ' 


000004 


A 399+ZC#TTUT 


EQU 


X'04' 


URGENT TERMINAL 






000002 


A 400 + ZCIITMWR 


EOU 


X*02' . 


MSG WAIT CFOR ZZTSTI RECEIVED 




t . 


000001 


A 40l+ZC»TMTC 


EQU 


X'Ol* 


(S.T.I MURITE FOR ZZTST (SINL6E THREAD) 






000001 


A 402+ZC«T0MH 


EQU 


X'Ol* 


(M.T.I OUTSTANDING MMRITE (MULTI THREAD! I 






A 403+* 












OOOOIC 


A 404+ZC»TSTl 
A 405+* 
A 406+* 


OS 


X . 


EQUATES FOR ZCITSTl 


RIO 






A 407+* 










000080 


A 408+ZCtTTlM 


EOU 


X»80' . 


INTERACTIVE MODE 




000040 


A 409+ZC«TTMT 


EQU 


X'40' . 


MASTER TERMINAL 






000020 


A 410+ZC«TALTS 


EQU 


X'ZO* - 


ALTERNATE TERM SPECIFIED 




* 


000010 


A 411+ZC#TTRC 


EQU 


X'lO' . 


ROLLBACK COMPLETE 




000008 


A 412+ZCfTTHWS 


EOU 


X'08' 


IMS SENT MSG WAIT 




- ' 


000004 


A 413+ZC»TTBTH 


EOU 


X»04' . 


BATCH TERMINAL 




«I 


000002 


A 414+ZCiTTRP 


EOU 


X«02' 


ROLLBACK IN PROCESS 






000001 


A 415+ZCiTT«S 
A 416+* 


EQU 


X'Ol' . 


MSG TO 0RI6 TERM SENT 




1 


OOOOID 


A 417+ZC#TST2 


OS 


X . 




RIO 




000010 


A 418+ZC»TPRSF 


EOU 


zc#tst; 


! . 




1 




A 419+* 






N » NOTIFY ICAH GRP. (B. HCCANN) « 


Rll 


b 




A 420+* 






» IF ZCfTSTZ'S DISPLACEMENT « 


Rll 






A 421+* 






T » AND/OR THE VALUE OF ZCfTPRNQ « 


Rll 






A 422+* 






E >> CHANGES (JHVI « 


Rll 


1 




A 423+* 










h' 




A 424+« 






EQUATES FOR ZC«TST2 








A 425+* 












000080 


A 426+ZC«TTUNS 


EQU 


X'80' . 


MWRITE ISSUED FROM ZO»UNSMT MODULE 






HliHHIIIIHHHHUIililH 


EOU X'40' . RELEASE SUFFER AT MWRITE COHPL 


^^^^^^^M 


1 



\J 



Figure 12-7. Multithread Terminal Control Table (Part 1 of 7) 
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LOC. 
000020 
000010 
000008 
000004 
000002 
000001 

OOOOIE 



000080 
000040 
000020 
000010 
000008 
000004 
000002 
000001 



OOOOIF 



000080 
000040 
000020 
000010 
000008 
000004 
000002 
000001 

000020 



000080 
000040 
000040 
000020 
000020 
000010 
000008 
000004 
000008 
000004 
000002 
000001 

000021 



LINE SOURCE 
A 428+ZC#TPRHQ 
A 429+ZC#TPRMP 
A 430tZC#TTSTA 
A 431+ZC#TC0NT 
A 432+ZC#T0ELN 
A 433+ZC#T0I(3 
A 434+* 
A 435+ZC#TST3 
A 436+* 
A 437+* 
A 438+* 
A 439+ZC#TT0R 
A 440+ZC#TTQNE 
A 441+ZC#THDRS 
A 442+ZC#TI0N 
A 443+ZC#TlGM 
A 444+ZCSCOlP 
A 445+ZC#TNR0Y 
A 445+ZC#TUNAC 
A 447+* 
A A48+* 
A 449+ZC«TST4 
A 450+* 
A 451+* 
A 452+* 

A 453+ZC#ERMEX 
A 454+ZC#SFSRB 
A 455+ZC(IIABTDY 
A 456+ZC#OYTW0 
A 457+ZC#SIGN 
A 458+ZC#ATTRI 
A 459+ZC#C0NSL 
A 450+ZC#CNTRD 
A 461+* 
A 462+ZC#TST5 
A 463+* 
A 464+* 
A 465+* 

A 466+ZC#IMPRT 
A 467+ZC#DEPND 
A 468 + ZCl»DEPRT 
A 469+ZC#0MSUP 
A 470+ZC#BND 
A 471+ZC#UBPN0 
A 472+ZC#0HSR0 
A 473+ZC#DHSUB 
A 474+ZC#UP0RU 
A 475+ZC#UP0T0 
A 476+ZC#TCALL 
A 477+ZC#DMS0R 
A 478+* 
A 479+ZC#TST6 



STATEMENT 



EQU 
EQU 
EQU 
EOU 
EQU 
EQU 

OS 



EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 



OS 



EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 
EQU 

OS 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 
EQU 

OS 



X'20' 
X«10« 
X'08' 
X'04» 
X«02' 
X'Ol* 



X'80« 
X'40' 
X'20' 
X'lO' 
X'OB' 
X'04» 
X'02' 
X'Ol" 



X . 



X'80' 
X'40' 
X'20' 
X'lO' 
X'08' 
X'04' 
X'02' 
X'Ol' 

X . 



X'80' 
X'40' 
X'40' 
X'20' 
X'20' 
X'lO' 
X'08' 
X'04' 
X'08' 
X'04' 
X'02' 
X'Ol' 



HSG IN QUEUE 

HSG IN PROCESS 

SEND AUTO STATUS MESSAGE 

CONTINUOUS OUTPUT REQUESTED 

DEL NOTICE - ACTION TO BE SCHEO 

OUTPUT GENERATED FOR INPUT QUEUIN 



EQUATES FOR ZC#TST3 

DISCONNECT REQUESTED IS/T) 
TERMINAL'S LOW QUEUE NOT EMPTY 
OUTPUT HEADER SAVED 
INTERNAL DELIVERY NOTICE 
IMS GENERATED ERROR MSG 
CONTINUOUS OUTPUT IN PROCESS (M/TJ 
NO IMS READY MSG TO THIS TERMINAL 
SEND UNSOLICITED OUTPUT INDICATOR 

FOR SWITCHED MESSAGES AT ACTION END 



EQUATES FOR ZC#TST4 

A/M GENERATED ERROR MSG 

REBUILD ALLOWED BY A/P 

ABORT DYNAMIC SESSION 

ABORT TERM WINDOW 

SIGN ON FOR DYNAMIC SESSION 

TERM HAS CONFIG. ATTRIBUTES 

CONSOLE TERMINAL 

OUTSTANDING TCS/OISKETTE READ FUNCTION 

DMS FLAGS 

EQUATES FOR ZC#TST5 

ISSUED IMPACT FOR ACTION 

DEPART PENDING 

ACTION ISSUED DEPART 

ISSUED DSH OPEN FOR UPDATE 

BOUND/UNBOUND STATE 

UNBIND PENDING 

DMS FORCED DEPART WITH ROLLBACK 

DMS RUN UNIT UNBOUND 

OPENED FOR UPDATE IN THIS RUN-UNIT 

UPDATING RUN-UNIT IN THIS SUCCESS UNIT 

FUNCTION CALL/TERMINATION CALL 

QMS REQUEST VIA D.R.M. 

DMS FLAGS EXTENSION 



V.„^' 



Figure 12-7. Multithread Terminal Control Table (Part 2 of 7) 
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LOC. 


LINE SOURCE 


STATEMENT 




r 






480*» 








: 






481** 






EQUATES FOR ZC«TST6 








482** 








f^ 


000080 




483»ZC»0NSER 


EQU 


X»80' 


DHS ERROR IN RUN-UNIT 


I 


000040 




48 4«ZCfWRKl 


EQU 


K'40» 


TEMPORARY FLAG #1 


ft' 


000020 




4aS«ZC*URK2 


EOU 


X»20* , 


TEMPORARY FLAG »2 


i 


000010 




486*ZCiTTMDF 


ECU 


xno' 


MDEFER ISSUED FOR THIS TERMINAL 


'i 


oooooe 




487+ZCISECTC 


EOU 


X-«08« 


CHECK TRANS. CODE FOR SECURITY 








488** 




THE FOLLOWING STATUS 8YTE TAGS ARE MOT CLEARED | 


r. 






Mt*» 




WHEN 


A GLOBAL NETWORK DYNAMIC TERMINAL DOES A SSSOFF 


1 
+ 






490** 






ZCiTTLST 


*■ 






491-»* 






ZCITTUT 








492*» 






ZC#TTMT 


'*- 






493** 






ZC#TNROY 


t 






494** 






ZCITUNAC 








495*« 






ZC#ATTRI 


h 






4964^« 






ZCfTSMSG SET/CLEAREO AT $$SDN DEPENDING 


f 






497*» 






ON ZBfSMSG CZBfSIBIf DYNAMIC 








498** 






TERMS ONLY.. 








499*» 






NOT SET/CLEAREO ON CONFIG TERMS 


' 






500»» 






IZC*ATTRI» AT iSSON.. 


%. 






50l*» 






ZCiUATTO 


^ 






502** 














503** 








Xt 


000022 




504*ZC#DDPST 

505** 


OS 


X . 


OOP STATUS BYTE 








506*» 






EQUATES FOR ZCiOOPST 






507+* 










000080 




508*ZC»ReMTR 


EOU 


X'BO* 


REMOTE TRANS 


V 


000040 




509*ZC«FS0UT 


EOU 


X'40" 


FIND SESSION OUTSTANDING 


L* 


000020 




510*ZC»PSEOO 


EOU 


X'20' 


PSEUOO TCT 


§ 


000010 




511+ZCfDOPOT 
512** 


EOU 


X'lO' 


HWRITE FOR OOP 


!■» 


000023 




513+ZCIDOPNO 
514*« 
515** 
516+* 


OS 


X . 


OOP MODE 

EQUATES FOR ZCfOOP NODE 


: 


0000D9 




517*ZC#DTR 


EQU 


C'R' . 


DIRECTORY TRANS. ROUTING 


\ 


OOOOCl 




518+ZCtPTRA 


EOU 


C'A« . 


PROGRAM TRANS. ROUTING - ACTIVATE 




0000C3 




519*ZC#PTRC 


EQU 


C'C . 


PROGRAM TRANS. ROUTING - ABORT/CANCEL 


"■ 


0000C5 




520*ZC*PTRE 
521** 


EOU 


C«E' . 


PROGRAM TRANS. ROUTING - END 




000024 




522*ZC»SFL*G 
523*» 
524*» 
525*« 


OS 


XLl . 


GENERAL SFS FLAG BYTE 
EQUATES FOR ZCiSFtAG 


1 

r 


000080 




526*ZC#INFMT 


EQU 


X'80' . 


INPUT FORMAT 


f 


000040 




527*ZC«DYNM 


EOU 


X'40' . 


DYNAMIC MEMORY 


i 


000020 




52S*ZC*SF8T1 


EQU 


X»20" 


SFS FLAG I 


► 


000010 




529*ZC#ITCF 


EOU 


X'lO' . 


INVALID XTION 




000008 




530*ZCfSFBT2 
531+* 


EOU 


X'08' , 


SFS FLAG 2 


\ 



c 



"IT 



<^f 'ttnMW^vB 



^* 1 - tf^^ i ^y* *f W4 , JP^^^ j^ ■* 



Figure 12-7. Multithread Terminal Control Table (Part 3 of 7) 
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LOC. 


LINE SOURCE 


STATEMENT 






000025 


A 
A 


532*ZC#SFIRC 
533+* 


OS 


XLl . 


SFS INPUT RETRY COUNT 




000026 


A 
A 
A 
A 


534+ZC#TST7 
535+* 
536+* 
537+* 


OS 


X . 


IMS TERMINAL FLAGS EXTENSION 
EQUATES FOR ZC#TST7 


1 


002680 


A 


538+ZC«TSMSG 


EQU 


(ZC*TST7- 


■ZC»0TCT)*256+X'80' . YES IMC STATUS MSGS 




002640 


A 


539+ZC#UATT0 


EQU 


(ZC#TST7- 


ZCliOTCT»*256+X'40' . UNATTENDEO TERMINAL 


\ ■ 


002620 


A 
A 


540+ZC#LOMSG 
541+* 


EOU 


(ZC#TST7- 


-ZC#DTCTI*256+X'20' . ZZDEQ ACTIVE LOW Q 


/ 


000027 


A 
A 


542+ZC#TST8 
543+* 


OS 


X . 


IMS FLAGS EXTENSION UNUSED 


.■f. 




A 


544+* 






EQUATES FOR ZC»TST8 UNUSED 






A 


545+* 








y; 


000028 


A 


546+ZC«TRCTA 


OS 


A . 


TRCT AOOR 


j"= 


00002C 


A 


547+ZCOTQE 


OS 


F . 


CANCEL LINK 


y '■ 


000030 


A 


548+ZC#PRFT 


OS 


F . 


OISPL TO PROCESS FILE TABLE 





OOOOS'i 


A 


549+ZC#P0CNT 


OS 


H . 


PROCESS QUEUE COUNT 


?t 


000036 


A 


550+ZC#MQCNT 


OS 


XLl . 


LAST ICAM SVC 


iv 


000037 


A 


55l+ZC«TDELS 


OS 


XLl . 


DELIVERY NOTICE STATUS 


^^ 


000038 


A 


552+ZC#LQCNT 


OS 


H . 


LOM QUEUE COUNT 




00003A 


A 


553+ZC#TIN 


OS 


H . 


TOTAL INPUT COUNT 


>; 


00003C 


A 


554+ZClKTINT 


OS 


H . 


TRANS. INPUT COUNT 




00003E 


A 


555+ZC#TTCH 


OS 


H . 


TERM COMMAND COUNT 


000040 


A 


556+ZC#TINCH 


OS 


F . 


TOTAL NO. INPUT CHARS. 


^: 


000044 


A 


557+ZC#T0TCH 


OS 


F . 


TOTAL NO. OUTPUT CHARS. 


\; 


000048 


A 


558+ZCiTOC 


OS 


H . 


TOTAL OUTPUT COUNT 


P 


00004A 


A 


559+ZC#T0HSZ 


OS 


M . 


SOURCE TERM O/P MSG. SIZE 


¥« 


00004C 


A 


560+ZC#T0N 


OS 


F . 


TIMER LINK 


r- 


000050 


A 


561+ZC#IML 


OS 


H . 


INPUT MESSAGE LENGTH 


& 


000052 


A 


562+ZC#0ML 


OS 


H . 


OUTPUT MESSAGE LENGTH 


t- 


000054 


A 


563+ZC#TML 


OS 


H . 


TIMER MESSAGE LENGTH I OS/3 M.T.I 






A 


564+* 






OS/3 S.T. USES ZC#COSEQ INSTEAD OF ZC«TML 


S 


000054 


A 


565 + ZCll(C0SEQ 


EQU 


ZC#TML . 


C/0 SEQ COUNT (OS/3 S.T. ONLYl 


^ 


000056 


A 


566+ZC#DHL 


OS 


H . 


OOP MSG. LENGTH 


J^- 


000058 


A 


567+ZC#IBF 


OS 


A . 


INPUT BUFFER AOOR 


EfJ 


00005C 


A 


568+ZC#0aF 


OS 


A . 


OUTPUT BUFFER AOOR 


Pf 


000060 


A 


569+ZC#TBF 


OS 


A . 


TIMER BUFFER AODR 




000064 


A 


570+ZC#DBF 


OS 


A . 


OOP BUFFER AODR 


i 


000068 


A 


571+ZC#DPREL 


OS 


A . 


OOP BUFFER RELEASE AOOR 


00006C 


A 


572+ZC#TDELC 


OS 


XL4 . 


USER CONTINUOUS OUTPUT CODE 


^ 


000070 


A 


573+ZC#SFSTC 


OS 


A . 


SFS TERMINAL CLASS ENTRY AOOR 


1 


000074 


A 


574+ZC#SFSFN 


OS 


CL8 • 


SFS FORMAT NAME 


00007C 


A 


575+ZC#SESA0 


OS 


A . 


SESSION STAT TABLE AOOR 


N; 


000080 


A 


576+ZC#S£SID 


OS 


F . 


SESSION ID 


^ 


000084 


A 


577+ZC#T0MEH 


OS 


F . 


SFS DYNAMIC MEMORY AODR 


i 


000088 


A 


578+ZC#TTRI0 


OS 


CL8 . 


TRANS ID (INITIAL DATE/TIMEI 


000088 


A 


579+ZC#TRID 


EQU 


ZC#TTRIO 


OS/4 TAG 


1 


000090 


A 


580+ZC#DLCNT 


OS 


H . 


IMC DEADLOCK DETECTION COUNT 

ii&tiiccn — — — ■■ ^ — — ^ » ^ 


§ 


000092 


A 


581 + 


OS 


H • 


—— — -"—— — — " — — UNU5 tU ——— — — «- — — — — 


P 


000094 


A 


582+ZC#TCB 


OS 


A . 


THREAD CONTROL BLOCK ADDR 


000098 


A 


583+ZC#TLI 


DS 


8F . 


TRANS LOCK INDICATOR 


1-:' 



Figure 12-7. Multithread Terminal Control Table (Part 4 of 7) 
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LOC. 


LINE SOURCE 


STATEMENT 


0000B8 


A 584+ZCITAUH 
A 585+« 
A S86+« 


DS 


8F . 


0000D8 


A 587*ZC»TTEXT 


OS 


CL8 . 


000008 


A 588*ZC«TC006 


EOU 


ZC#TTEXT 


OOOOEO 


A 589*2CfT00RC 
A 590** 
A 591+* 


DS 


CLl . 


ooooei 


A 592*ZC*TD0RN 


DS 


CL7 . 


0000E8 


A 593+ZC#TDFN 


DS 


CL7 . 


OOOOEF 


A 594* 


OS 


X . 


OOOOFO 


A 595*ZC«TES 
A 596** 
A 597+* 


OS 


F . 


OOOOFO 


A 598 + 


ORG 


ZCHTES . 


OOOOFO 


A 599+ZCiES 


DS 


F . 


0000F4 


A 600+ZCfCDL 
A 601+* 


OS 


H . 


0000F6 


A 602+ZC«UAI 


OS 


H . 


0000F8 


A 603+ZCfCOI 


DS 


H . 


OOOOFA 


A 604+ZC»TTTN 


OS 


XLl . 


OOOOFB 


A 605+ 


OS 


XLl . 


OOOOFA 


A 606 + 
A 607+* 
A 608+* 


ORG 


ZC»TTTN 


OOOOFA 


A 609+ZC»C0R 


DS 


H . 


OOOOFC 


A 610+ZC«CES 


DS 


F . 


000100 


A 611+ZC«SCFR 
A 612+« 


OS 


XL4 . 


00010* 


A 613+ZCiTTIR 


OS 


XLl . 


000104 


A 614+ZC#TIR 


EQU 


ZC«TTIR . 


000104 


A 615 + 


ORG 


ZCfTTIR . 


000104 


A 616+ZC(TRMA 


OS 


F . 


000108 


A 617+ZC»FBPA 


OS 


F . 


OOOIOC 


A 618+ZC«CSPA 


OS 


F . 


000110 


A 619+ZC*LBPA 


DS 


F . 


000114 


A 620+ZC*NRBCB 
A 621+* 


DS 


H . 


000116 


A 622+ZC»TLNAM 


OS 


CL4 . 


OOOllA 


A 623+ZCfTCHAR 


DS 


CL4 . 


OOOllA 


A 624+ 


ORG 


ZC«TCHAR 


OOOIIA 


A 625+ZC«TTSL 


DS 


X . 


000118 


A 626+2C«TTSH 


DS 


X . 


OOOllC 


A 627+ZC«TTTyp 
A 628+* 
A 629+* 
A 630+* 


OS 


X . 


000000 


A 631+ZC#TTNFC 


EOU 


X'OO' . 


000080 


A 632+ZC«TT4PR 


EOU 


X'80' . 


000040 


A 633+ZC«TT4U2 


EOU 


X»40' . 


000020 


A 634+ZC«TT4U4 


EOU 


X'20' . 


000010 


A 635+ZC«TT3Z7 


EQU 


X'lO' . 



AUDITED UPDATE HAP 

ZCiTLI AND ZCfTAUN MUST AGREE WITH ZTfTNUHF 
IN THE THCB 
TRANSLATED TERM CMO/TRANS CODE 

OS/4 TAG 
ODR NAME ID CHAR CHIGH BYTE = X'FD'I 

THE ABOVE FIELD IS DEFINED IN OS/4 BUT NOT 
TAGGED 
DATA OEF REC NAME 
DEFINED FILE NAME 

UNUSED 

SUCC ACT RECORD RELATIVE AODR 

M.T. SYSTEMS USE ZCiES C ZCfCDC IN PLACE OF 
ZCfRES 

SUCC ACTION CNTRL TBL lACTJ AODR 
CONTINUITY DATA LENGTH 

WORK AREA INC 

CONTINUITY DATA AREA INC 

TCT RECORD NUMBER 

UNUSED 



M.T. USES ZCfCDR C ZCfCES INSTEAD OF 
ZCfTTTN AND ZCfTINT 
TCT RECORD NUMBER 

SUCC ACTION CNTRL TBL lACTI AODR - ROLLBACK 
COUNT FIELD FOR ROLLBACK 

TERM IND FOR ACTION PROG USING ROLLBACK 
OS/4 TAG 

TRACE WORK AREA 

FIRST BLOCK OF PARTITION 

CURRENTLY ACCESSED BLOCK 

LAST BLOCK OF PARTITION 

NUM OF REM. BYTES IN CURR. SLOCK 

LINE NAME 

TERMINAL CHARACTERISTICS 

» 

SCREEN LENGTH 
SCREEN WIDTH 
TERMINAL TYPE 

EQUATES FOR ZCiTTTYP 

U100/U200/UTS10/TTY 

UTS400 PR 

UTS400 CP IU2 MODE) 

UTS400 CP (U4 MODE) OR UTS400 

IBM 3271 



i 



K* -»5: **-^».^ .», '.u.^"". .•'■ 'MSaf^. i\V&'it.\«:,jlll!.^MlSi-/ 



.wSi*«S •X»..«f'j«!C-4«.Sa* ■ 



Figure 12-7. Multithread Terminal Control Table (Part 5 of 7) 
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LOC. 


LINE SOURCE 


STATEMENT 




000008 


A 


636+ZC#TTU40 


EQU 


X'08' . 


UTS40 


000004 


A 


637+ZC#TTU20 


EQU 


X'04» ■ 


UTS20 


000002 


A 
A 


538+ZC#TT40T 
639+* 


EQU 


X'02« . 


UTS400 TEXT EDITOR 


OOOUO 


A 

A 


640+ZC#TTATT 
641+* 


OS 


X . 


TERMINAL ATTRIBUTES 




A 


642+* 






EQUATES FOR ZC»TTATT 




A 


643 + * 








000080 


A 


644 + ZClllTTKAN 


EQU 


X'80' 


KATAKANA 


000040 


A 


645+ZC#TTNVI 


EQU 


X«40' . 


NON-VIDEO 


000020 


A 


646+ZC#TTSBT 


EQU 


X'20' 


SCREEN BYPASS 


OOOOIO 


A 


647+ZC#TTPKT 


EQU 


X'lO* . 


PACKET PDN TERMINAL 


000008 


A 


648+ZC#TTCST 


EQU 


X'08' 


CIRCUIT SWITCH PDN TERMINAL 


000004 


A 
A 


649+ZC#TTCCT 
650+* 


EQU 


X'04' , 


TERMINAL ON CLUSTER CONTROLLER 

1 iMi 1 c cn —————— ——.~^^——>. 


OOOllE 


A 


651 + 


OS 


H • 


______________ ^pm^tu _______—————— 


000120 


A 


552+ZC#TINER 


OS 


F . 


SFS ERROR FIELD 


000124 


A 


653+ZC«TRIDA 


OS 


A . 


PTR TO TRIOT ENTRY FOR CURRENT TRANSACTION 


000128 


A 
A 


654+ZC#ALTID 
655+* 


OS 


F . 


ALTERNATE TERM ID 


00012C 


A 
A 


656+ZC#TSECA 
657 + * 


OS 


A . 


AOOR SECURITY USERIO/PASSWORD PARAM LIST 


000130 


A 


658+ZC#TSECL 


OS 


5F . 


SECURITY PARAMETER LIST 


000130 


A 


659+ 


ORG 


ZCKTSECL . RESET LOC COUNTER TO BEGIN PARAM LIST 


000130 


A 


660+ZC#TUID 


OS 


CL6 . 


SECURITY USERID 


000136 


A 


661+ZC#TUPW 


OS 


CL8 . 


SECURITY PASSWORD 


00013E 


A 


662 + 


OS 


H . 


— FILLER — SECURITY PARAM LIST 


000140 


A 


663+ZC*TSECE 


OS 


F . 


SECURITY ERROR WORD (1ST BYTE USEDI 


000140 


A 


664+ 


ORG 


ZC#TSECE . RESET LOC COUNTER TO BEGIN ERROR WORD 


000140 


A 
A 


665+ZC«I0PWE 
666 + * 


OS 


X . 


SECURITY ERROR BYTE 




A 


667+* 






EQUATES FOR ZC#IOPWE 




A 


668+* 








000080 


A 
A 


669+ZC#INVLD 
670+* 


EQU 


X'80' 


INVALID USERID AND/OR PASSWORD 


000141 


A 
A 


671 + 
672+* 


OS 


XL3 . 


UNUSED 3 BYTES OF SECURITY ERROR WORD 


000144 


A 


673+ZC#T0Tl0 


OS 


CL4 . 


ORIGINATING TERM NAME PRIMARY HOST 1 OOP » 


000148 


A 


674+ZCIKTNOOE 


OS 


CL4 . 


NODE PRIMARY HOST (OOP) 


00014C 


A 


675+ZC#TBALL 


OS 


H . 


NM3R 4K BLOCKS ASSIGNED TO TRANSACTION 


000146 


A 
A 


676+ZC#TBFLG 
677+* 


OS 


X . 


TRANS BUFF PROCESSING FLAG 




A 


678+* 






EQUATES FOR ZC#TBFLG 




A 


679+* 








014E80 


A 


680+ZC#TBASS 


EQU 


(ZC#TBFL6-ZC#DTCT)*256+X'80' . TRANS BUFF ASSIGNED 


014E40 


A 


681+ZC#TBEXH 


EQU 


(ZC#TBFLG-ZC#DTCT)*256+X'40' . NO MORE TRANS BUFF 




A 


682+* 






TO BE ASSIGNED 




A 


683+* 


OS 




__^_^^__ iiuiiccn ____^___^.— —-■._.» 


00014F 


A 


684 + 


X • 


______________ UNu jcu ———————————— 


000150 


A 


685+ZC#TBAl 


OS 


F . 


AOOR 1ST TRANS BUFF 


000154 


A 


686+ZC«TaA2 


OS 


F . 


AOOR 2ND TRANS BUFF 


000158 


A 


687+ZC#TBA3 


OS 


F , 


ADOR 3RD TRANS BUFF 



Figure 12-7. Muhithread Terminal Control Table (Part 6 of 7) 
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toe. 

000150 
000154 
100158 



00015C 
00015C 
00015C 
000160 
000164 
000168 
00016C 
000170 
000174 
000178 
00017C 
000180 
000184 
000188 
00018C 
000190 
000194 
000196 
00019C 
OOOIAO 



0001A4 
0001A8 
OOOIAC 
OOOIBO 
0001B4 
0001B8 
0001B8 
000000 
000000 



LINE SOURCE 
A 688+ZC#TBlL 
689+ZC#T82L 
690tZC#TB3L 
691** 
692+* 
693+* 

694+ZCl»TRSAV 
695 + 

696+ZC«TSW00 
697+ZC#TSaCK 
698+ZC#TSF0R 
699+ZC«TSRTN 

7oo+zc#TseTy 

701+ZC#TSR0 

702+ZC#TSRl 

703+ZC#TSR2 

704+ZC#TSR3 

705+ZC#TSR4 

706+ZC#TSR5 

707+ZC»TSR6 

708+ZC#TSR7 

709+ZC#TSR8 

710+ZC#TSR9 

711+ZC«TSR10 

712+ZC#TSRll 

713+ZC#TSR12 

714+* 

715+* 

716+* 

717+ZC#TPRM1 

718+ZC#TPRM2 

719+ZC«TPRM3 

720+ZC#TPRM4 

72l+ZC#TPRM5 

722+ZC«TFIN 

723+ZC#TLEN 

724+IMSOSECT 

725 IMSDSECT 

726 



STATEMENT 
EQU ZC#TBA1,1 

EQU ZC#T8A2,1 

EQU ZC#TBA3,1 



OS 

ORG 

DS 

OS 

OS 

DS 

DS 

DS 

DS 

DS 

OS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 



DS 

OS 

DS 

OS 

DS 

DS 

EQU 

CSECT 

CSECT 

END 



18F . 
ZC#TRSAV 

F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 
F . 



F . 

F . 

F . 

F . 

F . 

OF . 

*-ZC#OTCT 



NHBR 4K BLOCKS IN 1ST TRANS BUFF 
NHBR 4K BLOCKS IN 2N0 TRANS BUFF 
NHBR 4K BLOCKS IN 3ND TRANS BUFF 

REGISTER SAVE AREA 

18 WORD REG. SAVE AREA 



SAVE AREA BACKWARD LINK AOOR 

SAVE AREA FORWARD LINK ADOR 

REtt CALLERS RETURN ADDR 

RF$, CALLED ENTERY ADOR 

ROS 

Rlt 

R2» 

R3i 

R4t 

R5$ 

R6S 

R7i 

R8t 

R9$ 

RAt 

RBI 

RC$ 

PARAMETER LIST 

PARAM #1 
PARAM #2 
PARAM «3 
PARAM #4 
PARAM «5 
<« <« 



T 



o 



THIS MUST ALWAYS BE AT END >» >» 



Figure 12-7. Multithread Terminal Control Table (Part 7 of 7) 
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12.5. Sample Dump Action Program (FIXSAM) 

Figure 12-8 shows the sample COBOL action program FIXSAM. This program 
produces two types of snap dumps depending on values entered at the terminal. 

When the operator enters transaction code F#03 followed by the value T (Figure 12-8, 
line 303), FIXSAM moves an S to the termination indicator to produce a termination 
snap. Figure 12-9 shows the S termination snap dump. 

When the operator enters transaction code F#03 followed by the value Y (Figure 12-8, 
line 302), FIXSAM issues a CALL SNAP that dumps working storage, the program 
information block, input message area, output message area, work area, and 
continuity data area without terminating the program. 

A third type of snap dump is produced if the program terminates abnormally. An 
abnormal termination snap caused by a program check is shown in Figure 12-11. This 
dump varies in only a few details from the S termination snap. 
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LINE NO. 



SOURCE EKTRY 



00C01 

roco2 

OOOOJ 
C0C04 
00005 
00006 
00C07 

ooco? 

00009 
C0C10 
C0C11 
00012 
00C13 
0001* 

oo-sts 

00016 
00C17 

0001? 
00C15 
00020 
C0C21 
P0C22 
00023 
0002* 
00C25 
00C26 
00C27 
000 2 f 
0002*' 
OOOiO 

oorsi 

00C32 
C0033 
0OC2< 
00025 
00036 
C0037 
00C38 
00039 
0OC*0 
000*1 
000*2 
000*3 
OOC** 
00CA5 
OOC*d 
C0C*7 
OOC*? 
000*5 
DOC50 



lOENTlFICATICK DIVISION. 
PK06t!*'»-I&. flXSAf. 
EhVIKOmrEKT DIVISION. 
CCNFieURATIOIn SECTION. 
SOURC£-CO«PUTcR. UMV*C-OS?. 
0BJECT-CCKFU7ER. UMVAC-0S3. 
DATA CIVISIOM. 
W0RKI\G-ST0RA6E SECTION. 
01 DICE-COOES. 

k 

* SET CURSCR-COORO TO HO"E Ji'lOCJDDOO'. 

C5 CURS-H«E PIC X (*) 



VALUE 



POSITION CURSOR TO A HEW LINE X'100*0000'. 

05 NXT-LNE PIC XC«> VALUE ' 

SKIP 3 LINES AND BEGINNING OF LINE X'100«C300'. 
05 SKP-2LN PIC X(*) VALUE ' 

SKIP ,: LINES AND BEGIKNINfc CF LINE X'10C*0200'. 
C5 SKP-2LN PK X(«) VALUE ' 



START OF ENTRY CHARACTER X'lE'. 

05 SOE-CKAR FlC X(1) 



VALUE 



01 N0N-NU»«t-WS6 FIC X(*9) VALUE 

'NCK-NUHEHIC VALUfc ENTFREC FOR READS DESIRFO FIELD'. 
* 

01 TRANS-CAN-t«SG PIC X(*0) VALUF 

'TRANSACTION CANCELLED DUE TO ABOVE ERROR', 
t 

01 FCF-"S6 PIC X(«0) VALUE 

'END OF FILE REACHED DURING READ kU»<EER '. 

k 

01 ERR-f«S6 PIC X(«0) VALUE 

'tRRCR FSO" SAM-GET tURlNP READ NUCIPER '. 



f 



01 «TilT-HCRS 

'STATLS-CODt 

k 

01 FSA«<TIN 
I 

01 FS*«IDIN 



PIC X(*7) VALUE 

DETAILED STATUS CODE 



PIC Xt7) 
PIC X (7) 



VALUE 'FSHTFIL'. 
VALUE 'FSBDFIL'. 



01 SUCC-WSG PIC X (54) VALUF 

'ENTER NUKPER OF READS f « SAf VAR LENETH FILES AS MNN' 



CI r 1SC0NN£CT-NS& PIC X{25) 

'LINF DISCONNECT REUUtSTED'. 

01 HDG-LKE. 



VALUE 



t^ ^ \. * **44-Mh- < 



Jk ^ * « */W V- 



Figure 12-8. Sample Action Program (FIXSAIVI) Generating Snap Dumps (Part 1 of 7] 
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LINE NO. 

00C51 
COC52 
00053 
00C54 
00055 
00056 
00057 
OOC58 
00C59 
00060 
00061 
00062 
00063 
00C64 
00065 
00066 
00067 
0006? 
00069 
00C7C 
00071 
00C72 
0OC73 
00074 
00075 
00076 
00077 
r0C7E 
00079 
OODfeO 

oocei 

rocdz 

00083 
00084 
00085 
n0CB6 
00087 
00088 
00089 

00C90 
0OC91 
00092 
00093 
00094 
D0C95 
00096 
00097 
00C9? 
00C99 
CC100 
00101 
C0102 



SOURCE ENTRY 



05 
05 
05 
05 
05 
05 
C5 
05 
05 
G5 
t 

01 SUP- 

01 END- 
LINKAGE 
01 PIB, 

02 
02 
02 



32 
02 
02 
02 



02 
02 
02 
02 
02 
02 
02 
02 
02 
02 



HD1 

FILLER 

HD2 

FILLER 

HD3 

FILLER 

HD4 

FILLER 

HD5 

FILLER 

ERR-W 
'ERRC 
WS 

SECTI 
COPY 
SIATl 
DETAI 
RECO" 
03 PP 
nj DE 
succ- 

TER»I 
LCCK- 

TRANS 
03 YE 
Oi TC 
03 HR 
DATA- 
DEFIN 
STAND 
STAND 
WORK- 
CONTI 
CONTI 
WORK- 
CONTI 
SUCCE 
03 TR 
C4 
04 
04 
TI 
J4 
34 
04 



X(8) 
X C4} 
X(7) 
X (8) 
X(13) 
X (9) 
X{8) 
X<6) 
X (4) 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE ' 
VALUE 
VALUE 
VALUE 
VALUE 



NO. READ . 
SPACES. 
'COST-ID'. 
SPACES. 

CUSTOMER NAUE' 
SPACES. 
'AMT PAID'. 
SPACES. 
'DATE'. 



IC X(5) VALUE SPACES. 



R ON 



SNAP NO, 



>IC X{42> 
3 4 5 
'IC X VALUE 



VALUE 



C3 



02 



03 FI 
SCURC 
03 SC 

o; SO 
03 so 

C3 SC 



ON. 

P1B74 
S-CCDF 
LED-ST 
D-TYPF 
EDICTE 
LIVERE 
SSOR-I 
NATION 
RCLLBA 
ACTION 
AR 
DAY 

-|"IIN-S 
DEF-RE 
ED-FIL 
ARD-»tE 
ARD-MS 
AREA-L 
NUITY- 
NUITY- 
AREA-1 
^UITY- 
SS-UNI 
ANSACT 
YEAR 
CONTH 
TODAY 
!«E-OF- 
HOUR 
MINUT 
SECON 
LLER 
t-TERW 
URCE-T 
URCF-T 
LRCE-T 
LRCE-T 



ATUS-COOt 

REDEFINES DET 
D-RECORD-TYPE 
D-RECORD-TYPE 
D 

-INDICATOR 
CK-INDICATOR 
-ID. 



EC 

C-NAME 

E-NANE 

&-LINE-LEN6TH 

G-NUfiPER-LINES 

ENGTH 

DATA-INPUT-LEN 

DATA-OLTPUT-LE 

NC 

DATA-ARFA-INC 

T-ID. 

ION-DATE . 



DAY. 

E 
D 

INAL-ChART. 

ERI^INAL-TYFE 

ERr«-KSb-LINE-L 

ERW-MSt-NUCPER 

ESC-ATTRIBUTES 



PIC 9(4) COWP-4. 

PIC 9(4) COKP-4. 
AILED-STATUS-CODE. 

PIC X. 

PIC X. 

PIC X(6). 

PIC X. 

PIC X. 

PIC 9(«) COWP-4. 

PIC 9(4) COKP-4. 

PIC 9(9) COPP-4. 

PIC X(7). 

PIC X(7). 

PIC 9(4) CCMP-4. 

PIC 9(4) COInP-4. 

PIC 9(z,) COKP-4. 
ETH PIC 9(4) COBP-4. 
N6TH PIC 9(4) C0f»P-4. 

FlC 9(4) COKP-4. 

PIC 9(4) COHP-4. 



FlC 99. 
PIC 99. 
PIC 99. 

PIC 99. 

PIC 99. 

FIC 99. 

PIC XXX. 

FlC X. 

ENGTH PIC 9(4) 

-LINES PIC 9(4) 
FIC X. 



COt'P-4. 
C0f«P-4. 



1 






h 



.t 
^ 



'4 



Figure 12-8. Sample Action Program (FIXSAIVI) Generating Snap Dumps (Part 2 of 7) 
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LINE NO. 



SOURCE ENTRY 



00103 
00104 
00105 
00106 
00107 
C010'' 
C0109 
00110 
00111 
C0112 
00112 
00114 
00115 
C0116 
C0117 

cone 

00119 
C0120 

nci2i 

P0122 

com 

CC124 

00125 
00126 
00127 
0012? 
00129 
D0130 
00131 
C0132 
00133 
00134 
00135 
00136 
00137 
0013? 
00139 
0014C 
00141 
00142 
C0U3 
00144 
00145 
00146 
C0147 
001 4 S 
00149 
00150 
C0151 
00152 
00153 
00154 



01 



01 



01 



02 
IH 
02 
02 



02 
02 



02 
02 

02 
02 
02 
02 
02 
02 
02 
CD 
02 
02 
02 
OW 
02 



D 
A. 

SO 
DA 

03 
03 
03 
TE 
AU 
02 
07 
T 



C2 
02 
02 
02 



02 
03 
03 



R 
N 
F 
D 
F 
S 
F 
E 
E 
A. 
D 
S 
E 
A. 
OE 
SF 
j7 
03 
FI 

cr 

TE 

AU 

C3 

03 

ou 

D 
L 

C 

n 
C 



DP-»«O0E 
COPY IMA74. 
UHCE-TERMINAL-IO 
TE-TlWE-STAnP. 

YEAR 

TODAY 

HR-MIN-SEC 
XT-LENGTH 
XILIAPY-DEV-ID. 

FILLER 

AUX-DEV-NO 
RANS 
ECTCRD 

ORECS hEDEFlNES RE 
ILLER 
ISCONNECT 
ILLER 
NAP 
ILLER 
XT-SUCC 
ND-IHA 



PIC X. 

PIC X(4). 

PIC 9 44) CORP-4. 

PIC 9{«) COHP-4. 

PIC 9C9> COBP-4. 

PIC 9(4) COnP-4. 



ISCO 
NAP- 
ND-C 
COPY 
STIN 
S-OP 
Sf s 
SFS 
LLER 

^Tl^ 

XT-L 
XILI 
AUX 
AUX 
T-CS 
1CE1 
1NE1 
5 F 



NNECT-SAV 

SAV 

DA 

OMA74. 
ATI0N-TER««1NAL 
TIONS. 
-TYPt 
-LOCATlOf. 

LCUS-CUTPlT-tO 

ENGTH 

ARY-DEVICE-ID. 

-FUNCTION 

-DEVICE- NO 

G. 



PIC X. 
PIC X. 

PIC X(?). 

PIC X(2). 

CTCRD PIC 99. 

PIC X. 

PIC X. 

PIC X. 

PIC X. 

PIC X. 

PIC X. 

PIC X. 

PIC X. 

PIC X. 

PIC X. 



-ID 



DF 



PIC X(4), 



PIC 
PIC 
PIC 
PIC 
PIC 



X. 
X. 

X(2). 
XC4}, 
9(4) 



o 



COBP-4. 



PIC X . 

PIC X . 

FIC X(4). 

PIC X(15). 
PIC X (7). 
FIC X(E). 




Figure 12-8. Sample Action Program (FIXSAIV!) Generating Snap Dumps (Part 3 of 7) 
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LINE NO. 



SOURCE ENTRY 



00155 

00156 

00157 

0015? 

00159 

00160 

00161 

00162 

00163 

00164 

00165 

00166 

00167 

00168 

00169 

00170 

00171 

00172 

0017? 

00174 

00175 

00176 

00177 

0017? 

00179 

00180 

00181 

00182 

00163 

P0184 

00185 

C0U6 

00187 

00188 

00189 

00190 

00191 

00192 

00193 

00194 

00195 

00196 

00197 

0019? 

00199 

00200 

00201 

00202 

00203 

00204 

00205 

00206 



01 



03 
03 
03 
03 

03 
03 



03 
03 
03 
03 
03 
03 
03 
03 
03 



10 SNP5 
10 FILLER 

DICE2 

L1NE2 

DICE3 

LINE3 

DICE7 

LINE7. 

05 FILLER 

05 FILREAO 

05 FILLER 

DICE8 

LINES 

BICE? 

LINE9 

DICE11 

L1NE11 

DICE12 

SOE-OICE 
i.j END-OHA 
WORK-AREA. 
03 REC-10-ARE«-F . 

05 CUST-ID 

"■^ CUST-NAME 
AI»T-PAID 
DATE-PD. 
10 MTH 
10 SLSH-1 
10 DAYC 
1C SLSH-2 
1C YF 

05 FILLER 

DETAIL-LNE. 

"■^ FILLER 
RECS-RD 
FILLER 
CUST-IO 
FILLER 
CUST-NA^'E 
FILLER 
AMT-PAID 
FILLER 
OATE-PD. 



05 
05 

05 



P', 



j5 
05 
05 
05 
05 
05 
5 
05 
05 
05 



i: 

1C 
10 

1G 
10 



HTH 

SLSH-1 

DAYC 

SLSH-2 

YR 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 

PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X. 

X<10). 
X (4). 
X (72). 
X(4). 
X(72). 
X (4). 

X(15). 

X(7). 

X(50). 

X (4). 

X (72) . 

X(4). 

X(72) . 

X(4). 

X(72). 

X(4). 

X. 

X. 



PIC 9(5). 

PIC X(?0). 

PIC <5(5)V99. 

PIC 9(2). 

PIC X. 

PIC 9(2). 

FlC X. 

PIC 9(2). 

PIC X(<5). 



PIC 
PIC 
PIC 
PIC 
FlC 
PIC 
PIC 
PIC 
PIC 



X(3). 

9(2). 

X{p). 

9(5). 

X (6). 

X(20). 

X(4). 

S(6) .99. 

X(4). 



J 3 



05 FILLER 
ERR-LNE REDEFINES 
05 ERROR-PLD 



"5 ERROR- 
J 5 R E C H D ■ 



PLD 
■ERR 



PIC 9(2). 
PIC X. 

FIC 9(2). 
PIC X. 
PIC 9(2). 
PIC y (3). 
DETAIL-LNE. 

PIC X(40). 
FIC Z9. 



Figure 12-8. Sample Action Program (FIXSAIVI) Generating Snap Dumps (Part 4 of 7) 
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00207 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 

00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 

00252 
00253 
00254 



SOURCE ENTRY 



05 FILLER 
03 STATtS-LNE. 

05 FILLER 

05 STAT-ERR 

05 FILLFR 

05 D-STAT-ERR 

05 FILLER 
03 REC-CNT 
03 ERR-IhD 
03 STAT1 
03 CSTA71 
03 STAT2 
03 0STA12 
03 STAT3 
03 CSTAT3 
03 STAT4 
03 0STA14 
03 STATf 
03 0STAT5 
03 FILEKAME 
03 El»D-kA 
PROCEDURE DIVISION USING Fit 



PIC )t(?0). 

PIC Xt13). 
PIC 9(4). 
PIC X(30). 
PIC 9(4). 
PIC X(21). 
PIC 9(2). 
PIC 9. 
PIC 9(4). 
PIC 9(4). 
PIC 9(4). 
PIC 9(4). 
PIC 9(4). 
PIC 9(4). 
PIC 9(4). 
PIC 9(4). 
PIC "H). 
PIC 9(4). 
PIC X(7). 
PIC X. 
IWA hORK-AREA OfA COA. 



OPTIONS-SAVE . 
"OVE CURS 
MOVE NXT- 
IF SNAP I 

ELSE 
IF RECTOR 
•OVE 
fCVE 
GO TO 
IF OISCON 
DISCC 
TAPE-REC-GET. 
•OVE ZfRC 
"OVE 'FIL 
"OVE FSAf 
IF NCRECS 
*!OVE 
fOVE 
l»OVE MORE 
POVE 
60 TC 
fOVE SPAC 
PERFORf S 



-Hf>E TO DICE1. 

LNE TO PICE?, t.]CE3. 

S EQUAL TO 'Y' OR 'N ' OR 'T ' «OVt SNAP TC SNAP-SAV 

POVE 'N' TO SNAP-SAV. 

IS NOT NUMERIC, HOVE NON-NUMb-RSG TO LINE2, 

TRANS-CAN-MSt TO LINE?, 

232 TO TEXT-LENETH OF OfA, 

SNAP-TEST. 
NECT IS EOUAL TC '»' HOVE DISCONNECT TO 
NNECT-SAV, ELSE POVF 'N' TO OISCONNE CT-SAV. 



TO ERR-IND , PEC-ChT . 
E NAt»E' TO LINEI, LIhF7. 
TIN TO FILENAME, FILERD. 

IS EeuAL TC ZERO, 
HDG-LNE TO LINE2 
SPACES TO DETAIL-LNE, 
CS TO RECS-RC, 
DETAIL-LNE TC LIhE3, 

DISC-REC-£ET. 
ES TO DETAIL-LNE. 
AH-GET THRU SAf-CET-EXlT UNTIL REC-CNT IS EOUAL TO 



NORECS. 
IF ER(*-1^D IS EOUAL TC ZERO, 

"OVE CORRESPONBINC RE C-IO-ARE A-F TO PETAIL-LNE, 



' ^^*li - 



-*■ 



■.;j?..- *^.?j-.wi:i^*;4i S'irfy^-t.-- : ■ ''.4'^3B 



Figure 12-8. Sample Action Program (FIXSAM) Generating Snap Dumps (Part 5 of 7) 
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LINE NO. 


SOURCE ENTRY 


00255 




KOVE NORECS TO RECS-RD, 


C0256 




WOVE HD6-LNE TO LINE?, 


00257 




I>«0VE DETAIL-LNE TC L1KE3, 


0025? 




GO TO D1SC-REC-&ET. 


00259 




COVE ERR-LNE TO LINE2. 


00260 




PCVE STATLS-LNE TO LINE3. 


00261 


OISC-REC-GET. | 


00262 




"lOVE ZERO TO ERR-IND, RfcC-CNT 


00263 




MOVE FSAKDIN TO FILENAME FILREAD. 


00264 




MOVE SKP-2LN TO D1CE7. 


00265 




f«OVE NXT-LNE TO DICE?, DICE9. 


00266 




IF NORECS IS EQUAL TO ZERO, 


00267 




t*OVE HDG-LNE TO LINEP 


00268 




WOVE SPACES TO DETAIL-LNE, 


00269 




COVE ZEROS TO RECS-RD, 


00270 




MOVE DETAIL-LNE TC L1KE9, 


00271 




GO TC SUCC-TEST. 


00272 




«CVE SPACES TO DETAIL-LNF. 


C0273 




PtRFORf SAM-GET THRU SAK-6 ET- EX IT UNTIL REC-CNT IS EQUAL TO 


00274 




NORECS. 


00275 




IF ERR-IND IS EQUAL TC ZERO, 


00276 




MOVE CORRESPONDINfc R EC-IO -A RE A-F TO DETAIL-LNE, 


00277 




"OVfc HDG-LK'E TO LINE?, 


00278 




WOVE NORECS TO RECS-RD, 


00279 




WOVE DETAIL-LNE TC LIhE9, 


002fc0 




60 Tf SUCC-TEST. 


002e1 




COVE ERR-LNE TO LINES. 


00282 




MOVE STATLS-LNE TO L1NE9. 


00263 


SUCC-TEST. 1 


C02S4 




COVE SKP-2LN TO OICEll. 


002S = 




IF EXT-SL'CC IS NOT hQLAL TO 'N', HOVE 'E' TO 


C0286 




TERf'INATION-INDICATOR , 


00267 




rOVE 'SACVIN' TO SU CC ES SCR- ID , 


00288 




CCVE SUCC-CSG TO LINFll, 


00269 




COVE NXT-LNE TO DlCtlZ, 


00290 




rCVE SOE-CHAR TO SOE-DICE, 


00291 




COVE 541 TO TEXT-LENGTH OF OCA, 


00292 




60 TC SNAP-TEST. 


00293 




COVk 460 TO TEXT-LENGTH OF OCA. 


00294 




IF DIbCO^^ECT IS EQUAL TO 'Y', COVE D IS CO NNECT-I«SG TC LINEll, 


00295 




CCVE 'C TO AUX-FUNCTICN, 


« >«. ■5- - -J-,:*--!.*--' -"." 


^... -tr, ' ■ y :• . . £• ; - ".' '.,' u\~ . • •.•--,'•,.. r — • ' -• •* J-'. . 1- .' ••-"1 



^feto^.---''' 



Figure 12-8. Sample Action Program (FIXSAM) Generating Snap Dumps (Part 6 of 7) 
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LINE NO. 

00296 
00297 
00298 
00299 
00300 
00301 

00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 



00313 
003U 
00315 
003U 
00317 
0031S 
05i319 
(r0320 
00321 
00322 
0032? 
C0324 
00325 
00326 
00327 
00328 
00329 
00330 



SOURCt EHTRY 

fOVE 'E ' TO TtRflNATIGN-INOICATOR , 
l"OVE 'HANGUP' TC SU CC ESSOR- ID , 
rOVE 536 TO TEXT-LFMGTH Of Ofk. 
SNAP-TEST. 

IF SNAP-SAV IS EQUAL TO 'N', tO TC MORM-RETURN. 
MOVE '*' TO END-IJ'A E^.r!-O^A END-WA ENO-CDA. 

IF SNAP-SAV IS EQUAL TO 'Y', PERFORM SNAP-ROUTINE. 
IF SNAP-SAV IS EGUAL TO 'T', l»OVE 'S' TO 

TERMINATION-INDICATOR. 
WOVE SPACES TO END-OKA. 
NCRf'-RETURN. 

CALL 'RETURN'. 
SNAP-ROUTINE . 
* 

* SNAP ACT1VATI0^( RECORD AND PROGRA.Y. 

CALL 'SN«F' USIHG DICE-CODES E^D-WS PIP Of^A IMA ENO-IMA OMA F 



ND-C!'A UCPK-AREA FND-WA CDA END-CDA. 

IF STATUS-CODE IS NOT E&UAL TC ^ERO fOVE STATUS-CODE 
TO STAT1 »"OVE DE TAIL t D-S TA TUS-CO DE TO DSTATl. 
SAil-GET. 

CALL 'GET' USING FILENAKE H EC -I 0-AR LA -F . 

ADD 1 TC REC-CNT. 

IF STATUS-CODE IS ECLAL TC 2EPC, GO TO SAfH-GET-tXlT . 

WOVE SPACES TO ERR-LNE, STATUS-LNt. 

IF STATUS-CODE IS EQUAL TO c, "OVt E0F-I»S6 TO ERR-LNE 
ELSE POVE ERR-CSG TO E^R-LNE. 

fOVE REC-CNT TO RCCRD-EfiR. 

COVE NORECS TO REC-CNT. 

f«OVE 1 TC ERR-IND. 

WOVE STAT-HDRS TC STATUS-LNE. 

fCVE STATLS-CODE TO STAT-ERR. 

^'OVE DETAILED-STATUS-CODF TO D-STAT-ERR. 
SAC -GET -EXIT. 

EXIT. 



Figure 12-8. Sample Action Program (FIXSAM) Generating Snap Dumps (Part 7 of 7} 
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12.6. Analyzing the Termination Snap Dump 

The first area of the S termination dump to examine is the edited headers. These 
include the allocation map that contains the dump addresses of the main storage 
areas snapped. 

The action name is SAMFIN and the action program load module processing that 
action is also SAMFIN. The term-id (terminal identification) for this transaction is 
TRMD. This is the way the terminal that initiated the transaction was defined in the 
communications network definition. The allocation map that follows contains the 
beginning and end locations as well as the lengths of user interface areas, and other 
areas included in the snap dump. The locations refer to relative addresses. Relative 
addresses are printed on the far left side of the snap dump. All addresses are given in 
hexadecimal. 

By examining the directory in Figure 12-9, notice that there are no addresses given for 
action subprogram area. The reason for this is that action program SAMFIN did not 
call a subprogram. 

If you are not using an edited snap dump, that is, the snap contains no directory 
listing, it is still quite easy to locate all your action program's interface areas. Go 
directly to the thread control block. In this multithread example, it is at location 
36E20 plus 15^^ because the multithread layout begins at the 21st byte from the 
beginning thread control block address. (See Figure 12-9.) The first five full words (40 
bytes) contain the relative addresses of the program information block, input message 
area, work area, output message area, and continuity data area, in that order. 

Following the allocation map on Figure 12-9 is the reason for the snap dump: USER 
VOLUNTARY TERMINATION. Voluntary termination resulted when the action 
program moved S to the termination indicator. 

In the sample snap dump (Figure 12-9), the register section contains only one set of 
registers because the action program terminated voluntarily. These are IMS registers. 
To find SAMFIN's registers, you must go to relative location PIB + 48^^ (address 
33448). Beginning at that location, count three full words. The third word contains the 
full word address of SAMFIN's save area (34958). The save area contains the action 
program registers. 
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• latto tiir tiiiir 

1 



«CTim MM: URFm 

CVMOT «tTie> riKuii: Mffiaoo 



t 
1 



riM 



TO 

OOOJBIEF 

ooojsatF 

00033717 
D00337ir 
OOOSSIFF 
000]6rE7 
00000000 
0003*173 
0000«3SF 
00033341 



ttMTa 

000000 «0 
00000030 
00000100 
OOOOOIU 
OOODOOOt 
00001700 

000001 ca 

00000000 
00000020 
00000120 
OOOOOOM 



i-S^. 



PI8 



STATUS<»OE 
DET-ST-COOE 




*IE«-aME 

pioci«a taraiaariOa aiaca (a ia> 
laniT atiCMe «aE« lia«> 
aoM aat* ia»> 
•■TrvT antXE »E* (aaai 
caaTtaatTt »«t* m(« <c*a) 
acTiaa pa»ca«a La«» aat* 
Taacn* caaraoL aiaca Ct«cb> 
•citaa suaraeciaa cir *ctive> 
rtLE auactTioa a«a 
TEaaiaai coafaai t*ble CTtn 
aaatE* «CT.aaa«. «*l«tile abe* 



tausi or taaa aaaa: «tEt aaLmtaaT TEaaia«Ttoa 
aa*p iT Eiias «t oi7ia« 

aaCS 0-7 000013EO 0C0173a( 0003*Ma OC033*00 0003ta*( O0O337C0 00034480 00033370 

aiaa i-r ooo33aco 000344«a oo03<ssa ooo3sssa aoosiEaa ooostasa 40017144 40017104 
aa*a of 34 00 n OFsaao 



S TERMINATION-INDICATOR 
LOCK-ROLLBACK-INDICATOR 



*DO- |d(HIc{uC0o] t;cl»4C6 t^l jt jtih o;;00tt OIPIOOOJ 00000000 OOOOOOOO 00000000 •....(•aFiasa -Of3400 

a2ciiJoaoa42...a-OF34» 

2 ».- -0FS440 



e3S»20-ooooDoso boocoioo oooocooe oooooooe iFtrzfcn fiFJfon FOFartFiloooooota] 



033«40-005000ia EtOOOOOO 0003««3a OOOOOOOO |t'00}«95t[ a 0D7Bt!I 4 )0344E* 0001373 ) 



033440-00034E34 OOOOOOCa 00033<00 0003F7ac 000:6C2t 01 Q01FEC 0p00a240 00004t3P 
033440-00000004 OCCCCOOC COCCbCCO 0001 TtBlJi 0001 DOOO 01 033444 



END OF MB - 



• •••a T...> <.-OF3440 

l034Et4 I0034F^ • ^K.3.-0F34aO 

I— SOURCE-TERMINAL-TYPE 
L-TIME-OF-DAV 
1-TRANSACTION-DATE 
1_SAVE AREA AODR 



B*^ 



^^F^^T^S^j^^^^F^P^ 



^"teff 



033440-00013730 OOtOOOIE 00034(4! 00034«4i 0003340C 000337CO 000337CO 000344BII 
e334C0-0003357a 0O033aC0 00034498 00034350 00033S5( •003441t|o0033e«C 800337C0 



0334EO-a00334CO 00t33570 OOC33lt0 00033144 00033S70 00033749 000337C0 00033043 
033300-00033744 a00337B4 OOOOOCCO 00034580 0003447C 00034938 000344B8 00033400 
033520-000338(0 000337B8 00033570 00033710 00034474 40034414 OOOOOOOO OOOOOOOO 
O33S4O-OOOOOF00 OOOOOOOO OOOOOCOO OOOOOCCC COeCCCCC OOOOOOOO OOOOOOOO OOOOOOOO 
U3340-OOOOOOCC OOCOOOOC OOCOOCOO OOOOOOOO I 



— I 

PARAM LIST 




Figure 12-9. Termination Snap Dump for SAfVIFIN Load IVIodule (FIXSAIVI Action Program) 

(Part 1 of 3) 
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f'.-x'' 



OMA 



r 



START OMA 
I I 



00000000 

B3^ «o{ i0O300CO| ctH»3ca 40>5t1M C9<0«0<0 tOlOtOtt 

a]3»o-«ota>o«o >a<o«o4o «o«i<c«o «a4o<c<o totctctc 
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0]3>00-<04a«0<0 40404040 40404C40 40404040 40404C4C 

0]]420-E4E2<0C3 •6C4C940 40F0r0F0 ^2404040 40404040 

a33<40-C1E3C4C2 40C3t>C4 CS404CrO r0F0FC40 404C4C4C 

033640-40404040 10040200 C6C9B3C3 40»SCU4 C34C404C 

O33«aO-4O4O404O 404C4C4C 40404C40 40404040 40404040 

033MO-40404040 40404040 40404040 40404040 1004000C 

033«C0-C3E4E2E3 «0C9C440 40404040 40404CC3 E4E2E]te 

03S«EO-40404040 40C1t4E3 40>7CIC« C4404040 404C40C4 

033r00-404040l'0 F4404040 40404C40 40F0F0F< F2F04C4C 

033T20->3t<C4CT C5404040 40404040 40404040 SBFIFIFt 

03S740-F1F56IF7 F7404040 10040200 40404040 404t4C4C 

033T<0-40404040 4040404C 40404C40 40404040 4040404C 

••*• 0F3780 to 0F37A0 SAKE AS ABOVE 

0337A0-4040404C 40404040 40404C40 40404040 40404040 



00000000 
t2t4t3C« 

40404040 
• 60400 
C9X4040 
40404040 
40C4CSE3 
40404040 
404040C6 
40404040 
•SI64e40 
•4C!t«40 
C1E3C540 
40404040 

F0F04eri 

40404040 
40404040 



nooooooo 

CV<34040 
40404040 
CM3CS40 
40F14O4O 
10040000 
C1Ctl3C3 
40404040 
E2t4C4C6 
40404040 
>tCSCIC4 
•3C1>4CS 
40404040 
C6B6E4»S 
F1404040 
40404040 
40404 D40 



MESSAGE-LENGTH 
loiccj ooce • 

40404040 «....riLC HARC 
40404040 • 
>9CSCtC3 • 



-0F3S(O 

FlBTfll -OFJSM 

-0F3SAO 
•EH! OF FILC AEAt-OFSSCO 



40404040 'HE* kURlMC REAB NURBER t -DFS5E0 

E2S3C1C3 • ....STAT-OF3600 

C440E2E3 •US-CBBE 0002 BETAILFB ST-0F3620 

40404040 'ATUS tOtE 0000 -0F3640 

C9B34040 * ....FILE MANE FSUBFIL -0F3660 

40404040 • -0F36B0 

40404040 * ....NO. REAB -0F36AO 

40404040 'COST-IB CUSTOKER RAHE -0F36C0 

10040000 • Am nttt bate ....-0F36E0 

C4B9E840 • 04 00620 FOUNBRT -OF3rOO 

40F0FB61 •LOBIE S1190a.11 0a/-0FS720 

40404040 •15/77 .... -0F3740 

40404040 • -0F3760 



4040404P D5C93C0C 00000000 • 

L, 



END OF OMA 



IMA 



START OF ACTION PROGRAM 

r-GNDOFIMA 
LOAD AREA 

nil 



I))!>C0-E3b'>>4C4 00320069 OlBFOCO' OOCF'COO OHIOM 40I340E3 40t53C40 40404C40 •TFR 



0331(0-4040 1040 40404040 40404040 4040404C 00 

IRAP OF4o|)0 TO OF5200 

034000-90ECDOOC iatF4700 OtOOJCEO >0St30E0 •O!4SC0C •0SCD702 BO3CB05C ttOOOOOS •.. 

034020-4200B03C J010BOSO 4a40B05E 09400001 4164C1tC (2016069 60004154 C242aa4a •.. 

034040-00014160 B06C9108 50004710 C05EF363 600CBC5I tC056000 C1A24160 60069140 •.. 

034060-50014700 (0765610 •05B4a7C 100245E0 C17t4160 60059250 •0664170 B06C1976 •>. 



,^ *- ^i»i2*:5l^W*'' * 





CDA 




^* 


- 














:s<; 














r-STARTCDA 










p-START OF WORK AREA 










p END CDA 




oil 


7A0-40404040 


40404040 
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40404C40 
DSC4B<E8 


40404040 
40B3B6C4 


40404040 
t7e5404C 
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1190011-OF37CO 
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7tO-{FOFaFeF2 




F5eiF7F7 

40404040 


00000000 
40C6B6E4 


00000000 
B5C4l9Ea 


00404040 
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FOF44040 
t7t54040 


40404 C40 
40404040 


4040F0r0 
40404040 
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-0F38OO 


03ja00-F6F2F040 


•620 FOUNBRT IQDSE 


033a20-405BF1F1 


F9F0F04B 


F1F14040 


4040FOF8 


61F1F561 


F7F74040 


40E2E3C1 


E3E4E260 


• «11900.11 08/15/77 


STATUS — CF3820 


033840-C3B6C4C5 


4040F0F0 


FOF24C40 


40404(40 
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ESC1C9B3 


C5C440E2 


E3C1E3E4 
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-0F3B60 
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OOOOOOOO 
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OOOOOOOO 
0000 00 CC 




...... ...-0F3880 


033aAD-00000000 
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— END OF WORK AREA 
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Figure 12-9. Termination Snap Dump for SAIMFIN Load Module (FIXSAIM Action Program) 
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034*20 

a34«4a 

03«9«0' 

03<«a0' 

0349*0 
0349C0' 
0349EO' 

034M0' 
034AAO' 
D34AC0' 
034*Ea- 
034 BOO- 
034B20' 





r— SAM FIN REGISTERS 


AAAAAAAA 


00000000 




**««A««« OOICOOQZ 


OED30000 01000201 00004020 


21200700 


00000000 


0003344S 


00034940 |40C34EF2 


000157JO 00000004 OOOOOOOC 
00033570 00033<t0 000]469e 


000349A8 
000345S8 


00033400 

ooo3ssse 


00034A9B 
<0034E88 


000337C0 000346ea 



00034444 OOCOOOSO a0033t*C S0a337C0 00033400 00033S70 000338C0 000338DA • ( 

00033570 00033799 000337C0 00033803 00033781 e00337BA OOOOOOOO 00000000 • 

00000000 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO • 

0F4A00 TO 0F4AB0 SANE AS ABOVE 

OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 405BF1F1 F9F0F04B • .< S11900. 

F1F10000 OOOOOOOO OOOOOCOO OOOOOOOO OOOOOOOC OOOOOOOO OOOOOOOO OOOOOOOO 'll 

OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 58102018 58201000 S020A100 9200A100 • ( 

58201004 5020*104 9200A104 58201008 5020*110 9200*110 58201000 5020Aiac *....( 8 8... 

9200A10C 58201010 5020A108 9200A10e t70F*114 *11407FE B2037010 6COOD20] • 8 P K...-.IC. 

705C6O04 !>Z0370«e 600495E8 S01705C0 4780C014 95058017 4780C014 95E38017 •.•-.«...-. ,T » T.. 



-0F4920 
-0F494a 
-OF4940 
-0F498a 
-OF4940 
-0F49C0 
-0F49Ea 

-OF 4* 80 
-aF4**0 
-0F44C0 
-0F44E0 
-0F4BCD 

-aF4e2a 



END ACTION PROGRAM LOAD AREA 
r— OMA ADOR 

r- CDA ADDR 



0351 0-47F0F04C 47Ft 



0-1B22 
0-DOOC 



,- PIB ADDR 

^ IMA ADDR 



F048 47F0F044 47FOF04C 47FCFC3C 47f(F038 47F{FQ34 47F(F030 • .00<.00. .CO. .00 . 00.. 00. .00..00 •-0F5160 

035lfO-47FOU02C 47F(F028 47F0FC24 47F0F020 47F0F01C 47F(F018 47F(F014 47FC F010 •.00. .00. .OO..00..O0..CO..0O..0O.-OF518O 

0351fO-47FC FOOC 47F( F008 47F0Fa04 050O1B0F 89000008 88000008 9013D018 051C I83D •.O0..0O..O0 -0FS1A0 

SS33 00045923 00044770 10044900 1038477C 102E95E2 300(4770 102E92FF • S... 

S8DD DaO«9eEC D00C07FE 5eF30C14 9813001' 07FFD006 000(0000 0000 DOOO • 3 



.WAADDR 



-orsico 

-0FS1EO 
-OF5200 



0351 

"351 

035200-00) 
THREAD CONTROL BLOCK START 

SNAP 0F6E|20 to C|F6FEe 

03«E20-FFfE sC50 00036E20 0O00OC11 00036EF0 60016F3 2 |o00334 00| 00033BC0| 000337co| . 

, r , T r ' felT ALLOCATIOKl MAP 

036E40- |0O03357O| 00C33788| 00033EF0 OOOOOOOO OOOCCJOC [00000802 OOOOOOOO OOOOOOOO • -0F6E40 

C3CEeo-00000000 OOOOOOOO OOOOOCOO OOOOOOOO 000C0C0CJ0O03DB48 0003F70C OOOOOOOO • 7 -OHltO 

03<E*0-00008240 OOOOOOOO OOOOGCC(? 00520069 01PF0C03 280006E8 OOOOOOOO OOOOOOOO • T -aF<E80 

:36EA0-aO0O000O 00C1B042 00Q334D8 0200003E 0C0C5F4a 0001A8C8 OOOOOOOO OOOOOOOO B '....H -0F4EA0 

a3<ECO-00000000 OOOOOOOO 00034958 OOOOCOOO 4001AB72 000044F6 00036EA4 00Q05ED8 • <..>.. .;B-OF<ECO 

C3<EEa-0001«8C8 a0C3«E20 000334CO 00005EI>8 OOOOOOOO 00036F38 OOOOOOOO 60016F32 •...«..> ;• ? -.?.-OF<EEO 

''3<FC0-0O0O48Fe 000173E4 000173eO 00000004 OC036E20 00000001 00036E20 OOOOOOOO •...8...U > > -OFtFOO 

038F20-00008240 00008240 00007378 00008240 00033C04 00017680 OOOOOOOO OOOOOOOO • -0F8F2O 

038F40-00000000 600C21BE 00016F08 OO0Q0C01 00000001 00001840 00033400 00033400 *....- 1 -aF«F40 

036F60-00036E20 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO •..> -aF<F60 

O36F8O-OO033448 50001DBO 000176B0 00008240 00033400 000018A0 00033400 00036E20 •....( >.-0F6F8a 

036FAO-00036E20 OOOOOOOO OOOOOOOO 00033400 00033aFC OOOOOOOO 00034000 00035200 •..> -0F6FA0 

036FCO-80000000 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO • -0F8FCO 

036FEO-00000000 OOC04C30 FF THREAD CONTROL BLOCK END • <.. -0F6FE0 



Figure 12-9. Termination Snap Dump for SAMFIN Load Module (FIXSAM Action Program) 

(Part 3 of 3) 
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In Figure 12-9, the save address is 34958. Once you locate this address, which is in the 
action program load area, advance three full words (Cj^g). At location 34964 you will 
find your action program's registers 14, 15, and 0-12, in that order. 

12.6.1. Finding Error Codes in the Program Information Block 

Looking at Figure 12-9, SAMFIN's program information block begins at address 
33400. The first word (4 bytes) contains the STATUS-CODE and DETAILED- 
STATUS-CODE fields. IMS returns values to these fields indicating the result of 
action program function calls. If the function call is successful, these fields contain 
zeros. Figure 12-9 shows that the function call made to IMS was successful because 
both STATUS-CODE and DETAILED-STATUS-CODE fields indicate a successful 
function call. 

If, for example, IMS returned a status code of 03 and a detailed status code of OB, it 
would mean that the action program made an invalid request and that the file 
requested was not assigned to this action at IMS configuration. Then, to find out 
exactly which file is involved, you must consult the parameter list address in the 
thread control block. (See Figures 12-4 and 12-5.) 

For a complete listing of the values IMS returns in the STATUS-CODE and 
DETAILED-STATUS-CODE fields, see Appendix D. 

12.6.2. Finding Other Data in the Program Information Block 

Still in the program information block at relative location PIB + A^^ is the 
TERMINATION-INDICATOR field. If your action program moves an S to this field, 
this location contains an E2 for voluntary termination snap. The value in this and any 
other program information block field varies depending on the action program and 
whether the program terminated voluntarily or involuntarily. 

Relative location PIB + B^^ is the LOCK-ROLLBACK- INDICATOR field. It contains 
D5 (character N), which is the default value. The value N establishes a new rollback 
point in the audit file (bef ore-images of records to be updated) and releases all locks 
for this transaction. 

By comparing the program information block fields listed in Figure 3-2 to the program 
information block area of the snap dump, you can see exactly what values all these 
fields contained when the dump occurred. For your convenience, we have noted a few 
of these fields in Figure 12-9: transaction-date (82/04/15), time-of-day (08/08/45), and 
source-terminal-type (hexadecimal E6 or character W) indicating a local workstation. 
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All 90-character positions of the program information block are displayed. Remember, v„ 

however, that only the first 71 positions are accessible to your action program. 

12.6.3. Finding Error Causes in the Output Message Area 

Using the allocation map in Figure 12-9, we see that the output message area begins 
at address 33570. This area contains the 16-byte control header and the output 
message generated by the action program. 

The first three words of SAMFIN's output message area (Figure 12-9) including the 
DESTINATION-TERMINAL-ID and DATE-TIME-STAMP fields contain zeros 
indicating that the destination terminal is the same as the source terminal. 

Also, in the output message area at location 3357C or OMA + C^^ is the 2-b3^e 
MESSAGE-LENGTH field. This field indicates the size of the output message to be 
generated (460 bytes). 

Since SAMFIN does not use screen format services and is not a continuous output 
program, relative locations 3357E and 3357F, respectively, contain zeros. 

Following the unused 2-byte AUXILIARY-DEVICE-ID field is the 4-byte DICE field 
containing the DICE sequence as the first four bytes of the output message text. 

12.6.4. Finding Error Causes in the Input IVIessage Area (^ 

The input message area begins at relative address 338C0. Its contents include the 
input message area control header (16 b5^es) and the input data entered by the 
terminal operator. The terminal input starts at IMA + 10^^ or 338D0. The terminal 
operator entered the transaction code, F#04. He didn't wish to test the disconnect 
feature in this run, so he entered an N. Since he was interested in terminating 
voluntarily with a snap dtimp, he entered T in the next position. We've noted these 
fields to assist you in finding them in the snap dump (Figure 12-9). 

12.6.5. Finding Error Causes in the Continuity Data Area 

By looking in the allocation map, we find that SAMFIN's continuity data area begins 
in location 337B8. Here, we see the character D5 or N. This indicates that the value of 
N was entered at the terminal to indicate that the disconnect feature was not being 
tested on this run. The next byte indicates an E3 or T meaning that the voluntary 
termination was used. 

Finding these values tells us that our program executed the instruction which moved 
these values from the input area to the continuity data area. (See lines 232, 233, and 
238-239 in FIXSAM's coding (Figure 12-8).) 
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12.6.6. Finding Error Causes in the Work Area 

Similarly, the work area begins at location 337C0. To find customer identification, 
name, amount paid, and date paid values in this area of the dump indicates that 
SAMFIN executed instructions that placed these values there. See the GET function 
call (line 317, Figure 12-8), which actually moves these values from the disk or tape 
file to the work area. 

If the program is compiled as reentrant, and work area size is not large enough, the 
compiler object code will overwrite customer information (such as customer 
identification, name, amount paid, and date paid), and the action program may 
abnormally terminate. 

12.6.7. Finding Error Causes in tlie Action Program Load Area 

Now, let's turn our attention to the action program load area. This is by far the 
lengthiest section of the snap dump. Data contained in the thread control block is 
equally essential to interpreting the program area, so these two areas will be 
discussed at the same time. 

The thread control block is at location 36E20. As was previously mentioned, it 
contains the addresses of all the interface areas £ind the action program load area. 
This data is valuable only if you're using an unedited dump. However, the thread 
control block does contain other information very useful to the IMS programmer. 

Using the multithread DSECT shown in Figure 12-5, find the ZT#TFAM allocation 
map tag and its location. Add this value to the thread control block address. In the 
example at location 36E54, there are four full words (single-thread) or eight full words 
(multithread) used for a file allocation bit map. To use this bit map, you must reaUze 
that four full words contain 128 bits and eight full words contain 256 bits. IMS uses 
these bits to indicate which specific files a user action program can access - one file per 
bit. 

If bits are set to zero, the action program cannot access those files. Examining these 
locations can be very valuable in determining which files your action program was 
accessing during execution. 

For example, if the high-order bit was on, the action program could access one file - 
the first file configured. If additional bits were on, additional files could be accessed. 
These bits are maintained in the same relative order as the actual files were 
configured. 
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Three labels from the multithread thread control block DSECT are sometimes helpful 
in debugging. Using the thread control block DSECT for multithread, Figure 12-5, find 
three labels: 

• ZT#TRPLA 

• ZT#TFC 

• ZT#TUPDA 

In single thread, the thread control block DSECT labels (Figure 12-4) are: 

• ZT#HRPLA 

• ZT#TFC 

• ZT#TUPDA 

To the left of the first label, ZT#TRPLA, find the address that is also the dump 
address of the parameter list that was passed for the function executed. In this case, 
the address of the parameter list was 334D8. 

Next, find the ZT#TFC label representing an address in the dump. This address 
points to an area in the dump containing the number of parameters in the list and the 
hexadecimal code representing the last function call. You can go to this address and 
see the addresses of parameters that were passed. The last valid word in this list will 
contain a hexadecimal 80 in the first byte. Note that sometimes these function calls 
are issued by IMS and sometimes by your action program. For this reason, this data is 
not always useful in debugging. 

You can determine the number of parameters passed on the last fimction call by 
counting the number of words containing valid addresses. 

Table 12-1 lists all the IMS function calls and their corresponding hexadecimal values 
for use in debugging your action program. 
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Table 12-1. Hexadecimal Equivalents for Function Calls 



Hexadecimal Function Call 



Hexadecimal Function Call 



06 


RETURN 


OA 


SEND 


OE 


FIND 


12 


CLOSE 


16 


OPEN 


lA 


UNLOCK 


IE 


RELEASE 


22 


FREE 


26 


ESETL 


2A 


SETL 


2E 


INSERT 


32 


DELETE 


36 


PUT 



3A 


GETUP 


3E 


GET 


4A 


SNAP 


8E 


SUBPROG 


92 


SETLOAD 


96 


GETLOAD 


9A 


DMS CALL 


AA 


SETK 


AE 


ACTIVATE 


B2 


RUN 


BA 


BRKPT 


BE 


PRINT 


02 


SCALE 
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Finally, find the label ZT#TUPDA in the DSECT and obtain its address in the same 
way. This address points to the area in the dump containing the last DTF or CDIB 
referenced by the last function call executed. This address is not within the range of 
the user snap dump and is useful only when a job dump is available. 
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12.7. Other Debugging Resources 



If your action programs are in COBOL, in addition to their compile and link, a link 
map is useful. Figure 12-10 shows the link map for action program, FIXSAM. 

The link map shows which COBOL object modules are included in the load module. 
The object module, FIXSAM, is included in the load module, SAMFIN, as well as the 
IMS interface module, ZF#LINK 



UNIVAC SrSTEn OS/3 LINKAGE EDITOR 
DATE- 82/04/15 TIKE- 07.51 

CONTROL STREAM ENCOUNTERED AND PROCESSED AS FOLLOUS- 





II 


PARAK OUT=LOADLIB 




1% 


LOADH SAMFIN 
INCLUDE FIXSAN 
INCLUDE ZF«LINK,SVSOBJ 
ENTER FIXSAM 




1* 




caansi 


•AUTO- 


INCLUDED* 


caaNUH 


*AUTO- 


INCLUDED* 


caasHE 


*AUTO- 


INCLUDED* 



STNeOL. 


TYPE. 


PHASE 


ADDRESS. 


ACTIVATE 


ENTRY 


ROOT 


00C01100 


BUILD 


ENTRY 


ROOT 


0Q0011OC 


caasME 


CSECT 


ROOT 


COC00468 


CHDRB 


ENTRY 


ROOT 


00CC1K0 


DLADR 


ENTRY 


ROOT 


0OOC117C 


ESETL 


ENTRY 


ROOT 


CC0011S8 


FKSAN 


CSECT 


ROOT 


oocooAEa 


GETLOAD 


ENTRY 


ROOT 


0O0C1118 


INSERT 


ENTRY 


ROOT 


00001180 


KESKES 


ENTRY 


ABS 


000011 F8 


OPENF 


ENTRY 


ROOT 


00001198 


RDIDC 


ENTRY 


ROOT 


000C11«« 


ROKET 


ENTRY 


ROOT 


ccccii;« 


RDKETL 


ENTRY 


ROOT 


CC0D1138 


RDSQ 


ENTRY 


ROOT 


000011*8 


RDSOI 


ENTRY 


ROOT 


C0001HC 


RDSR 


ENTRY 


ROOT 


C0C01140 


RDSRL 


ENTRY 


ROOT 


G000114« 


RETURN 


ENTRY 


ROOT 


0C0011A8 


SETK 


ENTRY 


ROOT 


OOOC110« 


SNAP 


ENTRY 


ROOT 


000C1164 


STCRL 


ENTRY 


ROOT 


00001158 


SUBPROG 


ENTRY 


ROOT 


CC00112C 


XR3INS 


ENTRY 


ROOT 


000C11K 



•DEFINITIONS DICTIONARY* 



TYPE. PHASE. ADDRESS. 



LOAD NODULE - 

PHASE NAME TRANS ADDR FLAG 

SAMFINOO NODE - ROOT 

*** START OF AUTO-INCLUOED ELEMENTS 



ADDKY 


ENTRY 


ROOT 


000011?* 


CaBMSI 


CSECT 


ROOT 


00000000 


CHTBL 


ENTRY 


ROOT 


000010F8 


DELETE 


EATRY 


ROOT 


0000117C 


DLKCP 


ENTRY 


ROOT 


00001130 


ESLMT 


ENTRY 


ROOT 


00001188 


FREE 


ERTRY 


ROOT 


00001 18C 


GETUP 


EATRY 


ROOT 


0000117* 


KESALM 


ENTRY 


ROOT 


00000000 


LNKCP 


ENTRY 


ROOT 


00OC11JC 


PUT 


ERTRY 


ROOT 


00001178 


RDIDCL 


EATRY 


ROOT 


OODOIIAQ 


RDKEYC 


ENTRY 


ROOT 


00001110 


RDKYI 


ENTRY 


ROOT 


0000113C 


RDSGC 


ENTRY 


ROOT 


ooaoii9c 


RDSaiC 


EATRY 


ROOT 


00D0116* 


RDSRC 


ENTRY 


ROOT 


00001190 


REBUILD 


ENTRY 


ROOT 


00001110 


RUN 


EATRY 


ROOT 


OOOOIOFC 


SETL 


ENTRY 


ROOT 


0000118* 


SSLOCK 


ENTRY 


ROOT 


00001150 


STLMT 


ENTRY 


ROOT 


0000118* 


UNLCCK 


ENTRY 


ROOT 


00OO119* 


ZF«LINK 


CSECT 


ROOT 


000010F8 


** 


ALLOCATION MAP 


** 


FIN 


SIZE 


O00O11F8 


EL TYPE 


ESID 


LNK 



SYHBCL. 


TYPE. 


PHASE 


ADDRESS. 


ARETURN 


ENTRY 


ROOT 


00001168 


caaNun 


CSECT 


ROOT 


000002A8 


CLOSE 


ENTRY 


ROOT 


0O0O119C 


DELKT 


ENTRY 


ROOT 


00001128 


ENDCRL 


ENTRY 


ROOT 


0000115C 


FIND 


ENTRY 


ROOT 


0000 11 AO 


SET 


ENTRY 


ROOT 


00001170 


GTADR 


ENTRY 


ROOT 


00001180 


KESALP 


ENTRY 


ABS 


000011 F8 


OPEN 


ENTRY 


ROOT 


00001198 


RDID 


ENTRY 


ROOT 


00001170 


RDIDL 


ENTRY 


ROOT 


0000117* 


RDKETCL 


ENTRY 


ROOT 


000011 OC 


RDKYIC 


ENTRY 


ROOT 


00001108 


RDSaci 


ENTRY 


ROOT 


0000119* 


RDSaL 


ENTRY 


ROOT 


OOOOIISC 


RDSRCL 


ENTRY 


ROOT 


00001168 


RELREC 


ENTRY 


ROOT 


00001190 


SEND 


ENTRY 


ROOT 


000011A* 


SETLOAD 


ENTRY 


ROOT 


0000111C 


SSUNLK 


ENTRY 


ROOT 


0Q0D11S4 


SUB 


ENTRY 


ROOT 


00001120 


URID 


ENTRY 


ROOT 


00001178 



o 



00000000 



HIADDR 
000011F7 



LENGTH 
000011F8 



Figure 12-10. Link Map for FIXSAM Action Program (Part 1 of 2) 
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PHASE NAME TRANS ADDR FLAG 
- 11/10/81 00.00 - 



- 10/30/81 00.00 - 



10/30/81 00.00 - 



•*• END OF AUTO-INCLUDED ELEHEKTS 
- 82/04/15 07.50 - 



81/12/22 06.58 - 



PHASE NAME TRANS ADDR 



LABEL 


TYPE 


ESID 


CSaMSI 


OBJ 




caansi 


CSECT 


01 


caaNun 


OBJ 




CaSNUM 


CSECT 


01 


caasME 


OBJ 




caasME 


CSECT 


01 


FIXSAM 


OBJ 




FIXSAM 


CSECT 


01 


ZFtLINK 


OBJ 




7F»LINI! 


CSECT 


01 


ACTIVATE 


ENTRY 


01 


SETK 


ENTRY 


01 


CHTBL 


ENTRY 


01 


RUN 


ENTRY 


01 


XR3IHS 


ENTRY 


01 


BUILD 


ENTRY 


01 


REBUILD 


ENTRY 


01 


GET 


ENTRY 


01 


GETUP 


ENTRY 


01 


PUT 


ENTRY 


01 


DELETE 


ENTRY 


01 


INSERT 


ENTRY 


01 


SETL 


ENTRY 


01 


FSETL 


ENTRY 


01 


FREE 


ENTRY 


01 


RELREC 


ENTRY 


01 


UNLOCK 


ENTRY 


01 


OPEN 


ENTRY 


01 


CLOSE 


ENTRY 


01 


FIND 


ENTRY 


01 


SEND 


ENTRY 


01 


RETURN 


ENTRY 


01 


ARETURN 


ENTRY 


01 


SNAP 


ENTRY 


01 


SUB 


ENTRY 


01 


RDSSL 


ENTRY 


01 


RDIOC 


ENTRY 


01 


RDIDCL 


ENTRY 


01 


RDSfiC 


ENTRY 


01 


RDSeCL 


ENTRY 


01 


RDSRC 


ENTRY 


01 


RDSRCL 


ENTRY 


01 


RDSOIC 


ENTRY 


01 


RDKETC 


ENTRY 


01 


RDKETCL 


ENTRY 


01 


RDKTIC 


ENTRY 


01 


GTADR 


ENTRY 


01 


DLADR 


ENTRY 


01 


ADOKT 


ENTRY 


01 


DELKT 


ENTRY 


01 


LNKCP 


ENTRY 


01 


DLKCP 


ENTRY 


01 


URID 


ENTRY 


01 


RDID 


ENTRY 


01 


LABEL 


TYPE 


ESID 


RDIDL 


ENTRY 


01 


RDKET 


ENTRY 


01 


RDKETL 


ENTRY 


01 


RDXTl 


ENTRY 


01 


RDSR 


ENTRY 


01 


RDSRL 


ENTRY 


01 


RDSa 


ENTRY 


01 


RDSQI 


ENTRY 


01 


STLMT 


ENTRY 


01 


ESLMT 


ENTRY 


01 


SSLOCK 


ENTRY 


01 


SSUNLK 


ENTRY 


01 


STCRL 


ENTRY 


01 


ENDCRL 


ENTRY 


01 


CMDRB 


ENTRY 


01 


OPENF 


ENTRY 


01 


SUBPROG 


ENTRY 


01 


SETLOAD 


ENTRY 


01 


GETLOAD 


ENTRY 


01 



B - BLK DATA CSECT D - AUTO-DELETED 
L - DEFERRED LENGTH M - MULTIPLY DEFINED 
S - SHARED ITEM U - UNDEFINED REF 
•ANY OTHER CODES REPRESENT PROCESS ERRORS* 



LINK EDIT OF 'SAMFIN' COMPLETED 

DATE- 82/0«/1S TIME- 07.53 

ERRORS ENCOUNTERED- 0000 UPSI- X'OO' 



LNK ORG 

OOOOOQOO 
00C002A8 
0000046S 

0DC004E8 

000010F8 
OO0011OO 
OOC01104 
O0C01OF8 
000010FC 
O0C011H 
0000110C 
00C01110 
00C01170 
00001174 
00001178 
0000117C 
00001180 
0000118* 
0GC01188 
O0C0118C 
00001190 
00001194 
00001198 
OOOOIIflC 
00C011AO 
OOD011A4 
000011A8 
00001168 
OO0C1164 
OO0C112O 
0U00118C 
000011A4 
000011A0 
O000119C 
00001194 
00001190 
00001168 
00001164 
00001110 
00C0110C 
00001108 
00001180 
0D00117C 
OO0Q1124 
00C01128 
0000112C 
00C01130 
00001178 
OOC01170 



LNK ORG 
00001174 
OD001134 
OOC01138 
OOC0113C 
00001140 
00001144 
00001148 
00CC114C 
00001184 
00001188 
00001150 
000011S4 
00001158 
0000115C 
00001160 
00001198 
00001120 
0000111C 
00001118 



HIADDR 
0a0002A7 
00000465 
000004E1 

000010F7 
000011F7 



LENGTH 
000002A8 
000001BE 
0000007A 

0D00OC10 
G0000100 



LENGTH 



OBJ ORG 
00000000 
00000000 
00000000 

OOODOOOO 
OOOOOOCO 

oooooooe 
oooooooc 

00000000 
00000004 

ooooooic 

00000014 
00000018 
00000078 
0OOO0O7C 
000000 80 
00000084 
00000088 
D000008C 
00000090 
00000094 
00000098 
0000009C 
OOOOOOAO 
000000*4 
000000A8 
OOOOOOAC 
OOOOODBO 
00000070 
0000006C 
00000028 
00000094 
OOOOOOAC 
r00D00A8 
00OO0OA4 
0000009C 
00000098 
00000070 
000aG06C 
00000018 
00000014 
00000010 
00000088 
000OCO84 

oaoooo2c 

00000030 
00000034 
00000038 
00000080 
00000078 



OBJ ORG 
0000007C 
0000003C 
00000040 
000000 44 
00000048 
C000004C 
00000050 
00000054 
0000008C 
00000090 
G0000058 
000000 SC 
00000060 
00000064 
00000068 
OOOOOOAO 
0000002B 
00000024 
00000020 



FLAG CODES - 




E - EXCLUSIVE 'A' REF 


G - GENERATED EXTRN 


N - NOT INCLUDED 


P - PROMOTED COMMON 


» - VCON ITEM 





I - INCLUSIVE 'V REF 
R - SHARED REC PRODUCED 



Figure 12-10. Link Map for FIXSAIW Action Program (Part 2 of 2) 
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12.8. Analyzing an Abnormal Termination Snap Dump 

Figure 12-11 shows the dump generated when action program SAMFIN terminates 
abnormally due to a program check error. This program check occurred because of an 
invalid instruction code. 

All of the debugging techniques discussed for S termination snaps pertain to abnormal 
snap dumps except for information about the save area. In addition, the program 
status word plays an important part in determining the cause of an abnormal 
termination dump. 

To find the address of the erroneous instruction, you must first go to the sixth, 
seventh, and eighth bytes of the program status word. 



n 



PSW 



Bytes 1 



6-,_. '^7_.-~ ;^.8' 



In Figure 12-10, after the allocation map, the address in these bytes is 034C5C. 



Bytes 













03 


4C 


5C0 



o 



This is the address of the instruction immediately following the erroneous instruction. 
You go to address 034C5C and count back one instruction. The next question is: How 
long is the erroneous instruction? so you know how many bytes to count back from this 
address. 

Once you locate the next sequential instruction after the erroneous one, look at the 
program status word in bjrte 5. The first 4 bits of this byte contain the instruction 
length code and condition code. You are interested in the two high-order (leftmost) bits 
of byte 5. Looking at the program status word (Figure 12-11), notice that byte 5 
contains 40^^. In binary, this is: 



LENGTH OF ERRONEOUS INSTRUCTION: 






1246 



UP-9207 Rev. 2 



Debugging Action Programs 



r 



The two high-order bits can have one of the following binary configurations indicating 
a 2-, 4-, or 6-byte erroneous instruction. 



Sit Configuration 


Interpretation 


01 


2-byte instruction 


10 


4'byte instruction 


11 


&t)yte instruction 



SAMFIN's erroneous instruction has a bit configuration of 01, meaning it is a 2-byte 
instruction. Counting back from location 034C5C, two bytes show an instruction 
containing zeros. 

Now you go to b3H:e 4 of the program status word to obtain the interrupt code. The 
interrupt code is 01 1^, an operation exception. This means that an illegal operation 
was attempted. 



o 



: -t-S' 



t 1 

• iiis?a sii«r t u H r • 

1 1 

XCTION N«IIE: StIIFIN lATI: 

cuaatNi ACTION pnocatiii lAPrmoo Tiaii-iit Taxi Ti«iis-i>t oas200490icjooot Timt 

• • *L10C«TI0N IMP •• 

rtOK 10 tCNtTK *III«-li«RE 

C0D33400 0003]«ar OOOOOOtO paoci** IKfOalMTIOa BLOCK CPIBI 

OOOUtco 000]38cr 00000030 INPUT pisSMi aaia (ina> 

00O33rCO OO033aBF 00000100 NOa« «ai« (lit) 

00033370 00033707 OOOOOItt OUTPUT PESSACC aaE* (0P«> 

C00337BI 000337BF 00000008 COBTIKUITT lAT* «at« (Ca*> 

0003*000 OODSSIFF 00001200 •CIIOB P>0«a«a LO«i «IC« 

0003<C20 00036FE7 00D001C8 THaEAB COaiaoL BLOCt (THCBI 

00000000 00000000 00000000 ACTIOK SUBPaocaan (IF «CTI«E> 

0003>ES* 0003«E7] 00000020 FILE <110C«TI0« P«P 

0000S2«0 000083SF 00000120 TEBPiaai. CHTaOL TaBLE CTCT) 

COO33S08 O00333«B 000000«( SNtaEt aCT.PaOt. VOLaTIlE AaE* 



12/04/15 
•l1>:3q 



CaUSE OF SNAP BUP.P: USEP PaOClaN CHECK 



^v- 



■ e, ,'. ^■^' 



"f^rKi*:-- •^-^^p'H. 



rJif-tf-'--' 



. *." 



Figure 12-11. Program Checit Abnormal Termination Snap Dump for SAMFIN Load 
Module (FIXSAM Action Program) (Part 1 of 2) 
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I— INTERRUPT CODE 

BITS 01100000 



■^0 



I 



r 



ADDRESS OF ERRONEOUS INSTRUCTION 



^°'."."l 



P>Oeit«R STATUS kO«»: E0t6CE|0 

BSe« REGS 0-7 OOOOOOOG 00034f6C 00033*00 00033*00 0OO337C0 

USE« REGS 8-r 000338C0 0003*698 0003*558 00035558 6003*Btt 



aO03]7CD 
0003*958 



0003*688 
90035OEE 



00033570 
0003*CS< 



000337C0 00033700 0003*6B8 00033570 
*003*BF* 0000*«E8 6001716* 60CM7186 



SKAP BT E«I»IS AT 0171A6 

»ESS 0-7 O0OO13EO 000173BC 00033*00 0C033*0C 

»ECS e-F 00033SCO 0003*698 0003*556 00035558 
SKAP OF3*00 TO 0F38F0 

033*00-00000000 E2C1I)*C6 C9ci5l)5D5 00520069 01C50006 00000000 OODOOOOO 00000000 ♦.. ..SABFIHUN E Of3*pL 

033*20-00000050 OOOCOIOO 00000008 00000000 F8F2FCF* F1F5F0F8 F1F5F2F8 00000016 ....« 820415081528. ..W-OF3*2C 

033**0-00500018 E9000000 E0E60E01 *003*C5C OOOCOCOt 0003*660 00033*00 00033*00 :t..l <♦ x -0F3**l 

033*60-00033700 00033700 0003*688 00033570 0003380C 0003*698 0003*558 00035558 • 0F3*<i 

033*8O-60O3*Bf« 0003*958 900350EE 0003*056 OCOGOOOO 00033**8 00036tC* 50O3*FFC .-..« |...< >««.]. -0F3*80 

033*AO-00015730 OOC0003E 0003*9*8 000349A8 0C033*0C C00337CO 00033700 0OO3*6b8 -0F3*«u 

033*00-00033570 00033800 0003*698 0003*558 D0C35'55e 60034BF4 no0338«C 8O0337C0 

033*EO-O0033*00 00C33570 C0C335C0 00033SDA 00O3357C 00033799 00033700 000338B3 

033500-000337B8 800337BA OOOOOOCO 0003*580 0002*670 0003*958 00034668 C0033400 



0F3401 
0F3*EU 



g 



-0F3501 L 



fm 



03*I>CO-B2067023 60F8F211 A0408012 F910AO*0 62270500 ♦770C026 B2477060 616092*0 •IC...-82.. ..9 K..-/-. -0F4BEI 

03*000-50J1D2*6 50325031 B201503* B012B2*7 70A05031 58F0900* 05EF9240 5031*2*6 •t.K.t.t.K.I. ..K. ..I..C «.K.-OF*OOC 

03*020-50323031 F211A050 50C19«FO A051F211 A0608012 9*F0AO61 F911A050 A060*770 •I.(.2..tlA ....2 /9..«.-..-0F*C2l. 

03«0«0-C052«7FO 0066*1EO 006218r0 90EfA11* 58FC9008 07FF47F0 C03 C|OCOO| AO*C50C3 ....0 «C-Of*04t 

03«0«0-f900A040 6227*770 00E2B20* 503E5000 »21350«9 5005IP209 BUOftJT F236A060 .9 K.t.t.K.t .(.IC.J ..2. 0f4C6(J 



rc 



I — BAD INSTRUCTION 



."3 
"« 

-'St 









Figure 12-11. Program Check Abnormal Termination Snap Dump for SAMFIN Load 
IVIodule (FIXSAM Action Program) (Part 2 of 2) 
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12.9. Analyzing a CALL SNAP Dump 

The GALL SNAP dump is useful in action program debugging because the program 
issuing the SNAP function call can continue processing. By specifying on the SNAP 
ftinction call only those areas of your program that you want to examine, you obtain 
the data you want to check without terminating the program. 

Figure 12-12 shows the dump generated by the SNAP function code issued from the 
SAMFIN action program (Figure 12-8, lines 312 and 313). Notice, each beginning and 
ending area requested is listed in the dump (Figure 12-12). 



1 



-*-*-*-*-«- 



-*~*-*-* 



c 



ACTION N/INE: S«MFIN 

CURRENT ACTION PROCRAn: 
»• ALLOCATION BAP •« 



TRANS-ID: 



DATE: 82/04/1S 

00520C6901BI>0001 TINE: 8:07:04 



FROn 

00013400 
C00338C0 
a00S37C0 
00033570 
G00337Be 
00034000 
00036E20 
00000000 
0OO36E54 
000011240 
00033508 



TO 

0003348F 
000338EF 
000338BF 
000337B7 
000337BF 
000351FF 
00036FE7 
00000000 
00036E7; 
0000835F 
0003356B 



LENGTH 

00000090 
00000030 
000001C0 
00000248 
OOOOOOOE 
00001200 
000001 C8 
00000000 
00000020 
00000120 
00000064 



AREA-NANt 

PROGRAK INFORr>ATION BLOCK (PIB) 
INPUT NESSAGE AREA (INA) 
WORK AREA (UA> 
OUTPUT NESSAGE AREA COMA) 
CONTINUITT DATA AREA (CDA) 
ACTION PROGRAM LOAD AREA 
THREAD CONTROL BLOCK CTHCB) 
ACTION SUBPROSRAN (IF ACTIVE) 
FILE ALLOCATION flAP 
TERNINAL CONTROL TABLE (TCT) 
SHARED ACT. PROG. VOLATILE AREA 



CAUSE OF SNAP DUHP: USER INLINE SNAP CALL 

SNAP BY EXIPS AT 0171A6 

REGS 0-7 O0OO13E0 0D0334D8 000349A8 C003340C 
REGS 8-F 000338C0 0003469E 00034558 00035558 

SNAP 0F46BS TO 0F4S90 
034668-10030000 10040000 1C0403CO 10040200 1EOOOOO0 
0346DE-D9C9C340 ESC1D3E4 C540C5D5 E3C5D9CS C44CC6D6 
0346FS-D9C5C440 C6C9C503 C4000CaO 00000000 E309C1D5 
034718-C5D3D3C5 C440C4E4 C540E3D6 4CC1C2D6 E5C540C5 
034738-C9D3C54a D9C5C1C3 C8C5C440 C4E4D9C9 D5C740D9 
0347S8-C5D9D9D6 D940C6D9 D6D44CE2 C1D460C7 C5E3404C 
034778-D5E404C2 C5D94040 E2E3C1E3 E4E260C3 D6C4C54C 
034798-40C4C5E3 C1C9D3C5 C440E2E3 C1E3E4E2 40C3D6C4 
0347B8-C6E2D4C4 C6C9D300 C5D5E3C5 D940D5E4 D4C2CSD9 
034J08-D940E2C1 O440E5C1 0540D3C5 D5C7E3Ce 40C6C903 
0347F8-D3C9D5C5 40C4C9E2 C3D6D5D5 C5C3E34C D9CSDeE4 
034818-D5D64B40 D9C5C1C4 40404040 C3E4E2E3 60C9C44C 



000337BA 0003S7CO 00034668 OOOJ3570 
60034E88 00033490 6C017164 60017186 



OOOOQOOO 


D5D6D560 


D5E4D4C5 


D940D9C5 


C1C4E240 


C4C5E2C9 


E2C1C3E3 


C9D60540 


C3C1D5C3 


D909D6D9 


C5D5C440 


D6C640C6 


C5C1C440 


DSE4D4C2 


C5D94040 


C4E409C9 


D5C740D9 


C5C1C440 


40404040 


40404040 


40404040 


C5404000 


C6E2D4E3 


C6C9C300 


40D6C640 


D9C5C1C4 


E240C6D6 


C5E240C1 


E240C67E 


C5DS0000 


C5E2E3C5 


C4000000 


00000000 


40404040 


404040C3 


E4E2E3D6 



• NON-NUHE-0F46B8 

*R1C VALUE ENTERED FOR READS DESI-0F46D8 

•RED FIELD TRANSACTION CANC-0F46F8 

•ELLED DUE TO ABOVE ERROREND OF F-0F4718 
•HE REACHED DURING READ NUHBER -0F4736 
•ERROR FRON SAN-GET DURING READ -0F47S8 
•NURBER STATUS-CODE -0F4778 

• DETAILED STATUS CODE . F5HTFIL.-0F4798 
•FSHDFIL.ENTER NUR8ER OF READS FO-0F47B8 
•R SAP VAR LENGTH FILES AS FfNN . .-0F47D8 

•LINE DISCONNECT REQUESTED -0F47F8 

•NO. READ CUST-ID CUST0-0F4818 



Figure 12-12. CALL SNAP Dump for SAMFIN Load Module (FIXSAM Action Program) 

(Part 1 of 2) 
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03<e?S-0tC!D9t0 DJCUtCS «C4CiC«0 <0<0<C<0 
03«eS8-ClE3C5<0 tl)<a<0«0 CSD«0<I>i 0«<OII6d5 
0]<C7e-F3tO«OF« «0<OFS<0 «OtO«C«0 iCI<040(0 

ill«P 0F3400 10 OF33rO 
033100-00000000 E^CtDtCi C9ii!dSoS OC52ao«< 
O33«?O-OO0OOO50 OOCcClOO 00000CC8 OOOOCCOO 
03!««O-OO50UOie t9C00000 00034958 OOOOOOOC 
033«60-00U?6f3* OODOOOCe 00033400 0003F70C 
033480-OOOOOCOC OOCOOOOO OOCOOCCO 00000000 
03!4«0-00015730 00C0004A 00C345«! 00034548 
0334C0-OO033!7O 000338C0 000344SS 00034556 
0334EO-00033400 00C3J570 0OO33fC0 000338D4 
0335CO-000337Ef «a0337B« OOOOCCCC 00034580 
033570-0C033SC0 00033788 00033570 00C337CC 
O33S4O-OO00OFOO 00000000 OOOOQCOO OOOOOCCC 
033S«O-0O0OGO00 OOGOOOOO OOOOCCCD OOOOOOCO 

SKAP CF38C0 TO 0F3tDA 
0338C0-E3t9l!4C« OD!200e9 OleDOOCI OOOFOOOO 

SKAP 0F3570 TO 0F3799 
033570-00000000 OQOOOOOO 00000000 01CC0C00 
033590-404040C6 E2D4E3Ce C9l>?4t«0 40404C40 
033580-40404040 40404040 40404040 4040404G 
0335DO-CS0SC44C 06C(40C6 C903C540 IIVC5CU3 
0335FO-DSE404C; C5I>9404C 40F14C40 40404C4C 
033810-40404040 40404040 10040000 E2E3CU] 
03:630-40404040 40C4C5E3 CU9D!C5 C440E2E3 
033650-40404040 40404040 40404r40 40404C40 
03367D-C5404040 404040C6 E264C4CC C9834040 
033690-40404040 40404040 40404C40 40404040 
033600-10040000 05D64840 t9C5C1C4 40404C4C 
033600-E4E2E3D6 D4C5D940 05C164C5 4G4U4C4C 
0336F0-404040C4 C1E3C54C 40404040 100400CO 
033710-F1F04040 40404040 C1B34050 4062C1E8 
033730-405BF2F1 f7F04tFii F3404C4n 40F1F161 
033750-40404040 40404040 40404040 40404040 

•••• OF3770 TO 0F379C SABE AS APOVE 
033790-40404040 40404040 405C 

SHAP 0F37C0 TO OF35B3 
O337CO-fOf0f0F1 FCC1t34a 504002C1 Ea7tE24C 
O337E0-F1F181F1 F961F7F6 OOOOOCOO OOOOOOCO 
033EOO-FOF1F040 40404040 40C1DS40 50401I2C1 
O3382O-4O40SeF2 F1F7F040 F0F34C40 4040F1F1 
033e40-C3D6C4C5 4040F0FG F0F24C40 40404040 
033t60-E240C3D6 C4C54040 FOFOFOFO 40404040 
033880-40FOF3FO OOOOCOOC OOCOOCCO OOOOOCOO 
0338AO-OOO0O000 OOGOOOOO 00000000 C6E264C4 

SNAP 0F37B8 TO 0F37eA 
0337B8-05ES5C 



40CU4E3 4007C1C9 C4404040 40404DC4 'FIEP IIAIIE APT PAID D-0F4838 

40E2D5C1 D740D508 4B40F140 4aF24040 'ATE E>>0> Oil SKAP NO, 1 2 -0F4S58 
40400000 00000000 5C •S 4 S • -0F4B7S 

OIBCOCOI 00000000 OOGOOOOO 00000000 •....SAXFINNN -OF3400 

F8F2F0F4 F1F5FDF8 FCF7F0F2 g000G0E6 •...( 82C41 5080702. ..II-0F3420 

OGO'4«5e 00007B80 600344EA 00015730 •.I..I §.- -0F3440 
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Figure 12-12. CALL SNAP Dump for SAMFIN Load Module (FIXSAM Action Program) 

(Part 2 of 2) 
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12.10. Online File Recovery 
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When a transaction terminates abnormally, or requests rollback before completion, 
IMS rolls back user data file modifications (updates, inserts, and deletions) that 
occurred in the transaction and issues messages to source terminal and system 
console. These messages are explained in the System Messages Reference Manual, 
UP-8076. 

On rollback, IMS returns each MIRAM, ISAM, or DAM file, modified in the 
terminated transaction, to its logical state before the transaction was initiated or 
before the last rollback point was recorded on the audit file. When abnormal 
termination occurs, rollback occurs automatically. 

You can request rollback upon normal termination of a transaction by moving special 
indicator values into the LOCK-ROLLBACK-INDICATOE field of the program 
information block. For more information on the use of this indicator, refer to 3.11. 

Before update or deletion, IMS records in the audit file the current state of each record 
to be modified. In addition, before adding a new record to a file, IMS records in the 
audit file the keys or record numbers of records to be added. It also records data 
marking the initiation and termination of each transaction that modifies a file. If you 
specify a lock rollback indicator value to establish lock rollback points, IMS also 
records these rollback points in the audit file. 

Table 12-2 lists the functions IMS performs to roll back file modifications. 

Table 12-2. File Rollback 



File Modification 


Functions that 


Functions Performed to 




Cause IVIodification 


Roll Back Modification 


Update 


GETUP, PUT 


GETUP (current image) 
PUT (before-image) 


Delete 


GETUP, DELETE 


INSERT (before-image) 


Insert 


INSERT 


GETUP (current image), 
DELETE 
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12.10.1. Error Returns 

When unrecoverable JJO errors occur in the audit file, IMS notifies the source terminal 
operator, sends an error message to the print file, and attempts rollback of all existing 
transactions logged in the audit file. If you didn't configure LOCK=UP in the 
configurator FILE section, IMS prohibits any additional update requests and returns 
a status code of 3 (invalid request) and one of the detailed status codes listed in 
Appendix D. 

12.10.2. Prefix Area Format 

If an I/O error occurs on a user data file during rollback of a file modification, IMS 
takes a snapshot dump of the prefix area of the record being rolled back. After the 
snapshot dump, IMS continues rolling back all modifications made to user data files 
for that transaction. 

If an error occurs on the AUDCONF or AUDFILE during rollback of updates made by 
a transaction, IMS places the name, ZU#ROL, into the current action program name 
field of the prefix area. 

Figure 12-13 shows the format of the prefix area, and Table 12-3 describes the content 
of each field. 
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4 

8 
12 
16 
20 

24 
28 
32 
36 
40 
44 
48 

52 
56 



type code 


flag byte 


transaction 


code 


unused 


terminal control table address 


transaction id 


terminal id 


initial action 




program name 


current action 




program name 


date and time stamp 
at time of audit 


key length 


reserved for system use 


data length of updated record 






filename 











Figure 12-13. Format of Prefix Area of Records in the Audit File 
(Online Recovery) 
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Table 12-3. Contents of Prefix Area for Records in the Audit File (Online Recovery) 



c 



Label 


Field Name 


Bytes 


Code 


Description 


ZF#RTC 


Type code 





Binary 


Bits Set 

to 1 Meaning 


Not used 

1 Not used 

3 Termination 

4 Not used 

5 Rollback point 

6 Before- image, HIRAM 
6, 7 Before- image, ISAM 

7 Before- image, DAM 


ZF#AFB 


Flag byte 


1 


Binary 


Bits Set 

to 1 Meaning 


First before- image for 
transaction 

1 Inserted record 

2 Abnormal termination 

3 Not used 

4 MI RAH, indexed 
5-7 Not used 


ZF#ATC 


Transaction 
code 


2-6 


EBCDIC 


Configured code identifying the current 
transaction; one to five alphanumeric 
characters, left- justified in field 


- 


- 


7 


- 


Unused 


ZF#ACT 


TCT address 


8-11 


Hexadecimal 


Address of terminal control table (TCT) 
for terminal originating this 
transaction. Full -word aligned 


ZF#ATRID 


Transaction- 
id 


12-19 


Binary 


Date-time of initiation of this 
transaction, in the form: 
yy-mm-dd-hh-mm-ss 



c 



continued 






12-54 



UP-9207 Rev. 2 



Debugging Action Programs 



O 



Table 12-3. Contents of Prefix Area for Records in the Audit File (Online Recovery) (cont.) 



Label 


Field Name 


Bytes 


Code 


Description 


ZF#ATMID 


Terminal -id 


20-23 


Hexadecimal 


Configured identification of network 
termination initiating this transaction 


ZF#AIAP 


Initial 

action 

program 


24-29 


EBCDIC 


Program- name of first action program 
initiated for this transaction; one to 
six alphanumeric characters, left- 
justified 


ZF#ACAP 


Current 

action 

program 


30-35 


EBCDIC 


Program-name of currently active action 
program 


ZF#ADT 


Date- time 
of audit 


36-43 


Binary 


Date-time of writing this record to the 
audit file, in same form as transaction- 
id 


ZF#KLIDA 


Key length 


44-45 


Binary 


Length of key in an indexed record; set 
to for a DAM Record 


ZF#CNKN 


- 


46-47 


- 


Reserved for system use 


ZF#DLIDA 

or 
ZF#NAUT 


Data length 


48-49 


Binary 


Length of data portion of updated 
record, or number of active update 
transactions 


ZF#FNM 


File name 


50-57 


EBCDIC 


Logical name of data file being accessed 
by current action program; one to seven 
alphanumeric characters, left- justified 



Notes: 

1. When records are written to the audit file for a UNIQUE action program, the transactioncode field contains 
OPEN, the initiai-action-program field contains ZU#OPEN, and the current-actioni3rogram field contains the 
name of the UNIQUE module active at the time of audit. 

2. When the current action program is accessing a defined file, a prefix is written for each logical record 
involved. In the prefix, the file-name field contains the LFD-name of a conventional user data file contributing a 
logical record (or part of one) to the defined record. It never contains the defined-file-name specified with the 
DFILE keyword. 
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12.11. COBOL Action Program Error Message Buffer 

The COBOL error routines C@@MSI (1974 COBOL) and COBJERR (extended 
COBOL) record data in a 4-b3^e message buffer that corresponds to errors contained 
in the canned message file. To find the cause of error, locate this message buffer by 
checking for its address in general register 1 of the program dump Usting. Table 12-4 
shows the contents of the message buffer for 1974 COBOL and Table 12-5 describes 
the error messages. 

Table 12-4. 1974 COBOL Message Buffer Contents 



o 



Byte 


Hexadecimal 
Content 


Description 



1 
2-3 


C3 
C5 
nnnn 


Canned message prefix 
Canned message prefix 
Hexadecimal message number 



Note: The hexadecimal message number in bytes 2 and 3 is one of the following and 

corresponds to the numbered COBOL message shown (nnnn). For the /'" i 

meaning of the message and suggested corrective action refer to the System f ; 

Messages Reference Manual, UP-8076. 

Table 12-5. 1974 COBOL Error Messages for Action Programs 



COBOL 
Message 


Message Text 


CE23 
CE25 
CE29 


END OF PROCEDURE DIVISION EXECUTED 
NEGATIVE VALUE EXPONENTIATED 
FLOATING POINT ERROR 



V^' 



12-56 UP-9207 Rev. 2 



Debugging Action Programs 



o 



Table 12-6 shows the contents of the message buffer for extended COBOL. Table 12-7 
describes the error messages. 

Table 12-6. Extended COBOL Message Buffer Contents 

Hexadecimal 
Byte Content Description 



5B Canned message indicator ($) 

1-2 nnnn Hexadecimal message number 

3 40 End-of-table indicator (blank) 



Note: The hexadecimal message number in bytes 1 and 2 is one of the following and 
corresponds to the numbered COBOL message shown (nnnn). For the 
meaning of the message and suggested corrective action refer to the System 
Messages Reference Manual, UP-8076. 



Table 12-7. Extended COBOL Error Messages for Action Programs 

Bytes 1-2 

Contents COBOL Message Text 

Message 



043A CEOS END OF PROCEDURE DIVISION EXECUTED 

043B CE04 INVALID EXECUTION OF ENTRY POINT 

0430 CEOS NEGATIVE VALUE EXPONENTIATED 

If there is insufficient work area for 1974 COBOL reentrancy control variables, the 
action program may terminate with a program check, with the program status word 
dump address pointing to this message in the dump: 

INSUFFICIENT WORKAREA FOR C0BL74 REENTRANCY CONTROL 

See Figure 12-14 for a sample program check snap dump. 

For more information on COBOL reentrant action programming, see the 
1974 American Standard COBOL Programming Reference Manual, UP-8613. 
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Figure 12-14. Snap Dump for User Program Check 
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12.12. Snap Dump Showing Allocated Transaction Buffers 

Figure 12-15 shows the voluntary termination snap dump with three blocks of 
transaction buffers allocated. 

The allocation map in Figure 12-15 shows the addresses of the blocks of transaction 
buffers and the length of each block of buffers (labels 1, 2, and 3). 

The first block of transaction buffers is from IBOOO to lEFFF. This block of buffers is 
16K, or 4 contiguous transaction buffers. 

The address of the second block of buffers is IFOOO to 20FFF. A length of 8K or 2 
contiguous transaction buffers is allocated. 

The third block is from 21000 to 21FFF, a length of 4K, or 1 transaction buffer. 

On the listing of the snap dump, the labels 6, 7, and 8 point to the blocks of 
transaction buffers and their contents. 
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Figure 12-15. Snap Dump of MEMREQs with Three Bioclcs of Transaction Buffers Allocated 
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Throughout this document, certain conventions are observed in formats for statements 
and commands. General rules with examples pertaining to these conventions follow: 

• Capital letters and punctuation marks (except braces, brackets, and ellipses) 
must be coded exactly as shown. For example: 

CALL 'GET' USING filename record-area record-number. 

is coded: 

CALL 'GET' USING CUSTFIL CUS-REC REC-KEY. 

• Lowercase letters and words are generic terms representing information that you 
supply. Such terms may contain acronyms and hyphens for readabiUty. For 
example: 

PROCEDURE DIVISION USING program- information-block 

input -message- area 
[work -area] [output -message-area] 
[continuity-data-area]. 

is coded: 

PROCEDURE DIVISION USING PIB IMA WA OMA CDA. 

• Information within braces { ) represents necessary entries, one of which must be 
chosen. 

For example: 

FcALL "1 Tget 1 , (filename, record-area, record'number) 
[ZG#CALLJ [GETUPJ 

is coded: 

1 10 16 



or 



ZG#CALL GET, (STATE, RECORD, SNKEY) 



CALL GETUP, (STATE, RECORD, SNKEY) 
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Information within brackets [ ], including commas and semicolons, represents 
optional entries that you include or omit, depending on program requirements. 
Braces { } within brackets indicate that you must choose one of the entries if you 
include that operand. For example: 



c 



JUS= 



is coded: 

JUS=L 

Default parameter specifications are indicated by shading. For example, if no 
TYP parameter is specified as input to the edit table generator, the M is supplied, 
meaning alphanumeric type data is expected. 





' A ■ 

B 




TYP= 


m 

N 
P 




L 




J 



(default value) 



• A series of three periods vertically spaced (an elUpsis), occurring in a program 
example, indicates that other coding not directly relating to the example is 
omitted. For example: 



PARA-1. 

CALL 'GET' 



USING STATE RECORD SNKEY. 



PARA- 2. 



Statement conventions and coding rules specific to individual functions are described 
where applicable throughout this document. 
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Appendix B 

COBOL Action Programming Examples 

B.l. Description 

Appendix B contains compiler listings of sample COBOL action programs. Parts of 
coding from some of these programs appear out of context in different parts of the 
manual where specific subjects and how to handle the coding are described. 

The COBOL action programs in this appendix illustrate the complete action program 
coding for simple and dialog transactions, external and immediate internal succession, 
use of screen format services, sending a message to another terminal, output-f or-input 
queueing, continuous output, and assigning and controlling printer files. 

The CSCAN action program series (Figures B-1 through B-17) consists of four action 
programs: 

• DMSCAN 
V / • DMDETL 

• DMPYMT 

• DMTOTL 

These programs represent a series of simple transactions that: 

• Page through a customer file (CSCAN transaction code) 

• Display a customer's accoimt status (CDETL transaction code) 

• Apply payments to a customer's account (PAYMT transaction code) 

• Request audit data about all payments applied to a customer's accoimt (TOTAL 
transaction code) 



c 
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Action programs ACTl and ACT2 (Figures B-21 and B-22) illustrate a dialog 
transaction with ACTl naming ACT2 as external successor. 

JAMENU (Figure B-23) is one of a series of action programs that make up an 
entitlement accounting system. By vaUdating a password entered from the terminal, 
JAMENU displays either a menu screen or an error screen. 

In addition to using both external and immediate internal succession, JAMENU uses 
the BUILD function call to construct screen formatted messages for a valid or an 
invalid password. 

The BEGINl action program (Figure B-24) illustrates use of the SEND function to 
initiate a transaction that performs continuous output at another terminal. It also 
shows the output-for-input queueing feature. 

The PRINT action program (Figure B-25) creates continuous output, sends it to the 
source terminal, and uses delivery notice scheduling for control and recovery. 

B.2. Sample COBOL Action Programs Performing 
Simple Transactions (CSCAN Series) 

The four action programs DMSCAN, DMDETL, DMPYMT, and DMTOTL perform a 
series of simple transactions. The transaction code CSCAN starts the first transaction 
in the series. 

These four action programs use three indexed files that have been defined to IMS in 
the FILE section of the configuration: 

1. DM0 ALT A customer file (alternate account file), sorted on zip code, customer 

last name, and customer account number sequence (See Figure 
B-14, lines 12 and 89-96.) 

2. DMOMSTR A customer master file, containing current financial data 

per customer and sorted in account number sequence. (See Figure 
B-15, lines 11 and 98-111, and Figure B-16, lines 11 and 94-99.) 

3. DMOXACT An audit file created or updated by the PAYMT transaction and 

accessed for display by the TOTAL transaction. (See Figure B-16, 
lines 12 and 100-115, and Figure B-17, lines 11 and 91-108.) 

You begin the first transaction by keying in the transaction code, CSCAN on line 1 of 
the screen and pressing the TRANSMIT key. 
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Figure B-1. Initiating the CSCAN Transaction 

The CSCAN transaction lists basic customer data by zip code, allowing you to scan the 
lists. The alternate account file, DMOALT, serves as an index to the customer master 
file, DMOMSTR. It is sequenced by zip code, customer last name, and customer 
accoxmt number. Figure B-2 shows the resulting output. 



Line 1 
2 
3 


CSCAN 07005 CHRISTIAN 


023643 








►CDETL 


132106 


HRDLICKA 


RICHA 


62 


COLLINS 


06003 


4 


►CDETL 


055760 


MCMANUS 


R 


318 


HOOVER 


07003 


5 


►CDETL 


158607 


MCQUADE 


HICHA 


153 


FRANKL 


07003 


6 


►CDETL 


060877 


MEYER 


R 


P.O. 


BOX 


07003 


7 


►CDETL 


147306 


RANDALL 


WILLI 


261 


FRANKL 


07003 


8 


►CDETL 


805260 


ROHLFING 


PAUL 


1049 


BROAD 


07003 


9 


►CDETL 


805606 


VANARMAM 


JOHN 


605 B 


TROY 


07003 


10 


►CDETL 


805612 


VEATCH 


STANL 


39 


OAKLAND 


07003 


11 


►CDETL 


105451 


WEST 


RPBER 


100 


BELLEV 


07003 


12 


►CDETL 


155798 


WOOD 


EMELL 


28 


WINDING 


07003 



Figure B-2. Output from CSCAN Transaction Code 

The DMSCAN action program (Figure B-1 4, lines 111-128) displays the first ten 
records of the DMOALT file (Figure B-2, lines 3-12). The record displayed on line 1 of 
the screen is the next available record on the file. 

By pressing the TRANSMIT key, you can display the next ten records on the file as 
shown in Fig^e B-3. (See the DMSCAN action program. Figure B-1 4, lines 135-141.) 
Notice that the CSCAN transaction code is displayed on line 1 of the screen, so that 
when you press TRANSMIT, a new transaction begins and DMSCAN is recheduled. 
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Line 1 
2 
3 


CSCAN 07006 


ROGERS 








►CDETL 023643 


CHRISTIAN 


GOEG 


11 WOODCRE 


07005 


4 


►CDETL 023643 


FITCH 


E 


BOX 25 


07005 


5 


►CDETL 105390 


MORI ARTY 


T 


272 ROCKAW 


07005 


6 


►CDETL 805592 


TUCKER 


CHARL 


HILLCREST 


07005 


7 


►CDETL 181089 


FISH 


ROBER 


17 CHERRY 


07006 


8 


►CDETL 091479 


HAF LEIGH 


WILLI 


3 HIGHFIEL 


07006 


9 


►CDETL 139915 


LAMBKA 


IRWIN 


DIRECTOR H 


07006 


10 


►CDETL 044246 


LONGENECKER 


R 


20 RICHARD 


07006 


11 


►CDETL 179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


12 


►CDETL 122399 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 



Figure B-3. Continuation of Output from CSCAN Transaction Code 

You can continue displaying customer records until you reach the end of the file 
(Figure B-14, lines 151-156 and 175-194). 



The CSCAN transaction allows you to scan in another way. Instead of displaying 
records at the beginning of a file and scanning until you find the customer zip code you 
want, you can display the first ten records with the desired zip code or higher. By 
entering the zip code you want after the CSCAN transaction code (see Figure B-4), the 
DMSCAN action program begins scanning the DMOALT file for the first record that 
contains that zip code (Figure B-14, lines 151-171 and 179-194). 



CSCAN 07006H 



Figure B-4. Initiating a Qualified CSCAN Transaction 
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Figure B-5 shows the results of this entry after you press the TRANSMIT key. 



Line 1 
2 
3 


CSCAN 07009 RILEY 805238 








►CDETL 181089 


FISH 


ROBER 


17 CHERRY 


07006 


4 


►CDETL 091479 


HAFLEIGH 


WILLI 


3 HIGHFIEL 


07006 


5 


►CDETL 139915 


LAMBKA 


IRWIN 


DIRECTOR H 


07006 


6 


►CDETL 044246 


LONGENECKER 


R 


20 RICHARD 


07006 


7 


►CDETL 179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


8 


►CDETL 122399 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 


9 


►CDETL 805257 


ROGERS 


CLESS 


51 RAVINE 


07006 


10 


►CDETL 152069 


WILLIAMS 


GEORG 


60 MCKINLE 


07006 


11 


►CDETL 181050 


ROHRER 


GARRY 


219 CARTER 


07008 


12 


►CDETL 029997 


BOONE 


GEORG 


64 BRUNSWI 


07009 



Figure B-5. Output from Qualified CSCAN Transaction Code 

When you've found the customer account for which you want detailed information, you 
are ready to initiate the CDETL transaction. There are two ways to do this. Let's 
assume ROGERS is the customer for whom you want to display detailed account 
information. 



o 



1. You can enter the transaction code (CDETL) and ROGERS' account number 
(805257) on line 1 of the screen and press the TRANSMIT 

2. You can forward tab the cursor to a position beyond the last name of the desired 
customer (ROGERS) as shown in Figure B-6 and press the TRANSMIT key. This 
method is more efficient because it reduces the number of keystrokes required 
and the possibility of erroneous data entry 



Line 1 
2 
3 


CSCAN 07009 RILEY 


805238 








►CDETL 181089 


FISH 


ROBER 


17 CHERRY 


07006 


4 


►CDETL 091479 


HAFLEIGH 


WILLI 


3 HIGHFIEL 


07006 


5 


►CDETL 139915 


LAMBKA 


IRWIN 


DIRECTOR H 


07006 


6 


►CDETL 044246 


LONGENECKER 


R 


20 RICHARD 


07006 


7 


►CDETL 179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


8 


►CDETL 122399 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 


9 


►CDETL 805257 


ROGERS 


CLESS 


51 RAVINE 


07006 


10 


►CDETL 152069 


WILLIAMS 


GEORG 


60 MCKINLE 


07006 


11 


►CDETL 181050 


ROHRER 


GARRY 


219 CARTER 


07008 


12 


►CDETL 029997 


BOONE 


GEORG 


64 BRUNSWI 


07009 



Figure B-6. Initiating the CDETL Transaction 
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Figure B-7 shows the output screen resulting from using the cursor 
tabbing/TRANSMIT method of initiating the CDETL transaction. The customer 
information on the lower part of the screen is displayed by the DMDETL action 
program (Figure B-15, lines 127-167). 



o 



Line 1 
2 
3 


CSCAN 07009 RILEY 




805238 






►CDETL 181089 


FISH 


ROBER 


17 CHERRY 


07006 


4 


►CDETL 091479 


HAFLEIGH 


WILLI 


3 HIGHFIEL 


07006 


5 


►CDETL 139915 


LAMBKA 


IRWIN 


DIRECTOR H 


07006 


6 


►CDETL 044246 


LONGENECKER 


R 


20 RICHARD 


07006 


7 


►CDETL 179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


8 


►CDETL 122399 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 


9 


►CDETL 805257 


ROGERS 


CLESS 


51 RAVINE 


07006 


10 


►CDETL 152069 


WILLIAMS 


GEORG 


60 MCKINLE 


07006 


11 


►CDETL 181050 


ROHRER 


GARRY 


219 CARTER 


07008 


12 
13 
14 
15 
16 


►CDETL 029997 


BOONE 


GEORG 


64 BRUNSWI 


07009 


CUSTOMER: 805257 










CLESSEN A ROGERS 


PURCHASE PRICE: $229.49 




17 


51 RAVINE AVENUE 




REVISION: NO 




18 


CALDWELL 


NJ 07006 


PAYMENT 


PLAN T 




19 






CURRENT BALANCE: $100.00 




20 






PAYMENT AMOUNT: $22.95 




21 












22 


►PAYHT 805257B 











Figure B-7. Output from CDETl. Transaction 

When the DMDETL program reads the master record successfully and it contains a Y 
in its last byte, the program moves the word TES' to the output field containing 
REVISION and you can make changes to the customer record you selected. (See 
Figure B-15, lines 199 and 200.) Otherwise, the DMDETL program moves the word 
'NO' to the REVISION output field and you can display another customer's account 
information at the bottom of the screen. 

Notice that the DMDETL program automatically succeeds to the PAYMT transaction 
when you update the customer whose detailed information you displayed. DMDETL 
accomplishes this by moving the transaction code, PAYMT, in the form of a constant 
from working storage to the output message area (Figure B-16, line 196). Then, when 
you move the cursor to a point beyond the PAYMT transaction code and account 
number, the PAYMT transaction begins. 
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There are two ways to initiate the PAYMT transaction: 



1 . Forward tab the cursor to a position beyond the account number following the 
PAYMT transaction code and press the TRANSMIT key. (See Figure B-8.) 

2. Enter a pa5Tnent amount different than the payment plan amount. You enter the 
amount next to the account number following the PAYMT transaction code and 
press the TRANSMIT key. (See Figure B-10.) 

The first method instructs the DMPYMT action program to subtract the payment plan 
amount ($22.95 in Figure B-8) from this customer's current balance ($100.00 in Figure 
B-8). (See Figure B-16, line 157.) 



Line 1 
2 
3 


CSCAN 07009 RILEY 805238 






►CDETL 181089 


FISH 


ROBER 


17 CHERRY 


07006 


4 


►CDETL 091479 


HAFLEIGH 


WILLI 


3 HIGHFIEL 


07006 


5 


►CDETL 139915 


LAMB<A 


IRWIN 


DIRECTOR H 


07006 


6 


►CDETL 044246 


LONGENECKER 


R 


20 RICHARD 


07006 


7 


►CDETL 179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


8 


►CDETL 122399 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 


9 


►CDETL 805257 


ROGERS 


CLESS 


51 RAVINE 


07006 


10 


►CDETL 152069 


WILLIAMS 


GEORG 


60 MCKINLE 


07006 


11 


►CDETL 181050 


ROHRER 


GARRY 


219 CARTER 


07008 


12 
13 
14 
15 
16 


►CDETL 029997 


BOONE 


GEORG 


64 BRUNSWI 


07009 


CUSTOMER: 805257 








CLESSEN A 


ROGERS 


PURCHASE PRICE: $229.49 


17 


51 RAVINE AVENUE 


REVISION: NO 


18 


CALDWELL 


NJ 07006 


PAYMENT 


PLAN: 


T 


19 






CURRENT BALANCE: $100.00 


20 






PAYMENT AMOUNT: $22.95 


21 


►PAYMT 805257 











Figure B-8. First Method for Initiating the PAYIVIT Transaction 



UP-9207 Rev. 2 



B-7 



COBOL Action Programming Examples 



Figure B-9 shows the results of this subtraction to obtain the customer's new balance. 



Line 1 
2 
3 


CSCAN 07009 RILEY 805238 






►CDETL 181089 


FISH 


ROBER 


17 CHERRY 


07006 


4 


►CDETL 091479 


HAFLEIGH 


WILLI 


3 HIGHFIEL 


07006 


5 


►CDETL 139915 


LAMBKA 


IRWIN 


DIRECTOR H 


07006 


6 


►CDETL 044246 


LONGENECKER 


R 


20 RICHARD 


07006 


7 


►CDETL 179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


8 


►CDETL 122399 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 


9 


►CDETL 805257 


ROGERS 


CLESS 


51 RAVINE 


07006 


10 


►CDETL 152069 


WILLIAMS 


GEORG 


60 MCKINLE 


07006 


11 


►CDETL 181050 


ROHRER 


GARRY 


219 CARTER 


07008 


12 


►CDETL 029997 


BOONE 


GEORG 


64 BRUNSWI 


07009 


13 












14 
15 
16 


CUSTOMER: 805257 








CLESSEN A 


ROGERS 


PURCHASE PRICE: $229.49 




17 


51 RAVINE AVENUE 


REVISION: NO 




18 


CALDWELL 


NJ 07006 


PAYMENT PLAN: T 




19 






CURRENT BALANCE: $100.00 




20 






PAYMENT AMOUNT: $22.95 




21 


►PAYMT 805257 










22 












23 


$22.95 PAYMENT 


ACCEPTED FOR CUST 


805257 NEW 


BALANCE: $77.05 



Figure B-9. Output from PAYMT Transaction Using Standard Payment Amount 

Transmitting only the transaction code and customer account number confirms the 
amoimt applied to the customer's new balance. In addition, two processing operations 
occur: 

1. The DMPYMT action program updates customer's current balance on the 
customer master file (DMOMSTR). (See Figure B-16, lines 158-159.) 

2. The DMPYMT action program adds a payment transaction record to a daily 
terminal transaction file. (See Figure B-16, lines 169-200 especially hnes 
185-187.) 



C 



B-8 



UP-9207 Rev. 2 



COBOL Action Programming Examples 



o 



With the second method of initiating the PAYMT transaction, you enter a payment 
amount different than the payment plan amount next to the customer number that 
follows the PAYMT transaction code on the screen. Position your cursor next and 
depress the TRANSMIT key as shown in Figure B-10, line 21. 



o 



ine 1 
2 
3 


CSCAN 07009 RILEY 805238 






►CDETL 181089 


FISH 


ROBER 


17 CHERRY 


07006 


4 


►CDETL 091479 


HAFLEIGH 


WILLI 


3 HIGHFIEL 


07006 


5 


►CDETL 139915 


LAMBKA 


IRWIN 


DIRECTOR H 


07006 


6 


►CDETL 044246 


LONGENECKER 


R 


20 RICHARD 


07006 


7 


►CDETL 179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


8 


►CDETL 122399 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 


9 


►CDETL 805257 


ROGERS 


CLESS 


51 RAVINE 


07006 


10 


►CDETL 152069 


WILLIAMS 


GEORG 


60 MCKINLE 


07006 


11 


►CDETL 181050 


ROHRER 


GARRY 


219 CARTER 


07008 


12 


►CDETL 029997 


BOONE 


GEORG 


64 BRUNSWI 


07009 


13 












14 


CUSTOMER: 805257 








15 












16 


CLESSEN A 


ROGERS 


PURCHASE PRICE: $229.49 


17 


51 RAVINE AVENUE 


REVISION: NO 


18 


CALDWELL 


NJ 07006 


PAYMENT 


PLAN: 


T 


19 






CURRENT BALANCE: $100. 


90 


20 






PAYMENT AMOUNT: $22.95 | 


21 


►PAYMT 805257 575B 









Figure B-10. Second Method for Initiating PAYIVIT Transaction 
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Suppose you enter the value 575 ($5.75) next to the account number. When you press 
the TRANSMIT key, the result is as shown in Figure B-11. 



c 



Line 1 
2 
3 


CSCAN 07009 RILEY 805238 






►CDETL 181089 


FISH 


ROBER 


17 CHERRY 


07006 


4 


►CDETL 091479 


HAFLEIGH 


WILLI 


3 HIGHFIEL 


07006 


5 


►CDETL 139915 


LAMBKA 


IRWIN 


DIRECTOR H 


07006 


6 


►CDETL 044246 


LONGENECKER 


R 


20 RICHARD 


07006 


7 


►CDETL 179363 


MAGEDMAN 


DAVID 


27 CEDARS 


07006 


8 


►CDETL 122399 


MCLAUGHLIN 


EDWAR 


17 SPRUCE 


07006 


9 


►CDETL 805257 


ROGERS 


CLESS 


51 RAVINE 


07006 


10 


►CDETL 152069 


WILLIAMS 


GEORG 


60 MCKINLE 


07006 


11 


►CDETL 181050 


ROHRER 


GARRY 


219 CARTER 


07008 


12 


►CDETL 029997 


BOONE 


GEORG 


64 BRUNSWI 


07009 


13 












14 
15 
16 


CUSTOMER: 805257 








CLESSEN A 


ROGERS 


PURCHASE PRICE: $229.49 


17 


51 RAVINE AVENUE 


REVISION: NO 


18 


CALDWELL 


NJ 07006 


PAYMENT PLAN: 


T 


19 






CURRENT BALANCE: $100.00 


20 






PAYMENT AMOUNT: $22.95 


21 


PAYMT 805257 










22 












23 


►$5.75 PAYMENT 


ACCEPTED FOR CUST 


805257 NEW 


BALANCE: 


$94.25H 



%«™t,*^ 



Figure B-11. Result of Entering Different Payment Amount on PAYMT Transaction 

DMPYMT confirms the receipt of payment by issuing a message (Figure B-16, lines 
29-32 and 194-197) and applies the entered amount to the customer's new balance 
(Figure B-16, Une 157). 

The last action program, DMTOTL, totals all payment amounts entered for a 
particular customer. To initiate this audit trail program, you enter the TOTAL 
transaction code. 

Let's assume that in addition to the payment plan amouht of $22.95 for account 
number 805257, you've entered two payments for other customers, one for $5.75 and 
another for $3.00. You therefore entered three payments at terminal 1 totaling $31.70. 
By entering the TOTAL transaction code (Figure B-12, line 1), you can obtain an audit 
report display (Figure B-12, lines 3-6) showing the number of payments and total 
payment amount initiated from your terminal (TKMl). 
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Line 1 
2 
3 
4 
5 
6 



TOTAL 






TERMINAL 


NUMBER OF 


TOTAL 


ID 


TRANSACTIONS 


PAYMENTS 


TRH1 


3 


$31.70 



Figure B-12. Result of Initiating the TOTAL Transaction 



If you enter the option ALL following the transaction code, the DMTOTL action 
program also can accumulate totals for all transactions and all payments made at all 
terminals for an entire session. 

Suppose three transactions were entered from terminal 1 with total payments of 
$31.70. Then seven more transactions were entered at terminal 5 totaling $187.57. 
Finally, four more transactions were made at terminal 6 totaling $78.97 in payments. 

When you enter TOTAL ALL at the terminal the DMTOTL action program not only 
accumulates the total transactions and pajrments for each terminal but also 
accumulates a grand total of transactions and pa5mients made in this session. 
Figure B-13 illustrates the output message generated when you enter the transaction 
code TOTAL and the option ALL. 



Line 1 
2 
3 
4 
5 
6 
7 
8 



TOTAL 


ALL 








TERMINAL 


NUMBER 


OF 


TOTAL 


ID 




TRANSACTIONS 


PAYMENTS 


TRM1 




3 




$$31.70 


TRM5 




7 




$187.57 


TRM6 









$$78.97 
$298.14 



Figure B-13. Result of Initiating the TOTAL Transaction with ALL Option 

General flowcharts for the coding in DMSCAN, DMDETL, DMPYMT, and DMTOTL 
action programs (Figures B-14 through B-17) adjoin each program. Program line 
numbers in parentheses near flowchart boxes represent the lines of coding that 
implement the process described. 
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(1-16) 



(17-26) 



(27-33) 



(34-70) 









LINE NO. SOURCE ENTRY 

00001 IDENTIFICATION DIVISION. 










00002 


PROGRAM-ID. DMSCAN. 






00003 


AUTHOR. F.O.F.b.F. (NYNa 7/76) 


HOUSEKEEPING 




ODOOH 


OATE-WRl TTEN. 7/13/76. 






OOOOB 


DATE-COMPILEO. 82/05/03. 






00006 


environmlnt division. 






00007 


CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-0S3. 






00008 






00009 


OBJECT-COMPUTER. UNIVAC-0S3. 






OCOIO 


DATA DIVISION. 






0001 1 


WORKING-STORAGE SECTION. 






00012 


^^ OMOALT PIC X(7) VALUE 'OMoALT'. 






0C013 


77 OUT-MSG-LEN PJC 9999 COMP-^ VALUE 76B. 






oaon 


77 6E PiC X VALUE 'G'. 






00015 


'7 cscan Pic xisi value 'Cscan*. 








00016 
00017 


^' coEtl pic X(S) value 'cdetl*. 
01 scope-char. 






DEFINE 




00018 


°2 CR P(C X VALuE -'Ou'. 


MESSAGE 




00019 


°2 ULE PIC X VALUE -MO'. 


CONTROL 




0C02C 


°2 ESC PiC X VALUE «'27'. 


CHARACTERS 




00021 


02 HT PIC X VALuE »«0b'. 






00022 


°2 STx p,c X VALUE "0.i<. 






00023 


°2 EXT PIC X VALuE "03'. 












00021 


°2 SOF PiC X VALuE -Mt*. 






00025 


02 ONE PIC X VALUE "Ol'. 








00026 
00027 


02 THREE P,c X VALUE -'Oj'. 
01 ERR-MSG-LITS. 






DEFINE 




00028 


02 FILLER PIC X(19) VALUE •••INVALID KEV.'. 


ERROR 




00029 


02 FILLER PIC X(19) VALUE •••ENu OF FILE*.'. 


MESSAGE 




00030 


°2 FILLER PIC X(19) VALUE •••INVALID REQUEST.^'. 


CONTENTS 




00031 


02 FILLER Pic XllVl VALUE •••I/O ERROR**'. 






03032 


01 ERR-MSG-TAB REDEFINES ERR-MSG-LITS. 






00033 


02 ERR PIC X(lv) OCCURS t. 
LINKAGE SFCTION. 

01 P-i-B. Copy pib7i. 


I 


00031 
00035 










00036 


02 STATUS-COnt PIC 9(1) CQmP-1. 


COPY 




00037 


02 DETAIlEU-STATUS-CoDE pic 9(1) COMP-1. 


PIB 




00038 


02 HFCOKO-TYPE redefines OLTaILEo-STaTUS-CODE. 






00039 


03 predicteo-record-type pic X. 






03010 
00011 


03 oelivered-record-type pic X. 

02 SUCCESSOR-IU pic X(6). 


] 




/^ 


00012 


02 TERMINATION-INDICATOR PIC X. 


(PG2) 


00013 


02 lock-rollback-inu'icaTqR pic X. 


\Zy 


00011 


02 transaction-id. 




00015 


01 IfEAR PIC 9(1) COmP-1. 




0C01A 


03 TODAY PIC 9(1) COmP-1. 




00017 


03 HR-MIN-SEC PIC 9(9) COMP-1. 




00018 


02 DaTA-DEF-REC-NAME pic X(7). 




00019 


02 OEFINED-FILE-NAME Pic X(7). 




00050 


02 STANDARO-MSG-LINE-LENgTh pic 9(1) COMP-1. 




00051 


02 STANDARD-MSG-NUMBeR-L|NeS PIC 9(1) COmP-1. 




00052 


02 IKORK-AREA-LENGTH pic 9(1) COmP-1. 




0C053 


02 CONTlNUlTY-DATA-lNPUT-LENGTH PIC 9(1) COHP-1. 




00051 


02 CONTINUITY-OATA-OuTPUT-LENGTH PIc 9(1) COMP-1. 




00055 


02 WOPK-ARLA-INC PIC 9(1) COMP-1. 




00056 


02 CONTINUITY-DATA-ArEA-INC PIC 9(1) COMP-1. 




00057 


02 SuCCESS-UNI T-IU. 




00058 


03 TKANSACTION-DATE. 




00059 


D'i YEAR PIC 99, 




00060 


01 MONTH PIC 99, 




03061 


01 TODAY PIC 99, 




00062 


03 TImE-OF-DAY. 




00063 


01 HOUR PIC 99. 




00061 


01 MINUTE PlC 99. 




00065 


01 SECOND PIC 99. 




00066 


03 FILLER PIC XXX. 




00067 


02 SOURCE-TERMINAL-ChARS. 




00068 


03 SOURCE-TERMINAL-TYPE PIC X. 




00069 


03 SOuRCE-TERM-MSG-LInE-LENGTH PiC 9(1) COMP-1. 






. 


00070 


03 souRce-term-msg-number-lines pIC 9(1) comp-i. 



/"""'•: 
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o 



o 





















(Q) 


00071 01 1-M.*. Copy ima7h« 








vp/ 


00072 


02 SOufCE-TtRHINAL-IO 


PIC X(H1. 






1 




00073 
0007H 


02 0»TE-T|Mt-St*HP. 
03 YEAR 


PIC 9IHI COMP-H. 












COPY 




00075 


03 TODAY 


PIC 9IH1 COMP-H. 






INPUT 




00076 


03 HR-MIN-SEC 


PIC 9191 COMP-H. 




(71-80) 


MESSAGE 
CONTROL HEADER 




00077 
00078 
00077 


02 TEXT-LEN&TH 
02 AUxILlARY-OEV-ID. 
03 FILLEH 


PIC 9IH) COMP-H. 

PiC X. 
PIC X. 






1 


00080 


03 AUX-DEV-NO 






1 


00081 
00082 


02 FILLER P|C X(6|. 
02 2IP-IN PIC X(5I. 


















DESCRIBE 




00083 


02 FILLER PIC X. 






(81-96) 


INPUT 




0008H 


02 LN-CUSTIO. 






MESSAGE 




OOOBS 


03 LN-IN P|C XI 171. 








TEXT 




00086 


03 FILLER PIC XlS). 












00087 
00088 


02 Rtn-LN-COSTID REDEFINES LN-cUST|D. 

03 CHAR PIC X OCCURS 25 INDEXED Bv 


I. 
















00089 01 ALT-REC. 












O0D90 


02 ALT-KEY. 












00091 


03 ZIP PlC X(5|. 












00092 


03 LN PlC X( 171. 












00093 


03 CUSTOMER. 












00091 


OH KEY-CHAR PIC X 


OCCURS * INDEXED Bv 


J. 








00095 


02 FN-5 PIC X(51. 












00096 


02 ADOR-lO P|C X|10>. 












00097 01 0-H-A. COPY 0MA7h. 












00098 


02 oesTlNATlON-TERMINAL-lD 


PIC X|tl. 












00099 


02 SFS-OPTIONS 


PIC X12I. 
















00100 


02 FILLER 


PIC X(2). 






COPY 




OOIOI 


02 COnTINUOUS-OUTPUT-cODE 


PIC XlMI. 




(99-105) 


OUTPUT 




00102 


02 TExT-LENGTH PIC 9IH) COMp-H. 






MESSAGE 




0CI03 


02 AUxlLlAHY-DFVICE-lD. 








CONTROL HEADER 




OCIOH 
00105 
03106 
00107 


03 AUX-FUNCTION 
03 AUX-OtVICE-NO 

02 DlCE-1. 

0.1 TtN-l P|C X. 


P|C X. 

PIC X, 






1 












DEFINE 




00108 


03 FN-1 PIC X. 






(106-110) 


OUTPUT 




00109 


03 Y-l P|C X. 






MESSAGE 




OCl 10 


03 X-1 PIC X. 








DICE 




OOlll 


02 OlSPLAY-TABLE. 












OCl 12 


03 CUST-LINE 


OCCURS 10 INDEXED b. 


K. 








0C1I3 


OH SOE-OUT PIC X. 














1 


001 n 

00115 


Oh tran-out pic x(5). 

OH FILLER PIC X. 


















DESCRIBE 




OCl 16 


OH CUST-OUT P|C X(6|. 






(111-128) 


OUTPUT 




OCl 1 7 


OH FILLER P|C XI5I. 






MESSAGE 




001 18 


OH LN-OUT PiC XI 171. 








TEXT 




001 19 
00120 
00121 


OH FILLEH PIC XX. 
OH ESC-OuT P|C X, 
OH HT-OUI PIC X. 




















00122 


OH FILLER PIC XX. 












00123 


OH FN-OUT PIC X(5l. 












0012M 


OH FILLER PIC X(51. 












03125 


OH ADDH-OUT pic X(10). 












0C126 


OH FILLER P|C X(5|. 












00127 

00128 


OH ZIP-OUT PIC X(5I. 
OH CR-OUT PiC X. 


















DEFINE 




001 29 


02 TOP-OF-SCHEEN. 






(129-134) 


SUCCEEDING 

SCREEN 

DICE 




03130 
O0131 
00132 
00133 
0013H 
00135 


03 OlCE-2. 

OH TEN-2 PIC X. 

OH FN-2 PIC X, 

OH T-2 PiC X. 

OH X-2 PlC X. 
03 NEXT-TBAN PlC XlSl. 








1 












DESCRIBE 




0CI36 


03 FILLER P|C X. 






(135-141) 


SUCCEEDING 

OUTPUT MESSAGE 

TEXT 




0C137 
00138 
00139 


03 NEXT-/IP PIC X(5). 

03 FILLER PlC X, 

03 NEXT-LN PIC X( 171. 










OOMO 


03 f ILLEH PIC X. 












OOlHl 


03 NtxT-CUST PIC X ( 6 ) . 








^ 


K 





%.^^'' 
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COBOL Action Programming Examples 



(144-156) 



INPUT 

MESSAGE 

PROCESSING 



(157-171) 



DISPLAY 
OUTPUT 
RECORDS 



(172-174) 




(175-178) 



MOVE 

CUSTOMER NO. 

TO OUTPUT 

MESSAGE 



(179-194) 



READING 
RECORDS 

FOR 
DISPLAY 



c 



OaiHZ PROCEDURE DIVISION 

001M3 USING P-l-B I-M-A ALT-REC 0-M-*. 

ODIMH BEGIN. PROC. 

0311b MOVE SPACES TO I SPL * Y- TABLE TOP-oF-ScREEN . 

O0IM6 MOVE DLE TO TEN-1 TtN-2. 

03M7 MOVE FXT TO FN-1 . 

00118 MOVE STX TO FN-2. 

00119 MOVE THREE TO Y-1, 
0D150 MOVE ONE TO X-I x-Z r-2. 

00151 IF TEXT-LEN&TH IN 1-M-A > 21 

00152 THEN SET I TO TEXT-LEnGTH IN i-M-a 
03153 SET I DOWN By 22 

°-'51 IF CHAR (I) IS NuMtRiC AND CrAR (I + SI IS N,,MERIC 

05155 THEN PERFORM MV-ID 

0fl56 VARYING J FROM | BY 1 UNTIL J > 6. 

03157 MOVE LN-IN TO LN. 

OC-158 MOVE ZIP-IN To ZIP. 

0CI59 CALL 'SETl' 

03140 USING OMOALT GE AlT-KEY. 

0C161 IF STaTUS-CODE > 

0"*2 Then move err ( staTus-code ) To cusT-line (Ii 

0D1A3 GO To EnD-PRoG. 

01161 CALL 'GET' 

0C165 USING DMOALT ALT-REC. 

0CI6A PERFORM READ-LOOP 

03167 VARYING K FROM 1 BY 1 UNTIL PC > 10. 

0016B MOVE CSCAN TO NEXT-TRaN. 

00169 MOVE 2lP TO NEXT-ZIP. 

00170 MOVE LN TO NEXT-LN. 

00171 MOVE CUSTOMER TO NEXT-CUST" 

00172 END-PROG. 

00173 MOVE OUT-MSG-LEN TO TexT-lENGTH In 0-m-A. 
00171 CALL 'RETURN'. 

00175 MV-IO. 

00176 MOVE CHAR (I) TO KEY-CHAR Ij). 

00177 MOVE SPACE TO CHAR (I). 

00178 SET I UP BY 1. 

00179 READ-LOoP, 

00180 IF STaTUS-CODE > 

ociai Then move err (staTuS-code i to cusT-line (ki 

00182 GO To eno-prog. 

00183 MOVE SOE TO SOE-OUT Ul. 

00181 MOVE CDETL TO TRAN-OUT U). 

00185 MOVE CUSTOMER TO CUST-OUT (K). 

00186 MOVE LN TO LN-OUT (KI, 

00187 MOVE ESC TO ESC-OUT Ul. 

00188 MOVE hT to HT-OUT (KI. 

00189 MOVE FN-5 TO FN-OUT (Kl. 

00190 MOVE AODR-10 TO ADDR-OUT (Kl. 

00191 MOVE ZIP TO ZIP-OUT (Kl. 

00192 MOVE cP TO CR-OUT (Kl. 

00193 CALL 'GET' 

00191 USING DMOALT ALT-REC. 



o 
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c 



(1-13) 


HOUSEKEEPING 








(14-20) 


DEFINE ERROR 
MESSAGE 
CONTENTS 



(21-37) 



DEFINE 

MESSAGE 

CONTROL 

CHARACTERS 



(38-47) 



DEFINE 

OUTPUT 

MESSAGE 

CONSTANTS 




LINE NO. SOURCE ENTRY 














OCOOI 


IDENTIF 


ICaTION DIvISI 


ON 












oaooz 


PR0Gfi«W 


-10. DHDETL. 














00003 


AUTHOR. 


E.O.F.S.F. 


INYNA 7/74) 








OOOOt 


0»TE-WR|TTEN. 7/14/74. 












OCOOB 


ENVIRON 


mEwT OIVISION, 














00004 


CONFIGURATION SECTION 


. 












00007 


SOURCE- 


computek. univac-osj 


. 








ocooe 


OBJECT- 


COMPUTER. UNIVAC-0S3 


. 








00009 


D>T« DIVISION. 














oroio 


workinc 


-STORAGE SECT 


ON 


. 










OCOl 1 


77 


uhomstr 




PIC 


X(7| 


VALUE • 


BMOMSTH' . 




00012 


77 


OUT 


-MS6-LEN 




PIC 


9999 


COMP-1 


VALUE 32/, 




0C0I3 


77 


ERF 


-MSG-LEN 




P|C 


9999 


COMP-H 


VALUE 2/. 




OOOIt 


01 


ERU 


-MS&-LITS. 














OCOIS 




02 


FILLEK 




PIC 


XI 191 


VALUE • 


•• INVALID KEY** ' . 




C0OI& 




C2 


FlLlEK 




PIC 


XI 191 


VALUE ' 


••ENU OF FILE»«'. 




0COI7 




02 


FiLLEh 




PIC 


XI 191 


VALUE • 


••INVALID RtQOEST»« 


. 


00018 




02 


FILLER 




PIC 


X 1 1 9 1 


VALUE ' 


••I/O ERROR**'. 




00017 


01 


ERH 


-MSG-TBL 




REDEFINES 


ERR-MSG-LITS. 




00020 




02 


ERR-MS6 




PIC 


X 1 1 V 1 


OCCURS 


t. 




OC021 


01 


SCOPE-CHAR. 














00022 




02 


OLE 




PIC 


X 


VALuE 


■•10'. 






00023 




02 


ST« 




PIC 




VALUE 


••02'. 






03021 




02 


EXT 




PIC 




VALUE 


••C3'. 






00025 




02 


SOF 




PIC 




VALUE 


•ME'. 






00024 




02 


CR 




PIC 




VALuE 


■•OD' 






0C027 




02 


ONE 




PIC 




VALilE 


• •01 • 






OC028 




02 


THpEE 




PIC 




VALuE 


• •03' 






0C029 




02 


FIvt 




PIC 




VALUE 


■ •Ob* 






00030 




C2 


EIGHT 




PIC 




VALUE 


■ •Ob* 






00031 




02 


NINE 




PIC 




VALUE 


.•09' 






0C032 




C2 


FIFTEEN 




PIC 




VALilE 


••OF' 






00033 




02 


SIXTEEN 




PIC 




VALUE 


• •10^ 






0C03M 




02 


EIGHTEEN 




PIC 




VALliE 


••12' 






0003B 




02 


T«ENTT-0NE 




PIC 




VALuE 


•'lb' 






0C036 




02 


TfcENTT-TwO 




PIC 




VALUE 


•'14' 






C0037 




02 


F ORTT-ONE 




PIC 




VALUE 


• •29* 






00036 


01 


HSG-LlTS. 














03039 




02 


CUSTOMER-LIT 




PIC 


Xllll 


VALUE • 


CUSTOMER «;'. 




00010 




02 


PURCH-PR 




PIC 


XI IS) 


VALUE ' 


PURCHASE PHlCt;'. 




00011 




02 


paymt-plan 




PIC 


XI 131 


VALUE • 


PAYMENT plan:'. 




00012 




02 


PAYPT-AMT 




PIC 


Xllbl 


VALUE ' 


PAYME NT AMOUN I : ' . 




00013 




02 


bAL 




PIC 


X|l6l 


VALUE • 


CURRENT balance!'. 




0CO11 




02 


RtvISlON 




P|C 


X|9| 


VALUE • 


revision: •• 




0C015 




02 


YES 




PIC 


Xxx 


VALUE ' 


YES'. 




00014 




02 


KNO 




PIC 


XXX 


VALUE ' 


NO'. 




0C017 




02 


PAYMT 




PIC 


X|5| 


VALUE • 


PAYMT'. 
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(PG2) 


03018 


LINKA6E SECTION. 




V 


00019 
00050 


01 P-i-B. Copy pib7i. 

02 STATUS-CODE PIC 9(1i COMP-1. 














00051 


02 DEI AlLEU-STATUS-CODE PIC 9(1) COmP-1. 




COPY 
PIB 




0C05Z 


02 RFCORD-TYPE REDEFINES DE T » I LEO-ST aTUS-CODE . 


(48-84) 




0C053 


03 pwedicted-record-type pic x. 






OSOSI 


03 DELI VEREU-RECOrD-TyPE PIC X. 








00055 


02 SUCCESSOR-IB PIC X(6|. 








00056 


02 TFRHINATION-INDICATOR PIC X. 
02 LOCK-ROLLBACK-lNDlCAToR PIC X. 








0D057 








00058 


02 TPANSACTION-ID. 








0!;059 


03 Yt«R PIC 9(1) COMP-1. 








oooAo 


03 TODAY PIC 911) COMP-1. 








03061 


03 HK-MIN-SEC PIC 9(9| COMP-1. 








00062 


02 DATA-DEF-RtC-NAME PIC X17|. 








00063 


02 DEf INED-FILE-NAME PIC X(7|. 








00061 


02 STANOARD-MSS-LINE-LENgTh PIC 9(1) COMP-1. 








00065 


02 STANDARL)-MS6-NUMBER-LlNtS PIC 9(1) COMP-1. 








00066 


02 W0RK-ARtA-LEN(5TH PIC 9(1) COmP-1. 








00067 


02 COMINUITY-OaTA-InPUT-LENkTH PIC 9(1) COMP-1. 








00068 


02 CONTINUITY-DATA-OuTPUt-LEnGTH PIc 9(1) COMP-1. 








00069 


02 woRK-AREA-INC pic 9(1) COmP-1. 








00070 


02 CONTINUITY-DATA-AREA-INC PIC 9(1) COmP-1. 








00071 


02 SiiCCESS-UnIT-ID. 








00072 


03 TRANSACTION-DATE. 








00073 


01 YEAR PIC 99. 








0C071 


01 MONTH PIC 99. 








00075 


01 TODAY PIC 99. 








00076 


03 TlME-OF-DAY. 








00077 


01 HOUR PIC 99. 








00078 


01 MINUTE PIC 99. 








00079 


01 SECOND PIC 99, 








0S080 


03 FILLER PIC XXX. 








00081 


02 source-terminal-chaks. 








00082 


03 SOuRCE-TERMINAl-TYPE pIC X. 










00063 
03081 


03 S0URCE-TERM-MS(,-LINE-LEN6TH pIC 9(11 COMP-1. 
03 SOuRCE-TERM-MSG-NUMBER-LINES pIC 9t1) COMP-1. 










COPY 




OC085 


01 I-M-A, COPY IMA71. 




INPUT 




00086 


02 SOuRCE-TERMINAL-IO Pic X(1l. 


(85-94) 


MESSAGE 




00087 


02 DATE-TIME-STAMP. 




CONTROL 




00088 


03 YEAR PIC 9(1) COMP-1. 




HEADER 




0Q089 
00090 


03 TODAY PIC 9(1) COMP-1. 
03 HR-MIN-SEC PIC 9(9) COMP-1. 














03091 


02 TEXT-LEN6TH PIC 9(1) COMP-1. 








00092 


02 AUXILIARY-DEV-ID. 








00093 


03 FILLER PIC x» 










00091 
00095 


03 AUX-DEV-NO PIC X» 
02 FILLER PiC X(6). 











DESCRIBE 
INPUT 

MESSAGE 
TEXT 




00096 


02 CUSTIU PIC X(6). 






00097 


02 FILLER PK X(21). 


(95-111) 




00098 


01 MsTRfREC. 






OC099 


02 CUSTNO PiC X(6). 






03100 


02 FN PiC XdOI. 








00101 


02 MI PIC X. 

02 LN PiC X( 171. 








00102 








00103 


02 ADDR PIC X(23». 








00101 


02 CITY PIC X ( 18) . 








00105 


02 ST PiC Xx. 








00106 


02 ZIP PIC X(5). 








00107 


02 PURCHASE-PRICE PiC 999V99. 








00108 


02 PAY-PLAN PIC X. 








0C109 


02 PAY-AMT PiC 999V99. 








001 10 


02 BALANCE PIC 999V99. 










001 11 
OQl 12 


02 UPDATE PIC X. 
01 0-M-A . COPY 0MA71. 










COPY 




CS1I3 


02 DESTINATION-TERMINAL-ID PIC X(1l. 




OUTPUT 




OCI 11 


02 SFS-OPTIONS PIC X(2). 


(112-120) 


MESSAGE 




00115 


02 FILLER PIC X(2I. 




CONTROL 




03116 


02 COnTINuOUS-OUTPUT-COOE PiC X(1). 




HEADER 




001 17 
OQl 18 


02 TEXT-LENSTH Pic 9(11 COMP-1. 
02 AUXlLl ARY-DEVICE-ID. 

03 AUX-FUNCTION PIC X. 




A 1 


001 19 




(F 


= 




00120 


03 AUX-DEVICE-NO PIC X. 
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o 



(121-1301 



DEFINE OUTPUT 

MESSAGE DICE 

AND ERROR 

TEXT 



(131-167) 



DEFINE 

OUTPUT MESSAGE 

DICE AND 

TEXT 



o 



(171-173) 



MOVE 

CUSTOMER-ID 
TO MASTER 
RECORD AND 

READ MASTER 



(174-185) 



SETUP 

SCREEN 

CONTROL 

CHARACTER 

VALUES 



© 



0CI2I 
0CI22 
0Q123 
0012t 
0012S 
00126 
00127 
C0I2B 
00129 
00130 
00131 
00132 
07133 
00131 
00135 
001 36 
00137 
O0I38 
00139 
OCItO 

ooni 

00112 
O0M3 
0C|1*t 
0C115 
00M6 
00117 
0C118 
0C119 
00150 
0C151 
0CI52 
00153 
03151 
0CI55 
00156 
0C157 
00158 
03159 
00160 
00161 
0CI62 
00163 
0C16H 
0C165 
00166 
00167 
03168 
0C169 

00170 
00171 
00172 
00173 
0C171 
00175 
00176 
00177 
00178 
00179 
00180 

ootei 

00182 
O0I83 
031 81 
00185 



02 DI 









02 ER 

02 CU 





02 01 









02 FN 

02 HI 

02 LN 

02 PU 

02 PO 

02 CR 

02 AC 

02 RE 

02 UP 

02 CH 

02 CI 

02 ST 

02 /IF 

02 p» 

02 P* 

02 DI 

















D 











CE-1. 

3 DLE-1 

3 EXT-1 

3 Y-1 

3 X-l 

R-LlNE 

ST 

3 CUSTOMFR 

3 CUST-I 

Cf-2. 

3 OLE-2 

3 SI)(-2 

3 r-2 

3 X-2 



rch-pr 
bchase-pr ice 

OR 

VISION 



.2 

xr 



PiC 
PlC 
PIC 
PIC 
PIC 
REDEF 
PiC X 
PiC X 



PROCE 
U 



YMT-PLAN 
r-PLAN 
CE-3. 
3 DLE-3 

SlX-3 

Y-3 

X-3 

HAL 

lULANCE 

CR-3 

50E-0UT 

PATMT 

CUST-2 

PArMI-AMT 

PAY-AMT 

OlCE-M. 
03 OLE-1 
03 STX-1 
03 Y-1 
D3 X-1 
OUHt DIVISION 
SiNG P-I-B I-H 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
P|C 
PIC 
PlC 
PIC 
PIC 
PiC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 

PIC 
PIC 
PiC 
PIC 



19). 

NES ERH-LINEt 

1 Jt. 

61. 



III. 
X. 

271 . 
171. 

«9.99. 

171, 
15). 
X. 

201. 
XX. 
191. 
21 I. 



XI 181. 
»»»9.99. 

X. 

X, 

X|6I . 
X|3h1 . 
X( 17) . 
»J»».99. 

X. 

X. 

X. 
X. 



-A HSTk-HEC 0-m-A. 



begin-phoc« 

MOVE CUSnti TO CUSTNO. 
CALL 'GET' 

USING DMOmSTH MSTr-HEc CUSlNO. 
MOVE OLE TO DLE-I . 
MOVE EXT TO EXT-1 . 

IF standard-hsg-nuhber-lines not > 12 

THEN HOVE THREE To Y-1 

MOVE FIVE TO T-2 

HOVE EIGHT To T-3 

HOVE NINE TO Y-1 

ELSE HOVE SIXTEEN TO Y-1 

HOVE EIGHTEEN TO Y-2 

HOVE TIENTT-QNt TO Y.3 

HOVE TWENT^-T^>0 TO Y-1. 
MOVE rNE TO X-l. 
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(186-203) 



© 



BUILD 
OUTPUT OR 

ERROR 
MESSAGES 



(204) 




00186 


IF 


STATUS-CODE ■ 


00187 




Then 


MOVE 


CR TO CR-1 CP-2 CR-3 


ocisa 






MOVE 


DUE TO DLE-2 DLE-3 OLE-t 


00189 






MOVE 


STX TO STX-2 STx-3 STX-") 


0?1?0 






MOVE 


ONE TO X-2 


00191 






MOVE 


FORTY-ONE To X-3 


0CI92 






MOVE 


FIFTEEN TO X-t 


00193 






MOVE 


SOE TO SOE-OUT 


0D19t 






MOVE 


CUSTOMER-LIT TO CUSTOMER 


00195 






MOVE 


CUSTHO TO CmST-1 CUST-2 


00196 






MOVE 


COBR MSG-LITS To 0-M-A 


0C197 






MOVE 


CORR MSTR-REC Tn 0-M-A 


0CI9B 






MOVE 


OUT-MSG-LEN To tEXT-LENgTH IN 0-M-A 


0C199 






IF UPDATE « 'V 


00203 






THEN MOVE TEs TO UPD 


00201 






ELSE MOVE KNO TO UPD 


00202 




Else 


MOVE 


ERR-MSG (STaTUS-CODE) To ERR-lINE 


00203 






MOVE 


ERR-MS6-LEN TO TEXT-LENgTH IN O-M-A. 


0C20H 


CALL 'RLTURN* 





Figure B-15. Sample COBOL Action Program DIVIDETL (Part 4 of 4) 
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COBOL Action Programming Examples 



(1-15) 



(16-23) 



(24-281 



o 



(29-32) 



(33-69) 









LINE NO. SOURCE ENTRY 

OPGOI IDENTIFICATION DIVISION. 












0C0U2 


PKOIMAH-10. DNPlhT. 








0'-00 3 


AUTHOR. t.O.F.S.F. 1 NTNA 7/761 




HOUSEKEEPING 




orooi 
ccous 
r'coo* 

00007 
D00u8 


OAIE-XBIIIEN. 7/19/76. 
ENVIRONrLNT DIVISION. 
C0NFI6URAII0N SECI ION. 
SOURCE-COHPUILR. UN1VAC-0S3. 
06JECT-C0«PU1tR. UN1VAC-0S3. 














00009 


UATA DIVISION. 








30010 


yORKING-SlORAGE SECTION. 








00011 


77 OHO^SIR PIC XI 71 


VALUE 'DHOMSTR *. 






0'-012 


77 OHOXAC PIC XI7I 


VALUE 'OMOXACT*. 






nnoi 3 


77 TkEL^c PIC X 


VALUE r'12'. 






0001 1 


77 OUT-MSG-LlN pi C 9999 


COMP-1 VALUE 78. 






•roois 


77 ERR-MSG-LtN PI C 9999 
01 ERR-MSG-LITS. 


COHP-1 VALUE 29. 






0"lll 6 








00017 


02 FILLER PIC XI 211 


VALUL '**1NVAL Id KEY** '. 


DESCRIBE 




00018 


02 FILLER PIC XI 21) 


VALUE •»*END OF FILE**'. 


ERROR 




00U19 


02 FIlLER pic XI 211 


VALUE •»*INVAL ID REQUEST** '. 


MESSAGE 




OC020 


02 FILLED PIC XI 211 


VALUE •••1/0 ERflOH*^'. 


CONTENTS 




0002 1 


02 FILLER PIC XI 211 


VALUE ••♦PAYMENT > BALANCE**'. 






000*2 
0002 3 
0002 I 


01 ERR-MSG-TbL REDEFINES 
02 ERtt-NSG PIC XI 211 
01 DICE-CODE. 


ERR-MSG-LITS. 
OCCURS 5. 










DEFINE 
MESSAGE 
CONTROL 




00025 


02 DLL PIC X 


VALUE ='10'. 




Or026 


02 STX PIC X 


VALUE ='02'. 




1002 7 


02 TnLNU-FOUR PIC X 


VALUE :'18'. 




0002 8 


02 cut PIC X 


VALUE ='01'. 


CHARACTERS 




0002 9 


01 MSG-LIT. 








0003 
OC03 1 
"003 2 


02 FILLER PIC XI 201 
32 FILLER PIC XI 221 
02 FILLER PIC XI 111 


VALUE • PAYMENT ACCEPTED FO'. 
VALUE 'R CUSTOMER •'. 
VALUE 'NEh BALANCE:'. 


1 








DEFINE 




0003 3 


LINKAGE SECTION. 




OUTPUT 




0003 1 


01 P- 1-b. COPY P IB71 . 1 


MESSAGE 
CONSTANTS 




0003 5 


02 SIAIUS-COOE 


PIC 9111 COMP-1. 




0^03 6 


02 DETAIL ED-STAIUS-CODE 


PIC 911) COMP-1. 




3003 7 


02 RECCRU-IYPE REDEFINES DET A ILED -ST A T US- CODE . | 






0003 8 

00039 

oroMO 


ii3 PR t D ICT FD-R ECOR D-l Y PE 


PIC X . 


1 




03 DLL IVERED-R ECORD-TYPE 
02 SUCCESSOR- ID 


PIC X. 
PIC XI6) . 










ooom 


02 TIHHIM ATION-INDICATOR 


PIC X. 


COPY 




D-0<t2 


02 LOCK-R OLLfl ACK-INDICAIOR 


PIC X . 


PIB 




00013 


02 TrANSACTION-10 . 








0''011 


03 YEAR 


PIC 911) COMP-1. 






OnOIS 


03 TOuAY 


PIC 9111 COMP-1. 


1 


00016 


03 h;»-min-sec 


PIC 9191 COMP-1. 


/\ 


00017 


02 DATA-OEF-UEC-N A«L 


PIC Xt7l . 


{PG2) 


0C018 


02 OtFIhED-FlLE-NAKL 


PIC XII) . 


v_y 


00019 


02 SI ANJARD-MS6-L INL-LENbTH 


PIC 911) COMP-1. 


^-m^^ 


ircsO 


02 ST ANDARO-MSG-N UMdER-LlNES 


PIC 9111 COHP-1. 




orcbi 


02 liORK-AREA-LESGTH 


PIC 911) COMP-1. 




0005 2 


02 CONTINUIT Y-OAT A-INPUT-LENGTH PIC 911) COMP-1. 




0005 3 


02 CONTINUIT Y-DATA-OUTPuT-LENGTH PIC 911) COMP-1. 




0C05 1 


02 kORK-AREA-INC 


PIC 911) COMP-1. 




O0J5 5 


02 CONTlNUITY-DAI A-AREA-INC 


PIC 911) COHP-1. 




0005 6 


02 SUCCtSS-UNlT-IO. 






nC05 7 


03 TRANSACTION-DATE. 






0005 8 


CI YEAH 


PIC 99. 




0''059 


01 MONTH 


PIC 99. 




0CD6 


CI TODAY 


PIC 99. 




OOCH 


03 TIME-OF-DAY . 






0C062 


01 HOUR 


PIC 99. 




0006 3 


01 MINUTE 


PIC 99. 




0006 1 


01 SECOND 


PIC 99. 




00065 


03 FILLER 


PIC XXX, 




00066 


02 SOURCE-TtH H!XAL-Ch ARS. 






0006 7 


U3 SOiiRCE-TERMINAL -TYP E 


PIC X . 




0006 8 


03 SOuRCL-TERM-HSt-LINE-LENGTH PIC 911) CONP-1. 








00069 


Oi SOURCL-TEHM-MSG-NUMBER 


-LINtS PIC 9 11) COMP-1. 



Figure B-16. Sample COBOL Action Program DMPYMT (Part 1 of 4) 
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COBOL Action Programming Examples 



(70-77) 



(78-83) 



(84-91) 



(92-97) 



(98-103) 



(104-108) 



(109-113) 



COPY INPUT 

MESSAGE 

CONTROL 

HEADER 



DESCRIBE 

INPUT MESSAGE 

TEXT 



SET UP RECORD 

COUNTER, PAY 

ACCUMULATOR, 

AND TERMINAL-ID 

FOR DMTOTL 

PROGRAM 



DEFINE 
MASTER 
RECORD 



DEFINE OUTPUT 

MESSAGE HEADER 

FOR DMTOTL 

PROGRAM 



SET UP TERMINAL 

ACCUMULATORS 

FOR DMTOTL 

PROGRAM 



DESCRIBE 

TRANSACTION 

RECORD FOR 

DMTOTL PROGRAM 



(114-122) 



COPY OUTPUT 

MESSAGE 

CONTROL 

HEADER 



(123-133) 



DESCRIBE 

OUTPUT MESSAGE 

DICE AND TEXT 



eOQVQ Ul 1- 


H-*. 


COPY IHA71. 






acoJi 


02 


SOURCt- TERMINAL - 


10 




PIC xmi 




0007 2 


02 


OAIE-UHE-STAHP . 










0CU7 3 




C3 YEAR 






PIC 9|11 


COHP-il. 


OnQlH 




C3 TODaV 






PIC 9111 


COMP-t. 


OD07 5 




a HR-MIN-SEC 






PIC 919) 


COMP-1. 


0P07 6 


32 


TEXT-L£.N6Th 






PIC 9«U 


COHP-1. 


ivon 


02 


AUnILlARY-DEU-lO 


, 








SCO? 8 




C3 FILLER 






PIC X . 




OCiu79 




a AUX-DEd-NO 






PIC X . 




ODiiSO 


C2. 


FILLER 


PIC 


XI 61. 






orotii 


02 


cusTia 


PIC 


X(6I. 






coua? 


02 


FILLER 


PIC 


X. 






Drj83 


02 


«Sb-PA» . 










OOOal 




03 Mi&-CHAR 


PIC 


X 


OCCURS 7 


INDEXED BY I. 


!?CQB5 


02 


FILLER 


PIC 


X . 






3DUb6 Qi y- 


A. 










00087 


02 


RtC-CTh 


PIC 


9( 121 


COHP-1 . 




ocoaa 


02 


PAH-ARlA. 










nnott? 




U3 PAY-CHAR 


PIC 


X 


OCCURS 5 


INDEXED BY J. 


oi?a9 


U2 


PAYMENl 


REDEFINES PAT-AREA 


PIC 999V99 . 


OPO91 


02 


TRH. 










OrOi2 




u3 FILLER 


PIC 


XXX. 






0D0S3 




u3 TRH-NUM 


PIC 


9. 






':?nu9 M 


02 


fSlR-RtC. 










onoss 




ai cusTNO 


PIC 


XI 61. 






0009 6 




u3 FILLER 


PIC 


XI 821. 






oro9 7 




03 PAY-AH7 


PIC 


99 9V99 . 






Or09 8 




C3 BAL ANCl 


PIC 


999V99 . 






0009 9 




Gi FILLER 


PIC 


X. 






orioo 


02 


XAC-HOh . 










orioi 




ul YLAR 


PIC 


9999 


COHP-1 . 




00102 




u3 TO-DAY 


PIC 


9999 


COHP-1 . 




0C1C3 




LS PIfi-FIR ST 


PIC 


9999 


COHP-1 . 




oniot 




u3 PlR-NtXT 


PIC 


99 99 


COHP-1 . 




orioB 




U3 FILLER 


PIC 


XI 81. 






001 6 


02 


XAC-TRN. 










OrlQT 




ij3 IRM-IO 


PIC 


9. 






'^DIDB 




03 XAC-CIfi 


PIC 


9999. 






Q?1D9 




03 TRH-T07AL 


PIC 


91 Sl¥99 


• 




oriio 




03 FILLER 


PIC 


xxxx. 






ODlll 


02 


XAC-RlC 


REDEFINES XAC-TRH. 




30112 




U3 TRH-XAC 


PIC 


9. 






00113 




03 XAC-TIHE 


PIC 


9191 


COHP-1 . 




00111 




[j3 CUSTOHER 


PIC 


XI6I. 






on IS 




03 XAC-AMT 


PIC 


99 9V99 . 






■^riie 01 0-M-*. 


COPY 0MA71. 






Drii7 


02 


DtSTINAIION-TER MINAL- 


■ID 


PIC Xt 11. 




00118 




ij2 &FS-OPTIONS 




PIC 


( 1 21. 


00119 




L2 FILLER 






PIC 


XI2I. 


0012 


G2 


COh T IMU OUS- QUIP UT-C ODE 


PIC X1 11. 




D0121 


02 


TtXT-LENGlH 




PIC 9 111 COHP-1. 1 


00122 


02 


AUXILIARY-DEVICE 


-ID . 








0012 3 




C3 AUX-FUMCTION 






PIC X. 




00121 




C3 AuX-DEM ICE-NO 






PIC X. 




00125 


02 


DICE-OUT. 










0012 6 




03 FILLER 


PIC 


XX . 






0C127 




03 OICE-Y 


PIC 


X. 






00128 




03 FILLER 


PIC 


X . 






00129 


02 


OUT -HSb . 










0013 




03 PAY-OUT 


PIC 


S$S9.99 


. 




00131 




C3 Lit -OUT. 










0013 2 




01 FILLER 


PIC 


XI 321 . 






00133 




ul CUST-OUT 


PIC 


XI 61. 






00131 




01 FILLER 


PIC 


XI 181. 






00135 




03 Nt»-BAL 


PIC 


S}t9.99 


. 





Figure B-16. Sample COBOL Action Program DMPYMT (Part 2 of 4) 
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COBOL Action Programming Examples 



(136-139) 



SET UP SCREEN 

CONTROL 

CHARACTER 

VALUES 



(140-142) 



MOVE CUST-ID 

TO MASTER 

RECORD AND READ 

MASTER 



(143-155) 



(156-160) 



(161-162) 



(163-171) 



(172-173) 



(174-180) 



PREPARE TO 

UPDATE 

MASTER RECORD 

OR BUILD ERROR 

MESSAGE 



WRITE 

UPDATED 

MASTER AND 

COUNT UPDATE 



READ 

TRANSACTION 

RECORD 



PREPARE TO 

UPDATE 

TRANSACTION 

RECORD OR 

BUILD ERROR 

MESSAGE 



INSERT 

NEW 

TRANSACTION 

RECORD 



READ UPDATED 

TRANSACTION 

RECORD OR BUILD 

ERROR MESSAGES 



00136 


PhOCEOURL DlklSION 




iri37 


USING P-i-B 1-M-A U-» 0-M-«. 




OC13 8 


BEGIN-PROC. 




00139 


MO»F OlCt-COOE TO DICE-OUT. 




oomo 


IF 5T*N0»(.0-MSG-NUNBLR-L1NES NOT > 12 




anil 


THEN MOVt TWELVE TO DlCE-». 




OCltZ 


MOVE CUSIID TO CUSTNO. 




"cm3 


CALL "SETUP" 




onmM 


UilNb OHOhSia HSTR-REC CUSTNO. 




orms 


IF STATUS-COOL NOT r 2 ERO 




crm6 


THEN GO TO ERR -OFF . 




ocm? 


HOVE 2ER0 TO P AVNLNT. 




CPms 


SET J TO 5 . 




ori<)9 


SUBTRACT 17 FROM TEXT-LENGTH IN 1-M-A. 




"^^ISO 


PERFORM M»-NUM 




nri51 


VARYING 1 FROM TLXT-LLNSTH IN I-M-ABV -1 UNTIL I 


C 1 . 


0P15 2 


IF PAVMENT NOT > 2 ERO 




0C153 


THEN MOVL PAt-AMi" TO PAVMtNT. 




0C15 1 


IF PAVHENT > B ALANCE 




00155 


THEN MOVt 5 TO STATUS-COOE 




00156 


60 TO ERR-Of F . 




00157 


SUBTRACT PAYMENT FROM BALANCE. 




00158 


CALL "PUT" 




0C159 


USINii OMOMSTR MSIR-RLC. 




0C160 


IF STATUS-CODE NOT : ZERO 




00161 


Then 60 TO ERR-OFF . 




OPltZ 


MOVE 1 TO REC-CTR. 




0016 3 


CALL "GET" 




0016 t 


USING DMOX AC XAC-HDR REC-CTR. 




Ori65 


IF SIAIUS-COOl not : ZERO 




0016 6 


Then &o to err-off . 




nci6T 


IF today in DATE-T IMt-STAMP MOT = TO-DAY IN XAC-«DR 




0016 8 


THEN PERFORM INIT-HIN. 




001«,9 


MOVE SOURCE-TERMIN AL-10 TO TRM. 




^CllO 


MOVE IBM-NUM TO IRM-AAC. 




ODUl 


MOVE HH-MlN-itC IN OAT E-TI ME-STAMP TO XAC-TIME. 




0017 2 


MOVE CUSTNO TO CUSTOMER. 




OC17 3 


MOVE PAYMENT TO XAC-AMT. 




OCIJI 


CALL "INSERT" 




OC17 5 


USING DMOXAC XAC-REC REC-CTR. 




"0176 


IF SIAIUS-COOL NOT = 2 ERO 




TCI? 7 


THEN GO TO ERR -OFF . 




0017 8 


ADO 1 TRM-NUM GIKING REC-CTR. 




00179 


CALL "GET- 




00160 


USING DMOxAC XAC-IRM fiEC-ClR. 




ociei 


IF SIATUS-COJE NOT = 2 ERO 




0016 2 


THEN GO TO ERR -OFF . 




00183 


MOVE TRM-NUM TO TR M-IU . 




OrliU 


ADD 1 TO X AC-CTR. 




00185 


ADD PAYMENT TO TRM-TOIAL. 




001B6 


CALL "INSERT" 




00187 


USING DKOXAC XAC-IRM REC-CTR. 




00188 


IF SlAIUS-COUt NOT I iERO 




00189 


THEN 60 TO ERh -OFF . 




0019 


ADO 1 TO PTR-NEXI. 




0019 1 


MOVE 1 TO REC-CTR. 




0C19 2 


CALL "INStRT" 




"0193 


USING OMOX AC XAC-HDR REC-CTR. 





(181-193) 



UPDATE 

TRANSACTION 

RECORD PAYMENT 

TOTAL AND 

INSERT HEADER 




Figure B-16. Sainple COBOL Action Program DMPYMT (Pail 3 of 4) 
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COBOL Action Programming Examples 



(194-198) 



(199) 



(200-205) 



(206-220) 



BUILD OUTPUT 

MESSAGE TEXT 

FOR DMPYMT 

PROGRAM 




SET TABLE TO 

RECEIVE 
PAYMENT IN 
WORK AREA 



READ 

TRANSACTION 

DATA ENTERED 

FROM TERMINAL 



(221-224) 



BUILD ERROR 

MESSAGE AND 

TERMINATE 

NORMALLY 



OCiS* 




IF MATUi-COOt NOT = ZERO 




OCISS 




THEN 60 10 ERR -OFF . 




001S6 




MOVE NS6-LIT 10 LIT-OUT. 




OD19 7 




HOVE PAYHtNT TO PAY-ObT. 




aC198 




MOVE CUSINO TO CUST-OUT. 




oni9« 




MOVE BALANCE TO NtU-aAL. 




ryCiUQ 




MOVE 0UT-MS6-LEN 10 TEXT-LENGTH IN 0-M-A. 




riczui 




CALL "RETURN*. 




OCZtjZ 


Md- 


NUM. 




OCIZCJ 




IF Pib-CHAR III IS NUMERIC 




Qcaa* 




THEN MOVE MSb-CHAR (11 TO PAY-CHAR IJI 




OPiCiS 




SET J DOtiN BY 1 




00206 




IF J < 1 




00207 




THEN SET I TO 1. 




nozua 


INIT-HTN. 




0P2Q9 




MOVE CORR DAIE-TIME-STAMP TO XAC-HDR. 




oriio 




MOVE PTR-FIRST TO PTR-NEXT . 




OnZll 




PERFORM THH-INIT 




00Z12 




VARYING RtC-CTR FROM 2 BY 1 UNTIL R EC-CTR NOT < 


PTH-FIHST. 


0C213 


TRM 


-INIT. 




r3D2m 




CALL 'GET' 




0^215 




USING OMOXAC XAC-TRM R EC-CTR. 




0C216 




IF STATUS- CODE NOT : ZERO 




00217 




THEN GO TO ERK-QFF . 




00218 




MOVE ZEROS TO XAC-CTR TRM-TOTAL. 




00219 




IF STATUS- coot NOT : ZERO 




002 2 




THEN GO TO ERR-OFF . 




00221 


£RR 


-OFF. 




0C222 




MOVE ERR-MSG » STAT US-C ODEJ TO 0UT-MS6. 




0n223 




MOVE tRR-MSG-LEN TO TEXT-LENGTH IN 0-M-A. 




0C22«I 




CALL 'RETURN'. 





c 



Figure B-16. Sample COBOL Action Program DMPYMT (Part 4 of 4) 
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COBOL Action Programming Examples 



o 



(1-14) 



HOUSEKEEPING 



(15-211 



DESCRIBE 

ERROR 
MESSAGE 
CONTENTS 



(22-26) 



DESCRIBE 
MESSAGE LINE 

CONTROL 
CHARACTERS 



(27-39) 



(41-76) 







LINE NO. SOURCE ENTRr 



00001 


IDE 


NTIF 


ICATION DIVISION. 










00002 


PR06NAH 


-ID. DMTOTL. 










00003 


AUTHOR. 


E.O.F.S.F. (N»N» 7/76) 






OCOOM 


DATE-XRITTEN. 9/13/76. 










00005 


ENVIRONMENT DIVISION. 










00006 


CONFIGURATION SECTION. 










00007 


SOURCE- 


COMPUTER. UNIVAC 


-0S3 


. 






00008 


OBJECT- 


COMPUTER. UNIVAC 


-0S3 


. 






00009 


DATA DIVISION. 










00010 


WORKING 


-STORAGE SECTION 










0001 1 


77 


OHOXAC 




X(7( 


VALUE 'OMOXACT'. 


00012 


77 


H|N 


-MSG-LEN 




9999 


CoMP-1 VALUE 126. 


00013 


77 


ERR 


-MSG-LEN 




9999 


COHP-1 VALUE 29. 


OOdlH 


77 


MSG 


-LINE-LEN 




9999 


COMP-M VALUE 10. 


00015 


01 


ERR 


-MSG-LITS. 










00016 




02 


FILLER 




X|2t 1 


VALUE •••INVALID KE 


0001 7 




02 


FILLER 




X|2| 1 


VALUE •••END OF FIL 


00018 




02 


FILLER 




«|2I 1 


VALUE •••INVALID RE 


0OO17 




02 


FILLER 




X(2I 1 


VALUE •••I/O ERRORS 


00020 


01 


ERR 


-MSG-TBL 


REDEFINES 


ERR- 


MSG-LITS. 


00021 




02 


ERR-HSG 




XI21I 


OCCURS 1« 


00022 


01 


OICE-'COOE. 










00023 




02 


OLE 




X 




VALUE ■• 10^ . 


0002H 




02 


Efx 




X 




VALUE -•03'. 


00025 




02 


THREE 




X 




VALUE ••03'. 


00026 




02 


ONE 




X 




VALuE -'Ol'. 


00027 


01 


HSG 


• HOR . 










00028 




02 


FILLER 




X( HI 


VALUE •TERMINAL'* 


00029 




02 


FILLER 




xiiei 


VALUE 'NUMBER OF • . 


00030 




02 


FILLER 




X(5) 


VALUE 'TOTAL*. 


O0O31 




02 


FILLER 




xxxx 


VALUE • '. 


00032 




02 


FILLER 




Xdoi 


VALUE 'ID'. 


00033 




02 


FILLER 




X( 181 


VALUE 'TRANSACTIONS 


00031 




02 


FILLER 




X|8) 


VALUE 'PAYMENTS'. 


00035 




02 


CR 




X 


VALUE ' '. 


00036 


01 


dash>lIne. 










00037 




02 


FILLER 




X| 181 


VALUE • '• 


00038 




02 


FILLER 




XI HI 


VALUE ' '. 


00039 




02 


FILLER 




XI8I 


VALUE • '. 


OOOHO 


LINKAGE 


SECTION. 










DOOHI 


01 


P- 


-8. 


CoPy PIB7 


4. 




000M2 




02 


STATUS-CODE 






PIC 


9(1) COmP-1. 


00013 




02 


DETAILED-STATUS 


-CODE 


PIC 


9(1| COmP-1. 


00011 




02 


HECORD-IrPE REDEFINES DET A 1 LEo-St aTUS-CODE . 


00015 






03 PREDICTED-RECORD 


-Type 




X. 


00016 






03 DELIVEREO-RECOrD 


• Type 




X. 


00017 




02 


SUCCESSOR-ID 








XI6|. 


00018 




02 


TERMINATION-INDICATOR 




X. 


00019 




02 


LOCK-ROLLBACK-|nD|CAToR 




X. 


00050 




02 


TBANSACTION-ID. 










00051 






03 TEAR 








911) COMP-1. 


00052 






03 TODAY 








9111 COMP-1. 


00053 






03 HR-MIN-SEC 








9(9| COhP-1. 


00051 




02 


DATA-DEF-REC-NAME 






XI71. 


00055 




02 


DEFINEO-FILE-NAME 






X(7). 


00056 




02 


STANDARD -HSG-LINE-LENgTh 




9(1) COMP-1. 


00057 




02 


standard-msg-nuhbeR 


-LINES 




911) COMP-1. 


00058 




02 


HOPK-AREA-LENGTH 






9(1) COMP-1. 


00059 




02 


CONTINUITy-OATA 


-input-length 


PIC 9(11 COMP-1. 


OC060 




02 


CONTINUITY-DATA 


-OuTPUT-LENGTH 


PIC '111 COMP-1. 


00061 




02 


WoRK*AREA-|NC 






PIC 


9(1) COMP-1. 


00062 




02 


continuity-oata 


-AREA-INC 


PIC 


9(1) COMP-1. 


00063 




02 


SUCCESS-UNIT-ID 


. 








00061 






03 transaction- 


DATE 


. 






00065 






01 TEAR 






PIC 


99. 


00066 






01 MONTH 






PIC 


99. 


00067 






01 TODAY 






PIC 


99. 


00068 






03 TImE-OF-DAY. 










00069 






01 HOUR 






PIC 


99. 


00070 






01 MINUTE 






PIC 


99. 


00071 






01 SECOND 






PIC 


99. 


00072 






03 FILLER 






PIC 


XXX. 


00073 




02 


SOURCE-TERMINAL 


-CHARS. 






00071 






03 SOURCE-TERMlNAf 


TYPE 


pIC 


X. 


00075 






03 SOuRCE-TERM- 


MSG- 


LInE-LENGTH pIC 9111 COMP- 


00076 






03 SOuRCE-TERM- 


MSg- 


NUhBER 


-LINES pIC 9l1l COMP- 



E^»'. 

QUEST** ' I 



Figure B-17. Sample COBOL Action Program DMTOTL (Part 1 of 3) 
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(77-86) 



COPY 

INPUT MESSAGE 

CONTROL 

HEADER 



(87-89) 



DESCRIBE 

INPUT MESSAGE 

TEXT 



(91-101) 



DESCRIBE 

TRANSACTION 

OUTPUT HEADER 

AND TEXT 



(102-104) 



DESCRIBE 

TERMINAL 

INPUT 



(105-108) 



DESCRIBE 
ACCUMULATORS 



(109-117) 



COPY 

OUTPUT MESSAGE 

CONTROL 

HEADER 



(118-125) 



DESCRIBE 

OUTPUT 

MESSAGE 

TEXT 



(128-147) 



BUILD 'TOTAL- 
OUTPUT MESSAGE 
TEXT 



(134) 



TERMINATE 
PROGRAM 
NORMALLY 



0D077 
00078 
00079 
00080 
00081 
0C0S2 
00083 
00084 
00085 
0D0S6 
00087 
00088 
00089 
00090 
0009.1 
00092 
00093 
000914 
00095 
00096 
00097 
00098 
00099 
00100 
OOIOI 
0C102 
00103 

ooiot 

00105 
00106 
00107 
00108 
00109 
00110 
OOill 
001 12 
00113 
00111 
00115 
00116 
001 17 
001 18 
00119 
00120 
00121 
00122 
00123 
OOI2t 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00131 
00135 
00136 
00137 
00138 
00139 
OOMO 

ooni 

00112 
00113 
00111 
00115 
00116 
00117 



01 



01 



I-H-A. COPY IMA7M. 

02 SOURCE-TERMINAL-ID 
02 OATE-TlME-STAMP. 
03 YEAR 
03 TODAY 
03 HR-MIN-SEC 
02 TExT-LENaTH 
02 AUXlLlARY-OEV-ID. 
03 FILLER 
03 AUX-DEV.NO 
02 FILLER 
02 OPT 
02 FILLER 
W-A, 
02 XAC-HUR. 

03 FILLER 
03 XAC-FIRST 
03 FILLER 
02 J-FlLL-1 
02 XAC-TRM. 

03 TRM-IO 
03 XAC-CTR 
03 TRM-TOTAL 
03 FILLER 



l^. 



PIC X(6). 
PIC XxX. 

PIC xxx. 



p|c xxxx. 

Pic 9999 
PiC X( 101. 
PlC X(256). 



PIC X(1). 

PIC 9(1) cOMP-1. 

PIC 9(11 COMP-1. 

PIC 9(9) COMP-1. 

PIC 9(1) COMP-1. 

PIC X. 
PIC X. 



COMP-H* 



02 



PiC 9. 
PIC 9999. 
PiC 9(5)V99. 
PtC XXXX. 
PIC X(256). 



PIC XXX. 
PiC 9. 

PlC 9(5)V99. 
PJC 9999. 
PiC 9( 12) 
PIC X. 
COPY 0MA71. 



CoMP-1. 



PIC X. 
PIC X. 



J-FlLL-2 
02 TRM. 

03 TRM-LIT 
03 TRM-NUM 
02 PAY-TOT 
02 XAC-TOT 
02 REC-PTR 
02 fIlLER 
01 0-M-*. 

02 DESTINATION-TERMINAL-IO 
02 SFS-OPTIONS 
02 FILLER 

02 continuous-output-cooe 

02 TExT-LENGTH 
02 AUXILIARY-DEVICE-IO. 
03 AUX-FUNCTION 
03 AUX-DEVICE-NO 
02 DIcE-OuT 
02 HDR-OUT 
02 TOT-LINE 

03 CR-OUT 

03 TRM-OUT 

03 CTR-OUT 

03 FILLER 

03 TOT-OUT 
PROCEDURE DIVISION 

USING P-I-B 1-M-A W-A 0-M-A. 
BEG1N-PR0C« 

IF OPT • 'ALL* 

THEN PERFORM RTN-ALL 

ELSE PERFORM RTN-oNE. 
MOVE DICE-CODE To DICE-OUT' 
MOVE MSG-HDR TO HDR-OuT, 
CALL 'RETURN'. 
RTN-ONE, 

MOVE SOURCE-TERMINAL-ID To TRM. 
MOVE TRM-NUM TO REC-PTR. 
ADD 1 TO REC-PTR. 
CALL 'GET' 

USING OMOXAC XAC-TRM rEC-pTR. 
IF STATUS-CODE NOT ■ ZERO 

Then GO TO err-off. 

MOVE CR To CR-OUT (II. 

MOVE TRM TO TRM-OUT ( 1 ). 

MOVE xAC-CTR TO CTR-OuT dl. 

MOVE TRM-TOTAL TO TOT-OUT (I). 

MOVE MIN-MSG-LEN TO TEXT-lENGTH In 0-m 



PIC X(11. 

PIC XI2). 

PIC X(2I. 
PIC X(1l. 
PiC 9(11 CoMp-1. 






PIC XxXX. 

PIC X(78), 
OCCURS 7 

P|C XXX. 

P|C X( 15). 

PlC ZZZ9. 

PJC X(9). 

PlC «(5)9.99. 



INDEXED BY I. 



Figure B-17. Sample COBOL Action Program DIMTOTL (Part 2 of 3) 
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(148-179) 



(150-154) 



(155-166) 



(167-171) 



(172-1761 



(177-179) 



BUILD 
■TOTAL ALL- 
MESSAGE 
TEXT 



READ 

TRANSACTION 

HEADER RECORD 

AND CLEAR 
ACCUMULATORS 



BUILD 

TERMINAL 

OUTPUT 

MESSAGE TEXT 



READ 

TRANSACTION 

RECORD 



BUILD TOTAL 

TERMINAL 

OUTPUT 

MESSAGE TEXT 



ACCUMULATE 

TRANSACTION 

AND PAYMENT 

TOTALS 



ooite 


RTN 


-ALL. 


00119 




MOVE 1 TO REC-PTR. 


00150 




CALL 'GET- 


OOISI 




USING DMOXAC XAC-HOR REC-PTR. 


00152 




IF status-cooe Not « zero 


001B3 




THEN GO to err-off. 


00151 




MOVE zeros to xac-tot pay-tot. 


00155 




MOVE 'TRM" TO TRM-LIT. 


00156 




ADD 1 TO REC-PTR. 


00157 




PERFORM SUM-TRM 


00158 




VARYING 1 FROM 1 BY 1 UNTIL REC-PTR NOT < XAC-FIKeT. 


00159 




MOVE DASH-LINE TO TOT, LINE 111. 


00140 




SET I UP BY 1. 


OOl&l 




MOVE CR To CR-OUT II ). 


00142 




MOVE 'TOTAL* TO TRM-OUT (Jl. 


00143 




MOVE XAC-TOT TO CTR-OUT (I). 


00141 




MOVE PAY-TOT TO TOT-OUT (ll. 


00145 




COMPUTE TEXT-LENGTH IM O-M-A • MIn-MSG-LEN + 


00144 




msg-linE-len • rec-ptr; 


00147 


SUM 


-TRM. 


00146 




CALL 'GET' 


00149 




USING DMOXAC XAC-TRM rEC-pTR. 


00170 




IF STATUS-CODE NOT « ZERO 


00171 




THEN GO TO ERR-OFF. 


00172 




MOVE CR TO CR-OUT (11. 


00173 




MOVE TRM-ID TO TRM-NUm- 


00171 




MOVE TRM TO TRM-OUT ( I 1. 


00175 




MOVE XAC-CTR TO CTR-OUT (D. 


00174 




MOVE TRM-TOTAL TO TOT-OUT (11. 


00177 




ADD XAC-CTR TO XAC-TOT. 


00178 




ADD TRM-ToTAL TO PAY-TOT. 


00179 




ADD 1 TO REC-PTR. 


00180 


ERR 


-OFF. 


00181 




MOVE eRR-MSG (STATUS-CODE) TO MDR-OUT. 


00182 




MOVE eRR-MSG-lEN TO TEXT-LENGTH In O-m-A. 


00183 




CALL 'RETURN'. 



Figure B-17. Sample COBOL Action Program DMTOTL (Part 3 of 3) 



(180-182) 



183 



BUILD 

ERROR 

MESSAGE 




c 
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You may have noticed that in this series of action programs consisting of five separate v_ 

transactions, each transaction contained only one action program. In other words, one 
action program received one input message and issued one output message for each 
transaction. 

These action programs were chained together by placing the succeeding action 
program's transaction code itself into the output message issued by the current action 
program. In this way, control passed from one action program to another, establishing 
a sense of succession between the programs without actually moving values into the 
SUCCESSOR-ID and TERMINATION-INDICATOR fields of the PIB. This technique 
is effective for processing simple transactions in a series. However, there are 
situations that require more than one program to process a transaction. We call these 
dialog transactions. 



^W^.^^'' 
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B.3. Sample COBOL Action Programs Performing a Dialog 
Transaction with External Succession 
(ACTl and ACT2) 

The two action programs, ACTl and ACT2, perform a dialog transaction. This 
transaction references two indexed files named STATE and CITY. The STATE file 
contains a record for each state. Each state record consists of a state name, state 
population, and capital city name. The CITY file contains a record for each city. In 
each city record is the city name, population, and state name. Assume for the purposes 
of this example that all city names in the CITY file are unique. 

The purpose of this transaction is to provide information about a state. Each time you 
enter the transaction code S, IMS associates it with the action program ACTl. In 
addition to the transaction code, you include a state name (Figure B-18, line 0). ACTl 
uses the state name you give to obtain a record from the STATE file. 



S ALASKA 






STATE STATE -POP 


CAPITAL 


ALASKA 


226,000 


JUNEAU 


CAPITAL-P0P?N0 


YES 




r.eeeB 








1 

2 
3 

4 
5 
6 
7 

Note: 

The cursor (B ) may appear at only one location on the screen at any one time. In this example, it also would have 
appeared after ALASKA when the operator entered the initial input message (line 0) and after NO upon transmission 
of ttie first output response built by ACT 1 (line 5). The start-of-entry character (H may appear at multiple locations. 

Figure B-18. Sample Dialog Transaction with YES Option Taken 

If the record exists, ACTl responds by sending an output message to the terminal. 
The output message contains headers, the state name, population, and capital name 
plus a question asking if you want the capital's population (Figure B-18, lines 1-5). 
ACTl moves output message headings (Figure B-21, lines 16 and 17) and control 
characters (lines 12-15) from the working-storage section to the output message area. 
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You can request capital city population or terminate the transaction. Start-of -entry 
(►) and cursor (H ) characters are positioned in the output message area so that: 

1 . If you want to terminate the transaction without seeing capital population, press 
TRANSMIT. 



o 



2. If you want to see capital population, press TAB followed by TRANSMIT. 

Before succeeding externally to ACT2, ACTl saves the capital city name in the 
continuity data area (lines 108 and 109). When ACTl succeeds to ACT2, IMS passes 
the contents of this area to ACT2 (lines 124 and 125). To succeed to ACT2, ACTl 
moves a termination code of E for external succession to the TERMINATION- 
INDICATOR field (line 127). It also moves the name, ACT2, to the SUCCESSOR-ID 
field (line 128). 

When you choose the YES option, ACT2 obtains the CITY record for capital city 
named in the continuity data area (Figure B-22, hne 92), builds an output message 
containing the capital population (Figure B-18, line 7 and Figure B-22, lines 97-99), 
and terminates normally with the CALL RETURN function. 

When you choose the NO option, ACT2 moves zero to the TEXT-LENGTH field in the 
output message area control header before terminating normally (Figure B-22, Hnes 
93 and 94). Because ACT2 doesn't provide an output message, IMS returns the 
standard transaction termination message to the source terminal as shown in 
Figure B-19, line 6. 






S ALASKA 








1 

2 


STATE 




STATE -POP 


CAPITAL 


3 

4 


ALASKA 




266,000 


JUNEAU 


5 
6 


CAPITAL-POP?NO 
TRANSACTION COMPLE 


YES 

•tfB 







Figure B-19. Sample Dialog Transaction with NO Option Taken 
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Suppose you enter a state name that cannot be found in the STATE file. ACTl builds 
an error message in the OMA (Figure B-21, lines 28 and 29) and moves the length of 
this error message to the TEJCT-LENGTH field of the output message area control 
header to override the previous text length value (lines 115, 130-133). The transaction 
terminates normally with a CALL RETURN function and IMS sends the error output 
message to the terminal as shown in Figure B-20, line 1. 



S ALASKA 

ERROR -STATE NAME INVALID 



Figure B-20. Sample Transaction with Error Message 

Greneral flowcharts for the coding in ACTl and ACT2 action programs (Figures B-21 
and B-22) appear to the left of the program code in these figures. Program line 
numbers in parentheses to the side of the flowchart boxes represent the lines of coding 
that implement the process described. 



r 
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(1-10) 



HOUSEKEEPING 



(11-15) 



DEFINE 
MESSAGE 

LINE 

CONTROL 

CHARACTERS 



(16-29) 



DESCRIBE 

ERROR MESSAGE 

AND OUTPUT 

MESSAGE 
CONSTANTS 



(30-66) 




(67-76) 



COPY INPUT 
MESSAGE 
CONTROL 
HEADER 



LINt NO. 


SOORCE EnTrY 










OQOQl 


lOLNTIFICATION DIVISION. 










O0Q02 


PROGRAM 


-10. ACTl. 










UDUUJ 


ENVIRONMLNT DIVISION. 










00004 


CONFI60RATI0N SECTION. 










00005 


SOORCE- 


COMPUTER. UNIVAC-0S2 


. 








00006 


OBJECT- 


COMPUTER. 0NIVAC-0S2 


. 








00007 


OATA DIVISION. 










U0U08 


.W0RKIN6 


-STORAGE SECTION. 










00009 


77 


STATE PIC A(7) VALOE 'STATE*. 








00010 


77 


ERROR-TEXT-LENGTH PIC 9(4) COMP-4 


VALUE 34. 




00011 


01 


LINE-0. 










00012 




02 


OLE PIC 


X 


VALUE 


=•10'. 




UDQ13 




02 


PCAC PIC 


X 


VALUE 


=•05'. 




UOOIH 




02 


ROW-0 PiC 


X 


VALUE 


:'00'. 




00015 




02 


COLUMN-0 PIC 


X 


VALUE 


='00'. 




0001b 


01 


LINE-1-MSG-lA PIC 


X(39) 


VALUE 


'STATE STATE 


-POP 


00017 




1 


CAPITAL'. 










OOOIB 


01 


LINE-5-MS6-1A. 










U0019 




02 


E-1 PIC 


X(13) 


VALUE 


'CAPITAL-POP? '. 




00020 




02 


SOE PIC 


X 


VALUE 


='1E'. 




00021 




02 


E-2 PIC 


X(7» 


VALUE 


•NO YES^. 




00022 




02 


ESC-1 PIC 


X 


VALUE 


='27'. 




00023 




02 


HT PIC 


X 


VALUE 


='05'. 




U002H 




02 


OLE PIC 


X 


VALUE 


='10'. 




00025 




02 


FC PIC 


X 


VALUE 


='02'. 




00026 




02 


ROW-5 PIC 


X 


VALUE 


='10'. 




00027 




02 


COLUHN-16 PiC 


X 


VALUE 


='05'. 




Q002B 


01 


LINE-l-MSG-lB. 










00029 




02 


E-1 PIC Xt26) VALUE 


'ERROR - STATE NAME INVALID'. 




OOOiO 


LINKAGE 


SECTION. 










00031 


01 


PR06RAM-INF0RMATI0N-8L0CK. COPY PIB74. 




00032 




02 


STATUS-CODE 




PIC 


9(4) COMP-4. 




00033 




02 


OETAILEO-STATOS-CODE 


PIC 


9(4) COMP-4. 




0003H 




02 


RECORD-TYPE REDEFINES DETAILED 


-STATOS-CODE. 




00035 






03 PREOICTED-RECORD-TYPE 


PIC 


X. 




00036 






03 DELlVtRED-RECuRD-TYPE 


PIC 


X. 




00037 




02 


SUCCESSOR-ID 




PIC 


X(6). 




U003B 




02 


TERMI NATION -IN Die A TOR 


PIC 


X. 




00039 




02 


LOCK -ROLLBACK -INDICATOR 


PIC 


X. 




00040 




02 


TRANSACTION-ID. 










00041 






03 YEAR 




PIC 


9(4) COMP-4. 




00042 






03 TODAY 




PIC 


9(4) COMP-4. 




00043 






03 HR-MIN-SEC 




PIC 


9(9) COMP-4. 




00044 




02 


DATA-OEF-RtC-NAML 




PIC 


X(7). 




00045 




02 


UEFINEO-FILE-NAME 




PIC 


X (7) . 




00046 




02 


STANDAR0-MS6-L1NE-LENGTH 


PIC 


9(4) COMP-4. 




00047 




02 


STANDARO-MSG-NUMbER-LINES PIC 


9(4) COMP-4. 




00048 




02 


WORK-AREA-LENGTH 




PIC 


9(4) COHP-4. 




00049 




02 


CONTINUITY-DATA-INPUT -LENGTH 


PIC 9(4) COMP-4. 




00050 




02 


CONTINUITY -DATA-OUTPUT -LENGTH 


PIC 9(4) COMP-4. 




00051 




02 


WORK-AREA-INC 




PIC 


9(4) COMP-4. 




Q005Z 




02 


CONTINUITY-DATA-AREA-INC 


PIC 


9(4) COHP-4. 




U0053 






U2 SUCCESS-UNIT-ID. 








00054 






03 TRANSACTION 


-DATE. 








U005S 






04 YEAR 






PIC 99. 




00056 






04 MONTH 






PIC 99. 




00057 






04 TODAY 






PIC 99. 




00058 






03 TIME-OF-DAY 


• 








00059 






04 HOOR 






PIC 99. 




00060 






04 MINUTE 






PIC 99. 




00061 






04 SECOND 






PIC 99. 




00062 






03 ONIUUE-SUFFIX 




PIC 


999. 




00063 




02 


SOURCE -TERMINAL-CHARS. 








00064 






03 SOURCE-TERMINAL 


-TYPE 


PIC X. 




00065 






03 S0URCE-TERM-MS6 


-LINE- 


LENGTH PIC 9(4) COMP-4. 




O0066 






03 SOURCE-TERM-MSG 


-NUMBEK-HNES PIC 9(4» COMP-4. 




00067 


01 


INPUT-MESSAGE -AREA. COPY IMA74. 






00068 




02 


SOORCE-TERMINAL-IO 






PIC X(4). 




00069 




02 


DATE-TIME-STAMP. 










00070 






03 YEAR 






PIC 9(4) COMP-4. 




U0071 






03 TODAY 






PIC 9(4) COMP-4. 




00072 






03 HR-MIN-SEC 






PIC 9(9) COMP-4. 




00073 




02 


TEXT-LENGTH 






PIC 9(4) COMP-4. 




O0U74 




02 


AUXILIARY-DtV-lD. 










00075 






03 FILLER 




PIC X. 




O0Uf6 






03 ADX-DEV-NO 




PIC X. 





l^.^ 



Figure B-21. Sample COBOL Action Program ACTl (Part 1 of 2) 
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o 



(77-79) 



(80-83) 



(84-92) 



(93r107) 



G 



(108-109) 



(114-115) 



(116-125) 



(126-129) 



DESCRIBE 
INPUT 

MESSAGE 
TEXT 



REQUIRED 

VALUES 

SAVE 

AREA 



COPY OUTPUT 
MESSAGE 
CONTROL 
HEADER 



T 



DESCRIBE 

OUTPUT 

MESSAGE 

TEXT 



DESCRIBE 

DATA NEEDED 

BY ■ACT2 ■ 



READ 

STATE" 

FILE 



BUILD OUTPUT 

MESSAGE OR 

ERROR 

MESSAGE 



TERMINATE 
PROGRAM 
SUCCEEDING 
EXTERNALLY 
TO ■•ACT2" 



U0077 
UDU7a 
U0D79 
UOQttU 
OOUHl 
U0U82 
U0UH3 

uaoa^ 
uoous 

U0Utl6 
UOQH? 

oQoaa 
uoaay 
uouvo 

UDU91 

uDuy2 
uaovi 

U0U9II 

uau95 

U0096 
U0U97 
UOUVB 

uooy9 

UOIQU 
UUlOl 
U0I02 
QQIQ} 
UOlUI 

ugios 

UOlUb 

uaiu7 

001U8 
00109 
UOllO 
UOIU 
U0112 

uaiii 

UOllH 
U0115 
00116 
00117 

ooiia 

00119 
00120 
00121 
00122 
00123 
0012H 
0012S 
0012b 
0012 7 
00128 
00129 
OOIJO 
00131 
00132 
00133 
0013M 
00135 



PiC X. 
PIC X. 

PIC Aim ). 



01 



01 



COPY 0HA7'I. 

PIC X(<t). 

PIC XI2). 
PIC Xt2». 

PIC xim. 

PIC 9(m COMP-M. 

PIC X. 

PIC X. 



02 TRANSACTION-CODE 
02 FILLER 
02 STATt-NAME-lN 
WORK-AREA. 

02 STATE-NAME PIC A I 1 1 ) . 
02 STATE-PUP PIC 9(BI. 
02 CAPITAL PIC AUbt. 
OOTPUT-rCSSAlJE-AREA. 
02 OLSTINATION-TERMINAL-IO 
02 SFS-OPTIONS 
02 FILLER 
02 CONTINOOUS-OUTPUT-COOE 
02 TEXT-LENGTH 
02 AUXILIAHY-DtVICE-10. 
03 AOX-FONCTION 
03 AOX-DEVICE-NO 
02 LINE-0-OUT PIC xm). 
02 LINE-1-OOT. 
03 El-OOT 
03 CONIHOL-1 
03 CONTROL-2 
02 LlNt-3-OOT. 
03 FILLER 
03 SIATE-NAMt 
03 FILLER 
03 STATE-POP 
03 FILLER 
03 CAPITAL 
03 CONTROL-3 
03 CONIROL-H 
02 LINE-b-OUT PIC X(27l. 
CONTINUITY -DATA -AREA. 
02 CAPITAL PIC A(25). 

PHOCtOORE DIVISION OSING HROCRAM-INFORMAT ION-BLOCK 

INPUT-MESSAliE-AREA WURK-AREA OUTPUT-MESSAOt-AREA 
CONTINUITY -DATA-AREA. 
SET-STATE-RECORD. 

CALL 'GET' USING STATE WORK-AREA STATE-NAME-IN. 
IF STATOS-CODE EQOAL 1 GO TO PROCESS-tRROR . 
BUILO -OUTPUT -MtSSAGE. 

MOVE LINL-0 TO LINE-U-OUl. 
MOVt LINE-1-MSU-lA Tu El-OUT. 
MOVE LINt-U TO CONTROL-1 CONTROL-2. 
MOVE SPACES TO LINE-3-0UT. 

MOVE CORRLSPONDING WORK-AREA TO LINE-3-0UT. 
MOVt LINE-0 TO CONTRUL-3 CONTHOL-M, 
MOVt LINI-5-MSG-1A TJ LINE-5-0UT. 
SAVE-CONIINUIIY-OATA. 

MOVE CAPITAL OF WORK-AREA TO CAPITAL OF CONTINUITY-DATA-AREA. 
TEHM-WITH-tXTERNAL -SUCCESSOR. 

MOVt 'E* TO TERMINATION-INDICATOR. 
MOVE •ACT2UD' TO SUCCt SSOH-IO . 
CALL 'RETURN'. 
PROCESS-ERROR. 

MOVE LINL-0 TO LINE-J-OUT. 
MOVE UINt-1-MSG-lB TO LINE-1-OUT. 

MOVE ERROR-TEXT-LENGIH TO TEXT-LtNGTH OF OUTPUT-MESSAGE-ARE*. 
ItH MI NATE -NORM ALLY. 
CALL 'RETURN*. 



PIC Xt39). 

PIC xmi. 

PIC XIM) . 
PIC XX. 

PIC Aimi. 

PIC X{t) . 

PIC 99,999.999, 

PIC XIM) . 

PIC AI2bl. 

PIC xm). 
PIC xii>. 



01 



(130-133) 



BUILD 

ERROR 

MESSAGE 



Figure B-21. Sample COBOL Action Program (Part 2 of 2) 



TERMINATE 

(134-135) ( PROGRAM 

NORMALLY 
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(1-9) 


HOUSEKEEPING 








(10-19) 


DEFINE 
MESSAGE LINE 

CONTROL 
CHARACTERS 








120-56) 


COPY 
PIB 








(57-66) 


COPY INPUT 
MESSAGE 
CONTROL 
HEADER 



(67-70) 



(71-74) 




LIHt NO. 


SOURCE ENTRY 






UDQOl 


lOtNTIFlCATlON DIVISION. 






UOUOZ 


PROGRAM-ID. ACT2. 






U0003 


ENVIRONMENT DIVISION. 






00004 


C0NFI6URATI0N SECTION. 






UOOUS 


SOORCE 


-COMPUTER. UNIVAC-0S3. 






0DU06 


OUJECT 


-COMPUTER. UNIVAC-0S3. 






00007 


OATA DIVISION. 






00008 


WORKIN(;-STOHAUE SECTION. 






00009 


77 


CITY PIC AI7I VALUE 'CITY'. 






00010 


01 


LINE-1. 






00011 




02 


OLE-1 PIC X 


VALUE =M0'. 


00012 




02 


PCAC-I PIC X 


VALUE :'05'. 


OOOIJ 




02 


ROH-O-1 PIC X 


VALOE :'00'. 


ooom 




02 


eOLUMN-0-1 PIC X 


VALUE :'0D'. 


OOOIS 




02 


OLE-2 PIC X 


VALUE :MD'. 


OOOlb 




02 


PCAC-2 PIC X 


VALOE :*D5'. 


00017 




02 


ROW-0-2 PIC X 


VALUE :*00*. 


oooie 




02 


COLOMN-0-2 PIC X 


VALUE :'00'. 


011019 




02 


FILLER PIC XX 


VALUE SPACES. 


00020 


LINKAGE SECTION. 






OOOZl 


01 


PROGHAM-INFORHATION-ULOCK. COPY PIB71. | 


00022 




02 


STATUS-CODt 


PIC 


911) COMP-1. 


0002i 




02 


DETAILEO-STATOS-CODE 


PIC 


911) COMP-1. 


oao2<< 




02 


RECORD-IYPL REDEFINES DETAILED-STATUS-CODE. | 


00025 






03 PREDICTtD-RLCURD-TYPE 


PIC 


X. 


00026 






03 DELIVERED-RECORD-TYPE 


PIC 


X. 


00027 




02 


SOCCESSOR-IO 


PIC 


X 16) . 


0002S 




02 


TERMINATION-INDICATOR 


PIC 


X. 


O0U29 




02 


LOCK-ROLLBACK-INDICATOR 


PIC 


X. 


oauso 




02 


IRANSACTION-IO. 






00051 






03 YLAR 


PIC 


911) COMP-1. 


000i2 






03 TODAY 


PIC 


911) COMP-1. 


OOOiJ 






03 HR-MIN-SEC 


PIC 


919) COMP-1. 


OOOit 




02 


DAIA-DEF-REC-NAML 


PIC 


X 17) . 


000 jb 




02 


DEFlNEO-FILE-NAMt 


PIC 


X 17) . 


00056 




02 


manoard-msg-linl-length 


PIC 


911) COMP-1. 


00037 




02 


STANOAHO-MSG-NUHUER-LINES 


PIC 


911) COMP-1. 


00058 




02 


«ORK-AHtA-LENGTH 


PIC 


9(1) COMH-1. 


00059 




02 


CONTINUITY-OATA-INPUT-LENBIH 


PIC 9(1) COMP-1. 


OOOMO 




02 


CONIINUl TY-OATA-UUTPUT-LLNGTh 


PIC 9(1) COMP-1. 


ooom 




02 


WORK-AHtA-INC 


PIC 


9(1) COMP-1. 


000M2 




02 


CONTINUIIY-OATA-ARLA-INC 


PIC 


9(1) COMP-1. 


00043 






U2 SUCCESS-UNIT-ID. 






O0U1<( 






U3 TRANSACTIUN-DATE. 






00015 






01 YEAR 




PIC 99. 


000<4b 






01 MONTH 




PIC 99. 


00017 






01 TODAY 




PIC 99. 


00018 






03 TIME-OF-DAY. 






00019 






01 HOUR 




PIC 99. 


OOObO 






01 MINUTE 




PIC 99. 


ODObl 






01 SECOND 




PIC 99. 


00052 






03 UNIQUL-SUFFIX 


PIC 


999. 


00053 




02 


SOURCE -TERMINAL -CHARS. 






00051 






03 SOURCt-TERMINAL-TYPE 


PIC X 


. 


00055 






03 S00RCE-TERM-M5G-LINE-LENGTK 


PIC 9(1) COMP-1. 


OOOSb 






03 S0URCt-TERM-Ms6-NUMBER 


-LINES PIC 9(11 COHP-1. 


00057 


01 


INPUI-MESSAGE-AREA. COPY 1MA71. 




00058 




02 


SOURCE-IERHINAL-IU 




PIC XIII . 


00059 




02 


OATE-TIME-STAMP. 






00050 






03 YEAR 




PIC 9(1) COMP-1. 


OOUbl 






03 TODAY 




PIC 9(1) COMP-1. 


00052 






03 HR-MIN-SEC 




PIC 9(9) COHP-1. 


00053 




02 


TEXT-LENGTH 




PIC 9(11 COMP-1. 


00051 




02 


AUXILIARY-OEV-IO. 






00055 






03 FILLER 


PIC X. 


UOUbb 






05 AUX-OEV-NO 


PIC X. 


OOOb? 




02 


FILLER PIC X. 






OOObS 




02 


NO-POP PIC XX. 






00069 




02 


FILLER PIC XX. 






00070 




02 


YES PIC XXX. 






00011 


01 


WORK-AREA. 






00072 




02 


CITIES PIC At25l. 




00073 




02 


CITY-POP PIC 9171 


. 




00071 




02 


STATE PIC Adil. 





vv' 



Figure B-22. Sample COBOL Action Program ACT2 (Part 1 of 2) 
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c 



COBOL Action Programming Examples 



(75-83) 



COPY 

OUTPUT 

MESSAGE 

CONTROL HEADER 



(84-85) 



(86-87) 



(91-92, 
95-96) 



(93-94) 



DESCRIBE 
OUTPUT 
MESSAGE 

TEXT 



DESCRIBE 

DATA PASSED 

FROM 

■ACTV 



READ -CITY- 
RECORD 



CLEAR 
■■TEXT-LENGTH- 
FIELD AND 
TERMINATE 
NORMALLY 



D0D75 01 OUTPUT-MESSAGE-AREA. COPY 0MA7t. 

U0076 02 DESTINATION-TERMINAL-ID PIC X ( "♦ ) . 

U0U77 D2 SFS-OPTIONS PIC X«2I. 

ua078 02 FILLER PIC X(2). 

U0U79 02 CONTINUOUS-OUTPUT-CODE PIC XCH). 

UOUBO 02 TEXT-LENGTH PIC 9(H) COMP-H. 

U0081 02 AUXILIARY-DEVICE-ID. 

U0U82 Ui AUX-FUNCTION PIC X. 

OOUbi U3 AUX-DEVICE-NO PIC X. 

UDDBH 02 E-1 PIC XllO). 

UOOaS 02 CAPITAL-POP PIC 9,999,999. 

O0U86 01 CONTINUITY-DATA-ARtA. 

U0087 02 CAPITAL PIC A(2S>). 

U0UB8 PHOCEOUKt DIVISION USING PROGK AM-INFORM A I ION-BLOCK 

UD089 INPUT-MESSAGE-AREA WORK-AREA OUTPUT-ME SSA6 t-ARE A 

00090 CONTINUITY-DATA-AREA. 

U0091 CHECK-RESPONSE. 

U0U92 IF YES EQUAL "YES* 60 TO GET -CITY-RECORD . 

U0U9} MOVE ZERO TO TEXT-LENGTH OF OUTPUT-MESSAGE-AREA. 

O0U914 BO TO TERMINATE-NORMALLY. 

00U95 GET-CITY-RECORD. 

0009b CALL 'GET' USING CITY WORK-AREA CAPITAL. 

00097 UUIL0-0UTPUT-MESSA6E. 

U0U98 MOVE LINE-1 TO E-1. 

U0U99 MOVE CITY-POP TO CAPITAL-POP. 

JOIOO TERMINATE-NORMALLY. 

OOIDI CALL 'RETURN*. 



Figure B-22. Sample COBOL Action Program ACT2 (Part 2 of 2) 



(97-99) 



BUILD 
OUTPUT 
MESSAGE 



(100-101) 



TERMINATE 
PROGRAM 
NORMALLY 
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B.4. Sample COBOL Action Program Using Screen Format ^ 

Services (JAMENU) 



NAME 

ADDRESS 



The JAMENU action program is the first of a series of programs that make up an 
entitlement accounting system. JAMENU processes a password entered as input from 
the terminal. If the password is valid, JAMENU displays a menu screen using screen 
format services. 

The operator then chooses the menu number of the action program he needs to 
perform the next operation on his file. If the password he enters is invalid, JAMENU 
displays an error screen and terminates. 

Figure B-23 is a compiler listing of the JAMENU action program. Because this 
program is one in a series of interrelated action programs, note that a special function 
call section (lines 269-363) includes many more calls than JAMENU uses. Including a 
repertoire of these calls in each action program makes them available for any logic 
used in each procedure division of programs in the series. 

Also, in the working-storage section, all screen formats and successor-ids are 
identified enabling the program to reference any one of them, though it does not use 
all of them. This programming technique saves time particularly when a series of 
action programs can succeed differently to each other. 

A flowchart corresponding to the JAMENU action program appears to the left of the 
coding in Figure B-23. Program line numbers in parentheses near the flowchart boxes 
represent the lines of coding that implement the process described. 
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c 



(1-24) 


HOUSEKEEPING 








(25-29) 


SCREEN 

FORMAT 

LIST 








(40-50) 


SUCCESSOR-ID 
LIST 








(51-69) 


MENU 

CHOICE 

LIST 



rpG2 j 



LIKE NO. Source entrt 



QCCPOl 

loono? 

CnuCGJ 

oranoi* 
oncos* 

OOQCOfc* 

uoono7» 

oncoQ?« 

Dnooo'* 

oncciP» 

ooonii* 

unooi2 

croou 

onooii 

000315 

orocifc 

000017 
QOQPIH 
0C0CI19 

onoozc 

Qr0021 
000022 
000023 

onoo2i 
opGors 

CC0D26 
000C27 

onoc28 

000029 

oroo3n 

000031 
Cnon32 
000033 
Of003M 
000035 
C00036 
Or;OD37 
000038 
uP0C39 
CiOCOfO 

coocm 

OOOC'I? 
3nC013 

oconui 

0C0PM5 
000CM6 

onorM7 
OTonns 

00OCM9 

G'^OOSC 
000051 
^^0052 

C^C rtC T 

CCS" 

Gro"5'^. 

Q"0056 
aC0G57 

uicose 
-naP59 

ulQObC 

urorbi 
&?u06r 

jnurfc? 
u^'GOie 

^''C'67 
L.rG06P 

L'"0?7r» 
QrCP7I . 
OrOP72» 
LTJ'"77» 

L-cr,7t» 



IDENTiriCATION DIVISION. 



PROGRAH-IO. 
REMARKS. 



JAMENU, 

PROCrsS SIGNON ♦ MENU. 



THIS prog''a'' processes the 


^IGNON AND SYSTEM/80 


MENU • 


SCREEN FOR 


THE ENTITLTMENT 


ACCOUNTING SYSTEM. 


* 


ir THE SIGNON IS rcUNO TO 


eC VALID, THE MENU WILL 9r * 


DISPLAYED. 


OTHERWISE, THE 


ERROR OVERLAY SCREEN 


WILL BE • 


DISPLAYED 


AND THE TOAWSACTION TERMINATED. 


* 
* 



ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

DATA DIVISION. 

WORKING-STORAGE SECTION, 
77 CUST-FILENlMf 
77 SCTL-riLENAKE 

PI SCREEN-FCRXAT-IDS. 



UNIVAC-0S3. 
UNIVAC-0S3, 



PIC X17) 
PIC )t{7) 



VALUF "CUSTMST*. 

VALUE 'sysctl;. 



P5 
C5 
ES 
P5 
05 
05 
05 
05 
05 
"5 
P5 
05 
05 



SF 
SE 
SF 
SF 
SF 
SF 
SF 
SF 
SF 
SF 
SF 
SF 
SF 



-MENU 
-APDl 
-ADD2 
-A0D3 
-CHGl 
-CHG? 
-CHGJ 
-DELI 
-DiSl 
-LSI I 
-I.AR1 
-EORl 

-ter" 



PIC 
PIC 
PIC 
PIC 

Pic 

PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X181 
X(8I 
Xl8) 
X(8I 
X(8) 
X(R) 
XI8I 

xrs) 

X(8I 

xiei 

XI8> 
XI8) 
X(B) 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



•ja«mEnu 

•JAJAPD! 
•JAjAPD? 

•ja»apd:' 

•JAfCHGl 

•JA«CHG? 

•JA«CHG? 

•JAfDELl 

•JAtDTSl 

•JA«LST! 

•JA'WARl 

•JA'EPR 

•JA«TFRH 



vALir-succFssoo-ns, 

''S ^'ENU 

05 CUST-AOO 

05 CUST-CHG-1 

"5 CUST-CHG-2 

05 CUST-CHG-3 

P5 CUST-DEL 

05 CUST-OISPLAY 

"5 CUST-LIST 

PS WS-ACTIVITY 



PIC Xlfcl 
PIC XI6) 
PIC X(6) 
PIC X16I 
PIC X(6I 
PIC X(6I 
PIC Xt61 
PIC X(6) 
PIC X(6I 



VALUF 'JAMFNU*. 

VALUF 'JAAPD!'. 

VALUE 'JACHGl'. 

VALUE 'JACHG?'. 

VALUF •JACHG'". 

VALUE 'JADELl*. 

VALUE 'JADIS!'. 

VALUE 'JALSTl'. 

VALUF 'JAWARl'. 



ni 



WS-TABLES. 

Zb HENU-TAbLE. 

i:; FjLL'-R 



i; 
i: 
i: 
i: 

ii; 

IL 
IC 
lo 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FRLTR 
FILLER 
■^ILLER 
FILLER 



PIC Xt5 ) 
PIC Xl9) 
FIC X(9) 
PIC X(9) 
PTC X 191 
PIC XI9I 
FTC X 191 
FIC Xi9) 
PIC X(9) 
PIC X 19) 



VALUE 
VALUE 
V'LUE 
V»LUE 
VALUE 
V'LUE 
VALUE 
VALUE 
VALUE 
VALUE 



"-IJA 
'C2JA 
• C3JA 
TMJA 
•"SJA 
•TbJA 
•-'7JA 

•rsjA 

•r9JA 
•IbJA 



A3C1I •• 
CHGII*. 
CHG21'. 
CHG3I*. 
PELll*. 
?IS1I«. 
LSTII', 
WAPII'. 
►•ENUN* . 
HENUI*. 



15 "ENo-T'^L RrjrFTsrs meku-ta'-le rccuas ir ti"E? 
r.^txEP =Y ><e\li-tndx. 

IC "E^U-SEL FIC 9(2). 

!^ "tuu-uttj PIC xtt>). 

ii, "lnu-ind pic X. 

•»♦••»••»»*••»•••»*»•»••♦•«•«••••«••••*••*♦♦•••••**«*•**••*** 

this is th"- er" pRccrssiNG table for retrieving epr 
MEtsAsrs FccM the system control file for display 

WITH THE OVE^L'Y. 



Figure B-23. Sample Action Program JAMENU Using Screen Formats (Part 1 of 6) 
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(^ 




i,,^c:r7E '•3 

uCaD76 
(.10077 
CC0C78 
.■?C''79 ■'£ 

cnoobr 

C.PUCS2 
C-uCbJ rs 

uCO'-S? LI«JKJ£^ 
CrcDBf --l PRC 


FRP-STATUS-T«ELE. 

lu FILLER PIC Xitu) 

VALUE •'^ir'»D212?313ritii(-'515r61fe''7 170iinir9P21u?0*, 

ERP-TAPLE PEDEFINES ERp-S T A TUS-T « BLE OCCURS 'a TTMPS 

INDEXED BY ERR-INDX. 
13 ERP-CODE PIC P9. 
la i-RP-KrY PIC XX. 
NC-EPR PIC 99 VALUE 2''. 

'ECTICN'. 
aPA^-INPOt^MATTO'.'-PLOCK. COPY PIB, 


(75-84) 


DESCRIBE 

ERROR 

STATUS CODES 

AND TABLE 


















(86) 


COPY 
PIB 




.COTlbS "1 
u " u "^ 8 9 
u'"C''9'- 
u-C.n91 

ur-jr92 
:,"b''9' 
L.:L.r9'4 
c^ur9^ 
.Cur9f> 
u''wr97 
;""irsp "1 

■_'"u''99 
u-Glcr 
--LlL'l 

o'-L,l£}3 
O'lDlut 

orci07 
acoio? 
jncia9 
'jconc 
ijruin 
;'"un2 

u"0113 

orraiiE 
■jnoiie 

UCj117 

anoiis 
unuii9 

Drci2D 
CEC121 
0'!ul22 
aCC123 
orD12« 
aD0125 
a'"0l26 
u'0O127 

onoi2F 
un[ji29 

UrjD13r 
u'-0131 
u'"0132 

c-;ci33 

u^ClJI 

un013E/ 

0"Q136 

L-!D137 

D"ai38 

yn0139 

actjiti CI 


INPUT-'-ESS/ FjE-SREA . COPY IMA. 
-5 If<A-=A':S-l. 

i:. TMA-ncE PIC x{it). 

IL Tl',A-?I'^NCN PTC Xl5). 

1- i^e-PASS^R:^ PIC xm). 

-r IMj.-^cPE'N-^rC R-DPFTMES I"A-FASS-1. 

1. Sfi-CUS''-v?P PIC 9(6). 

1. SR-MFNU PIC 99. 

1. ^R-TPS"IT PIC X. 

IL PILL-P PIC X(0). 
WOP^-APT A . 
~S I'1S-PAr-A"CTES'-LI5T, 

1„ If ?-FILE^■AME PIC X(7). 

1. IKS-PECOPj-APEA PIT Xt25fc). 

lu T^S-KEY PIC X(lt). 

lu IMS-FILE-POSITIOH PIC X. 

IJ IMS-ALGN COMP-H SYNC, 

lu IMS-SCREEN-ID PIC %{'), 

I'j SCPEFN-STZe PIC 9(14) COMP <:ymc. 
"5 WA-CONTRCL-KFY. 

Ij CNTLl PIC X(?). 

IJ CNTL2-3 PIC X('4). 

i: CNTL23 RFDEFINFS CMTL2-3. 

15 CNTL? PIC 9(2). 
15 CNTL3 PIC X(2). 
ns FRP-5TATUS 'IC 99, 
•^5 PEPOPMAT-DATF. 

IL P-MONTH PIC 09. 

IG P-DAY PIC 99, 

la p-year pic 99, 

"S FPP-FLA6 PIC X. 

se FRR VALUE "l* •?• •" •"•. 

ee SEL-ERP VALUE •■". 

88 BLD-FRF VALUE •3'. 

88 PASSHRC-FRP VALUE "t • , 
HE SCPEFN-RFCORD. 

la SR-DaTE pic 9(6). 

IL SR-TIMF pic 9(6) . 
?i SFJ-EPR-TEXT pic X(5j). 
CS 5G-STAT PIC X(5). 
rs PASSWRC-PEC. 

lu FILLER PIC X(2) . 

lu PASSWRD PIC XC*). 

IC PASSWRD-SEL PIC X(25). 

la PASSWRD-fENu-SEL REDEFINES PASShRD-SEL 

PIC X OCCURS 25 TIMES TNDEXLD BY PA SSwPD-INDX. 

1^ FILLER PIC X(73). 

P5 CUST-RFCORD. COPY CUSTMST. 
r5 SCTL-RFCCRD. COPY SYSCTL. 

CUTPUT-MFSSAEE-APEJ. COPY OMA . 




1 




(88) 


COPY 

INPUT 

MESSAGE 

HEADER 






1 




(89-97) 


DESCRIBE 
INPUT 

MESSAGE 
TEXT 






1 




(98-106) 


SPACE FOR 

FUNCTION CALL 

PARAMETERS 






1 




(107-113) 


SPACE FOR 

RECORD CONTROL 

KEYS AND 

ERROR STATUS 






1 




(114-122) 


SPACE FOR 

DATE AND ERROR 

FLAG VALUES 






1 




(123-140) 


SPACE FOR 

SCREEN RECORD AND 

ERROR TEXT, 

PASSWORD, 

CUSTOMER AND 

CONTROL RECORDS 






1 






COPY 
OUTPi 'T 




(141) 


MES 
CONTROL 


3AGE 
HEADER 




Figure B-23. 


Sample Action Program JAMENU Using Screen Formats (Part 2 of 6) 
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o 



(142) 



DESCRIBE 

INPUT MESSAGE 

TEXT 



(144-160) 



DESCRIBE DATA 

PASSED FROM 

PROGRAM TO 

PROGRAM 



(176-233) 



INITIATE PROGRAM 

BUILD MENU OR 

ERROR SCREEN, 

SUCCEED TO 

JAMENU 



L;C0lt2 


rs oiA-rrxT pic xccro). 


urroiir 




OCCl"*" 


"1 CDN'TT'JUITY-DjTs-JStA. 


araits 


C5 CQA-PASSWRD PI C " 1 1 ) . 


cocitt 


'■5 C13A-MENU-SFL ?IC X(25). 


jr3lt7 


rs CCA-PA«:.SWRn-MEN'U-SFL RE^Ei^IK'ES CDA-MENU-STL 


cnaits 


PIC X OCCUPS 2"= ti»-e:5. 


cnci'4<5 


r's cda-cust-kfy. 


C?D15r- 


lu CDA-CUST-Nf^R PIC 9(t). 


i:!9Qi5i 


"5 C3A-ACCT-C0D'' PIC XCi). 


r;aai52 


-£ PASS-FLAR PIC X. 


jroi53 


88 PASS-THSU VALUE. • 1 " 2 " 3 • ' K • ' F * . 


Lcaist 


?6 PASSl VALUE •!•. 


oroisr 


P£ PASS2 VALUE •2*. 


uroisf 


68 PASS3 VALUE 'T, 


DnC157 


53 PAFSt VALUE •*•, 


uHDlSS 


P-e PASSF VALUiL 'S', 


u>rbl5'' 


rs CDA-STATUS-BYTF Pi C X, 


^caibc 


-•5 CrA-PSCCRAM-NAMF PIC X ( f. ) . 


iociei/ 




rj'-Die? 


PCiOCFDHRF DIVISION USINR PROGRAM-IN'^Oo*' «TTON-PLncK 


u'-QltJ 


ISPUT-«ESSAGr-(^PFA 


C-ulfc" 


WORK-AREA 


truf^ 


OUTpUT-MFssACE-A^EA 


CClSft 


CONTINUITY-DATA-ARFA. 


00ai67 


^'AT'^-LO0° 'SECTION, 


C'']jl68*** + + ++ + +* + * + + + * + * + + + + ++ + + + + + + + * + + + + +* + ++ + * + + + + + + * + + + + + * + + + + + * 1 


u"Q169» 


ThF PA£C FLAf; TN TMIs ?E'TION TELL5 TH" °k03PAM AT WHICH 


G-cn--* 


POIM IM<; HAS RE^jp^rQ cOMTROl OF The orOCFssINo to thf 


crcwi* 


PRO&r-Ay A PASS 2 FLA'"- fEANS THF PROSRA" HAS ALREADY DyT 


c^cw?* 


OUT THF SCEEN AND IS NOW READY TQ ACCFPT THF oaTA fC," 


broi7T* 


THAT SCREEN TO P='OCESS. OTHEK.TSF THF "rosRA" WANT*; TO 


orcjWKt 


:0 THE I^;ITIAL P^OCESSIr^r TO PUT OUT A SCRFE^J. 


Q'^Q!7^*+++*+++++*+++++++++*+++*++++++*++*+++++++++*+++++++**+*+*++ 1 


urai75 


-.''-FEr,iM. 


L^:i77 


z'^ \oT pass: 


,;nQ17S 


'^•E-FOR" IQC-INilTTALITE 


Ji'LW" 


IF MC FR° 


J?D15r-. 


Pi'FOR" r._-f-Du:Lni-sc»LiN 


u'-uiei 


ELSE 


:'"L,ie? 


orr^nRM ?^r-rRP-«'tSS«CE 


:-ulB3 


"LSE 


jCClcb 


"Ei^FOR'-! ?S"- = EAb-SCR'^Ef; , 


iJ-LlE"' 


I'E'^FCP" '■■.7-OETUi'v. . 


a';L,isf 




C"G167» 


♦ + + ++++ + + + + + 4 + + + + + + + + + + + + + +++ + + + + + + + +++-»- + + + + + + + + + + + + + + + + + +* + + 


L,raiof » 


INITIALI7A-I0N OF 'I'^LDS AND FLAGS IS DONE HFRF. 


':r'L139v 


AL'^3 :"ECKTNr :S D^NJF 'C SEE IF THF PROGPAM ENTERF" 


CCC19"» 


poO" A SI'.N C; CR >.AS CALLED l^RCM ANOTHER PRoF.RAM. 


:-ul91* 


0\LY IF ^^T^c TRO" A SIGN ON COES THF PROGRAM RETRIEVE 


J-C192* 


THE P«S?„ORD PECCD. OTHER WISE IT IS CARRIED TO CH'^Ci' 


r.^C19'* 


VALIuITY C^ "ENU Si^LFCTION. 


l^^3J5i+V4 + + + + + + + + 4 + + + + * + + + + + + + + + + + + + 4 + + + + + + + ++++++ + + + + + + + + + + + + **4.+ + + + 1 


^rai95 


lw--I»irTIALI"E. 


LJr2i9f 


"CVE SPACE TO I«$-KFY 


:rLi97 


IMS-FILENAKF 


.0ul9P 


SP-ffjp-TEXT . 


h^BiS^ 


"8«- :- n im-Fl'^hi' 


{iT3;ji 


'■"OVE C1RF P-TRANSACTION-DATE TO REF OR** AT -DATE . 


C-'L?C2 


TF COt-PROGPA''-VA"E 'UUAL LOW-VALUFS 


■.j'-o?c;7 


MOVE IXA-PASS.PC TO CNTL2-3 


ucarit 


«OVE 'RW TO CNTLl 


DCiJO"^. 


"OVE SPACE TO IMS-RtCORC-ARFA 


LHOSCf, 


MOVE SCTL-FILENAME TQ IMS-FTLEnAMF 


L'aQ207 


MOVE kiA-CONTROL-KEY TO IMS-KEY 


onojos 


PERFORM 5S2-GET 


uD02c!9 


IF FPR 


C?0210 


MOVE 'H' TO ERR-FLAg 


aDD?!! 


ELSE 


QD0212 


MOVE IHS-RECORD-AREA TO PASSWPD-RFC 


000213 


MOVE PASSWRD-SEL TO CDA-MENU-SEL 


or'a2i<» 


MOVE PASSWRD TO CDA-P ASSwPD . 


ijna2i5 


MOVE HFNU TO CDA-PROGRAM-NAMF. 


DPC216 





Figure B-23. Sample Action Program JAMENU Using Screen Formats (Part 3 of 6) 
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(237-244) 



READ AND 

VALIDATE 

MENU 

SCREEN 



(248-254) 



VALID SELECTION 
SUCCEED TO 

CHOSEN ACTION 

PROGRAM OR 

LOGOFF 



(259-267) 



LOGOFF, 

BUILD 

TERMINATION 

SCREEN 



(269-337) 



FUNCTION 

CALL 
REPERTOIRE 



0D0?17»4 + + + + + + * + + + + ■♦ + + +♦ + ♦♦ + * + ♦* + + ♦*♦ + ♦ + * + ♦ + + +* + *♦+ + + + + + + ♦* + ♦ + + * + *♦■♦* 


On0218» 


THF MAIN PPOCESSIMO AND BUILDING OF 


THE SCREEN DATA TS DPNF 


one?!''* 


IN 


HERE. 




GnQ220» 


+44 4 4+ +4 44444+++++++ +444+4 444+ 44 +++++444 ++++++ ++44 +4444444 44 4 | 


0D0221 


2g0 


-f UILD-SCPEEN. 




aC0222 




HOVE IMA-SOURCE-TEOMINAL-ID 


TO OMA-DESTINATION-TFRM-TD. 


On0223 




>>OVE SF-MENU 


TO IMS-SCREEN-TD. 


Dro22'< 




MOVE ALL 'O* 


TO SCREEN-RECOi'P. 


00022? 




MOVE SEFORMAT-DATE 


TO SR-DATE. 


On0226 




MOVE P-TtME-CF-DAY 


TO SR-TIME. 


000227 




MOVE 1? 


TO SCRFEN-SI7E. 


000228 




PERFORM FC5-BUILD. 




0nD229 




IF ERR 




000230 




PERi^ORM 900-ERR-MFSSAOE. 




OC0231 




MOVE MENU 


TO PIB-SUCCLSSOR-Ip, 


UCJ232 




MOvE 'E' 


TO PI3-TFRMINATI0N-IMD. 


000233 








00023*********** + * + + + + ** + ***** + + * + + + ** + + + * + -* + + *+ + * + + + * + * + + ***+** + + + + ** 1 


0CC235* 


THF MENU SFLFCTION VALIDITY IS CHECKED HERE 


0*^0236* + *** *♦*♦*♦♦*■♦*♦ + * + + ♦ + ♦ + + + ♦*♦♦♦♦ + + ♦♦■• + + ♦* + ** + *♦ **♦**** + + ♦♦♦*♦+ 1 


000237 


250 


-REA3-SCREEN. 




O00238 




IF CDA-PASSWPD-MENU-SEL tSR-WENU) 


NOT EQUAL TO M* 


0CC239 




MOVE •2« 


TO ERR-FLAS. 


OOuZlf' 




IF ER' 




a^U'"!! 




PERFORM 900-FRR-MESSA&E 




000212 




FLSE 




Qro2<t3 




PERFORM ?6r-SET-MENU. 




C002'»1 








Dnu2'*5)ii* + + + ♦ + + ♦ + ■♦ + + *♦♦ + + + + + + + + ♦ + ■♦♦ + + + ♦ + + + ♦+♦+ + + + + + + + + + + ♦ + + ♦ + + + * + ♦ + + + 1 


crojitfc* 


IF 


MENU SELECTION IS VALIO CONTROL IS SET FOR NEXT STAGE. 


G002*t7* + + + + ++* + * + + + + + + ++ + + + + + + + ♦* + + + + + + ♦♦ + + + + ++ + + + ♦■» + 44 + + ♦ + ♦ + ♦ + ♦ + + + 1 


U^U?'il! 


26" 


-SET-MENU. 




C002t9 




MOVE MrNU-NA«E (5R-hlnU) 


TO PI3-SUCCESS0R-IO. 


U'"0250 




MOVE MFNU-INO (SP-^EN'O) 


TO PIB-TERMINATION-IND. 


000251 




MOVE SR-CUST-NER 


TO CDA-CUST-NBP. 


000252 




MOVE •-• 


TO PASS-"^LA5. 


u0a253 




IF SR-MENu - 9 




000251 




PrRFO''M 270-LPGrFF. 




.-.00755* 








Gr'L256» + +*++ + + + + + * + + + + + **** + + ** + + + + + + + + + * + + + + + + + + * + + + **+ + + + + ++ + + +* + +-+ 1 


000257* 


p. 


jIL" termination SCEEN 




00C?5S*++++444++++++++4+++4+++444+4444+++4 4444+++++++++4+44++44*4+444 j 


:j^C259 


27- 


-LOOOFF. 




C002fc0 




MOVE I^A-SCURCE-TEOMTNAL-ID 


TO 0<<A-uESTINATION-TFR''-lD. 


000261 




MOVE Sr-TEPM 


TO IMS-SCRFEN-TD, 


000262 




MOVE ALL "• 


TO SCkEEN-REOOBD. 


C'"C267 




"GVE COR= P-TSAN(SACTION-"Afi^ 


TO reformat-eate. 


0'^026't 




MOVE RFFORMAT-DATE 


TO SR-DATE. 


00026'^ 




"OvE P-TIMF-OF-DAY 


TO SR-TIME. 


000266 




MOVE 12 


TO SCREEN-SIZE. 


G0CP6-' 




PEPFCRM 5uE-cUlLD. 




00026?/ 








000259 


TMC 


-CALLS SECTION. 




0-^0270. 








•j^0271 


r .- n 


-SETL. 




o00272 




CALL 'SETL* USINO- 


IMS-FILENAME 


C'^a273 






IMS-FILE-POSITION. 


ona??"* 


"^0" 


-CXIT. 




:.CJ275 




FXIT. 




300276 








cnC777 


■^01 


-FSFTL. 




b00276 




CALL 'CSCTL' USING 


I'f.-'^ILE^AME. 


000279 




IF PI'?-5T»TUS-C0D'- IS GPEATFR THAN | 


OOuPSn 




MOVE M* TO FR = -FLAG. 




r00281 


EDI 


-EXIT. 




00.0282 




EXIT. 




L'''L?83 








cnoJei 


5i,r 


-GET. 




C"U285 




CALL •0£'' USING 


IMS-t^ILENA"E 


G0G286 






IMS-RECOPD-APE* 


L,"0287 






IMS-KEY. 


30028.9 




IF PIP-STATUS-CPDF IS GPeATFR THAN " | 


000289 




WOVE •!• T'^ ER = -'"LAG. 




000290 


5>.? 


-FxIT. 





V.^ 



^^is..^.^^ 



Figure B-23. Sample Action Program JAIMENU Using Screen Formats (Part 4 of 6) 



V_^' 



B-38 



UP-9207 Rev. 2 



COBOL Action Programming Examples 






(338-362) 



FUNCTION 

CALL 
REPERTOIRE 



TpGe j 



J"u?9] 


rxIT. 


jnc?92 




','•'.291 


"^I T-CElTur. 


_'!u29« 


CALL 'EETLP' USIN'S IM S -f ILE NA^'E 


CnL29? 


IM5-°ErOCD-A-E« 


^'"0296 


I«5-K£Y. 


u"J29? 


TF rif.-5,Tl!TUS-C0D: IS :'^£AT'-R THAN " 


C'^D?98 


MOVE •!• TO FR=-rLAG. 


r,-,o29<5 


E.^'-rxIT. 


tr^icc 


EXIT. 


mm 


■^lI-PUT. 


jrc;n3 


CALL 'PUT' USTNC !-< S -F ILENAME 


D''C7C1 


IMS-RECORD-AKEA. 


c-^D?a5 


IF PIF-STATUS-CODE IS SP-ATFR THA'J <• 


orcice 


"CVE M' TC FR--'^LAa. 


U003U7 


SLI-CXIT., 


000308 


EXIT. 


i:nD3Q9 




QPQ3jn^+++++++*+4++++*++++++++++++++++++++++*+++++***+*+**+++*****+ 1 


unosin 


CALL FOR MAIN SCREEN FOR PROGRAM 


Cir-QTl?* 


+++♦+++++++++++++++++++++++++++++++++++++++++♦+++♦*****♦***♦ 


000313 


EU5-RUILD, 


DDC'lt 


CALL 'PUILD' USING 00 TPUT->1FSS AGE -A^E A 


CCIJ315 


ImS-SCPEFN-Iu 


DnC316 


SCREEN-RFcORO 


300317 


SCREEN-SIZE 


uTcJlS 


SG-STAT. 


000319 


IF PIB-STATUS-CODE IS GREATER THAN u 


Dno32r 


HOVF •3' TO EPR-FLAG. 


0CQ321 


505-EXIT. 


000322 


EXIT. 


UCD323 




COC321» 


+ + + ++-»+ + + + + + +++4++ + ** + 4 + * + + * + + 44 + + + +-+*+* + + + + + 4+ + + + * + + + + + * + + + 


Q'-DSZE* CALL FOR EPR OVERLAY SCREEN 


Onu326'*** + + + + ♦ + + + * + ♦ + + + * + ** + + + * + + + + *♦ + ♦ + + ♦ + + ******♦* + * + ***"* ******** 


a00327 


5C5-BUIL0-ERR, 


uOC32e 


CALL 'nuILD' USING CO TPUT ->1E SSA';E -A OE A 


0C0329 


IMS-SCREEN-ID 


000330 


SR-ERR-TEXT 


C.00331 


SCREEN-SIZE 


000332 


SG-STAT. 


000333 


IF PIE-STATUS-CODE IS GREATER THAN 


0nG33M 


MOVE "J* TO EPR-FLAG. 


0OD335 


5L5-DLD-ERR-EXIT. 


000336 


EXIT. 


0OU337 




000338 


5C6-REFUIL0. 


0OD339 


CALL 'REPUILD' USING IMS -SCRE EN-ID 


0Qe3'»C 


IMS-RECORD-A^E». 


CC03m 


506-EXIT. 


aoo3^2 


Fxn. 


000313 




Dr!J3t1 


507-PETUPN. 


00031(5 


CALL 'PETURN'. 


D003tfr 


?t7-EXIT. 


00C317 


EXIT. 


000318 




000319 


E08-INSEPT. 


000350 


CALL 'INSERT* USING IMS-PILENAME 


000351 


IMS-RECORO-APEA 


000352 


IMS-KEY. 


000353 


IF PIB-STATUS-CODE IS GREATER THAN 


0':JD35't 


MOVE •!• TO ERR-FLAG. 


000355 


5C8-EXIT. 


000356 


EXIT. 


U00357 




000358 


599-SNAP. 



Figure B-23. Sample Action Program JAMENU Using Screen Formats (Part 5 of 6) 
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^iT^^--. 





(pGe) 




0'-UT59 


«0V£ "S* TO PI''-TEC'MI».»TION-TND. 




V^ 


uCo7fer 


CALL 'SNAP* USING PRCGP A M-INi^ORMA TION-BLOCK CDA -ST/i TUS -3 YT^ , 








t1y361 


'599-e:xtT. 








ijVUZbl 


FXIT. 








unc363/ 










i;"a36i 


TROOP-PROCESSING SECTION. 








QCu3f r* 










0'!Cj366» 


♦++++♦+♦+++++++++++++++++++++++♦+++++++++++++++♦++++♦♦♦+*++ 








CjCD367* 


■TRR PROcrSSI'.'G IS DOME hFRF. thF TYPE OF ERP IS 








Q?C368» 


DETERMINED AND A SFACCH OF THE ERR TABLE IS MADE 








CCC369* 


THF APPROPRIATF ER" f'ESSSGF IS RETPIFVEO FPOH THE 








&'?G37::^ 


SYSTF^i CONTROL FILE AND DISPLAY IT ON THE OVERLAY 








i;nc37i. 


ERR =! IS ILLEGAL P»SS WORD ERR 9 IS ILLEGAL MENU 








j1C37?» 


SELECTION FOR PASSWORD OTmer frPS CnN^ORM TO IMS 








0-0373* 


STATUS ERRORS. 










aro77'4* 
.-;rc375 


♦■ + + + + + + + + + + + + ♦ + + + + + + + ♦ + + + + + + + + + + + + + + + + + ♦ + + + + ♦ + + + + + + + + + + + + + + + 

5U"-ERR-"E?S4&F, 










BUILD ERROR 




ona376 


"OVE SPACE TO IMS-RFCOR?-f RFA 




SCREEN AND 




U0L377 


I'-S-FILENAMF 


(375-401) 


OUTPUT ERROR 




0'"U378 


IWS-KEY. 




MESSAGE 




Dr-L379 
C;^Ci38T 
u'^u38 1 


MOVE SCTL-FILE'-'i-E TO I«S-F ILENAMF . 

T"^ PASSwRD-ERR 

MOVE 'E' TO PASS-FLAG 
MOVE ? TO ERR-STATUS 








00C382 








C."C'S3 


ELSE 








^0038" 


IF SEL-FRP 








C"C,38E 


"OVE 9 TO ERR-STATUS 








CnL;386 


ELSE 








G'U787 


MOVE PIB-STATUS-COCE TQ EOr-staTUS. 








uCD'SS 


^OVE 'EM* TO CNTLl. 








a?C369 


"-OVE SPACE TO CNTL3. 








0-039" 


slt err-inpx to i. 








;r:„'9i 


SEARCH Ei^R-TABLE 








IjPC392 


AT EN-D 








:''u393 


"OVE NC-i^RR TO CJTLZ 








,j!:^,391 


WHEN LPR-CODE (ECR-If.Dx) IS TQUAL TO ERR-S'A'ruS 








u-"U395 


"OVE E-R-K'"Y (TRR-TNDX) TO CNTL2. 








CnC396 


■'OVE ilA-CON'TROL-KEY tq IMS-KFY. 








^."□397 


pfrppCM ri;p.r-£T, 








3Ca79S 


"OVE IMS-RECORP-f.R'^A TQ SCTL-RECCPP. 








CrL399 


"OVE ALL "C TO SR-E-R-TEXT. 








Cl^'fOr'. 


"OVE SCERR-TTxT TO SR-FRR-TEXT. 








u'"OiDl 


MOV; St--rRoi TO IMS-SCREEN-TD . 








Ji?LU>,2 


"OV; sr TC SC'^EFN-SITE. 








C':u'Ju3 


"OVE IMA-SCy^CF-TE-MINSL-ID TO 0« A -DE ST IN A T lON-TF P"-! p . 








U-btut 


PEi^FPR" '^CE-BUILD-'R'^, 
IF PASSE 




y^ ^ 


(405-411, 


TERMINATE A 


0-uOOt 


MOVE MENU TO PIB-SL'CCESSOR-IP 


185) 


I PROGRAIVl 1 


a'^o'tu7 


MOVE "N* TC PIB-TERMINA-'ION-IND 




V y 




ono'io9 


FL'-E 

MOVE HFNU TO PI3-SUCCESS0R-IP 








1 


urLti'' 


HOVE -r* TO PIB-TERMINATION-IMD 










cnouil 


MOVE "" TO PASS-FLAG. 



Figure B-23. Sample Action Program JAMENU Using Screen Formats (Part 6 of 6) 
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The following discussion of the JAMENU action program assumes that you have 
already created a menu screen format called JA$MENU and filed it in the screen 
format file. Any line numbers referenced in this discussion refer to the code in the 
JAMENU action program, Figure B-23. Also, expansions of the program information 
block, input message area, and output message area cannot be seen in this listing; 
however, their fields may be referenced in the code (e.g., lines 406 and 407) and are 
available to JAMENU. 

JAMENU uses two files (lines 22 and 23): 

1. CUSTMSTfile 

2. SYSCTLfile 

The CUSTMST file contains customer information. The SYSCTL file contains four 
types of records: 

1. Account access records (AA) 

2. Branch records (BR) 

3. Error message text records (EM) 

4. Password records (PW) 

Each type record is identified by a 2-byte control key field. (See lines 108-112 and 
129.) JAMENU accesses the SYSCTL file to validate passwords and retrieve error 
messages for display in the error message screen format. 

JAMENU performs five types of routines. It: 

1. Validates passwords 

2. Builds menu screen 

3. Validates menu selections 

4. Builds error screen 

5. Builds termination screen 
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The following general flowchart shows these main routines in the JAMENU program. 



c 



VALIDATE 
PASSWORD 




RETURN TO MENU 



PASS TO 
SUCCESSOR 



BUILD 

TERMINATION 

SCREEN 



(TERMINATE ^ 
PROGRAM J 



BUILD 
ERROR 
SCREEN 



RETURN TO MENU 






Begin executing the JAMENU program by entering the transaction code, MENU, 
followed by the password. This is considered the sign-on or first pass through 
JAMENU. 



MENU CP50 



c 
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On the first pass, JAMENU accesses the SYSCTL file to validate the password 
entered at the terminal. If the password is valid, JAMENU saves all data pertinent to 
that password in the continioity data area (lines 211-216), bmlds the menu screen 
(lines 221-232), and terminates in external succession to itself (JAMENU). Menu 
screen JA$MENU follows. 



FIRST PASS 



06/23/81 06:49:28 JAMENU 

ENTITLEMENT ACCOUNTING SYSTEM 
SELECT ONE (1) OF THE FOLLOWING OPTIONS: 
1. ADD A NEW CUSTOMER RECORD. 
*2. UPDATE CUSTOMER NAME/ADDRESS INFORMATION. 
*3. UPDATE BRANCH CUSTOMER INFORMATION. 
*4. UPDATE CUSTOMER ENTITLEMENTS. 
*5. DELETE A CUSTOMER RECORD. 
*6. DISPLAY CUSTOMER INFORMATION. 

7. LIST ALL ACCOUNTS (ON THE WORKSTATION). 

8. ENTER WORKSTATION ACTIVITY RECORDS. 

9. LOGOFF SYSTEM. 
♦ENTER CUSTOMER NUMBER 

MENU SELECTION: 

PLACE CURSOR HERE TO TRANSMIT [-] 



02/09/81 



In the menu screen build routine (lines 221-232), the BUILD ftinction call that 
actually calls the menu screen identifies the buffer address where IMS receives the 
screen format as the output message area (line 314); the format name as IMS- 
SCREEN-ID (line 315, defined on line 105); the variable data as SCREEN-RECORD 
(line 316, defined on lines 123-125); the data size as SCREEN-SIZE (line 317, defined 
on line 106); and, the output status as SG-STAT (line 318, defined on line 127). 

Notice, all the parameters you specify on the BUILD function must be defined in the 
work area. 

If the BUILD function is unsuccessful (lines 319 and 320), JAMENU moves an error 
code of 3 to the ERR-FLAG (lines 118 and 121) indicating a build error. 

If the password is invalid on the first pass, JAMENU accesses the YSCTL file via the 
EM record key for the error message record (lines 380-388), searches an error table to 
find the appropriate error message (lines 390-395), retrieves that error message (Unes 
396-398), builds the error message screen (lines 399-404), and terminates in external 
succession to itself (lines 408-411). The password error screen follows: 



PASSWORD IS INVALID. ENTER AGAIN. 



On the second pass through JAMENU, the program tests the menu selection made, to 
see if it is accessible to the password specified in the first pass. If the menu selection is 
valid for that password, JAMENU performs 260-SET-MENU (lines 248-255). This 
moves the correct program name to process the menu selection to the successor-id and 
an I to the termination indicator. 
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Notice here that the programmer has set up a menu table (lines 52-62) containing not 
only the menu selection numbers and their corresponding action programs but also 
the termination indicators used to end each action program. The menu is redefined 
with selection numbers (MENU-SEL) in the first 2 bytes of each table field, the action 
program names are in the next 6 bytes (MENU-NAME), and, finally, the termination 
indicators are in the last byte of each field (MENU-IND). 

When the program moves the successor-id and termination indicator to the program 
information block (lines 248-250), it moves the menu name indexed by the menu 
number entered at the terminal. JAMENU picks up the correct program name for the 
successor-id by using this index value to reference the first 2 bytes of the menu table 
entry. Likewise, JAMENU moves the termination indicator value to the program 
information block by using the index value to reference the last byte of the menu table 
entry chosen. 

Redefining the menu table (lines 52-68) saves coding by making three types of data 
accessible in one table: the menu selection numbers, action program names for 
successor-ids, and termination indicators. 

If the menu selection is invaUd, JAMENU moves code 2 indicating selection error to 
ERR-FLAG (lines 237-241), builds the menu selection error message screen (lines 375- 
411), and succeeds externally to itself. 

Several tests occur in the beginning error message building routine. The first 
separates password errors from menu selection errors and function call errors (hnes 
380-387). 

For a password error, JAMENU places code 5 in the pass flag to force the normal 
termination of the transaction and moves 8 to the work area location, ERR-STATUS 
(lines 380-382). 

For a menu selection error, JAMENU moves a 9 to ERR-STATUS in the work area 
(lines 113, 384, and 385). This code corresponds to one of the values 01 through 10 
contained in the first 2 bytes of each table entry in the ERR-TABLE. These leading 2 
bytes in each table entry also correspond to the index v^lue being used to search ERR- 
TABLE (lines 75-83). Thus, when the value in ERR-STATUS equals the value in the 
first 2 bytes of an ERR-TABLE entry, JAMENU moves the contents of ERR-KEY (the 
last 2 bytes in the corresponding ERR-TABLE entry) to the record key area used to 
retrieve that error message record from the SYSCLT file (lines 394 and 395). 



& 



V_v' 
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The following diagram illustrates the ERR-TABLE, its index (ERR-INDX), and the 
way JAMENU uses the value in ERR-STATUS to find the ERR-KEY value in the 
table by searching ERR-TABLE for the error code (ERR-CODE) that matches the 
value in ERR-STATUS. 



ERR-STATUS 



ERR-TABLE (ERR-INDX) 



9 




ERR-CODE ERR-KEY 



JAMENU clears the work-area locations (lines 376-378). It moves the SYSCTL file 
name to the work area file name to prepare for retrieval of the SYSCTL record. This 
record contains the 'EM' prefix, the error message number to be sent to the screen, and 
the error message text (line 379). 

To find the appropriate error message corresponding to the password error menu 
selection error, or other function call error, JAMENU searches the table, ERR-TABLE 
(lines 390-395). If it finds no corresponding error cdde, it moves a message number of 
25 (line 83) to the key field (CNTL-2, line 395) used to call the corresponding record 
from the SYSCTL error message file (lines 396 and 397 and 284-289). 

If, for example, JAMENU finds an 09 error code (lines 394 and 395), JAMENU uses 
error message number 02 from the ERR-TABLE (see ERR-TABLE diagram and 
coding line 77) as a key to locate the corresponding error message text in the SYSCTL 
file (lines 102, 107-112, and 396 and 397). 
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When JAMENU retrieves the SYSCTL error message (EM) record, it uses this 
message number to locate the error message text immediately following the 02 error 
number on the SYSCTL record. JAMENU then uses this message text in building the 
error message screen. 

Notice in lines 398-404, including lines 327-334, that JAMENU clears the screen error 
text area to receive the error message text from the SYSCTL file; identifies the 
terminal to receive the error message; transmits the message; and terminates in 
external succession to itself. If a build error occurs, JAMENU sets the error flag to 3 
and succeeds externally to itself. 

If the menu selection including customer number is valid, JAMENU executes another 
short routine (260-SET-MENU, lines 248-254) that passes control to the appropriate 
action program to process the menu selection. This routine also checks for a logoff 
menu selection (9) that builds the termination screen similarly to the way JAMENU 
built the error message screen (lines 259-267). Successor programs selected from the 
menu perform file operations required. When processing is complete, control returns 
to the JAMENU program via immediate internal succession and the terminal operator 
again receives the menu screen to enter another selection. 



c 



c 
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^ B.5. Sample COBOL Action Program Performing 

Output-for-lnputQueueing(BEGINl) 

The BEGINl action program (Figure B-24) initiates a continuous output print 
transaction at a terminal other than the source terminal. (See Figure B-25 for an 
action program performing continuous output.) To do this, BEGINl uses output-for- 
input queueing. By placing the output-f or-input queueing function code into the 
AUX-FUNCTION field of the output message area header, BEGINl queues its output 
message as input to a different terminal. 

The program also issues messages to the source terminal operator telling him whether 
the output message was successfully or unsuccessfully delivered to the destination 
terminal. 

When activated at the source terminal, BEGINl expects an input message in the 
following format (lines 61-65): 

BEGIN dest- terminal text 
where: 

BEGIN 

Is the 5-character transaction code the terminal operator enters to activate 
BEGINl. (BEGIN should also appear in the configurator TRANSACT 
section.) 



o 



dest-terminal 

Is the 4-character terminal-id of the destination terminal where the 
continuous output print transaction is initiated. (Assign this same terminal- 
id in the ICAM network definition.) 

text 

Is the alphanumeric text entered by the source terminal operator. This text 

is the input message expected by the print transaction that performs 

continuous output at the destination terminal. It must begin with the 

transaction code that causes scheduling to initiate the transaction. 

A flowchart describing the corresponding lines of BEGINl code is to the left of Figure 
B-24. 
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(1-7) 



(8-131 



(14-50) 



HOUSEKEEPING 



DEFINE 

DICE CODE 

VALUES 



COPY 
PIB 



(51-60) 



COPY INPUT 
MESSAGE 
CONTROL 
HEADER 



(61-65) 



(68-76) 



DESCRIBE 
INPUT 

MESSAGE 
TEXT 



COPY OUTPUT 
MESSAGE 
CONTROL 
HEADER 



LINt NO. SOUHCE ENTRr 



UODOl 
U0UU2 
UOOD] 

uauo^ 

UODOS 
UOUDb 

uaau7 
uauus 
□auu9 
oouio 

UOOll 
00012 
00013 

ooom 
ooois 

OOOlb 
00017 

oooia 

U0U19 
U0020 

00021 
00022 
U0U2J 
O002'< 
00025 
00026 
00027 
UOOZB 
00029 
OOUiU 
00031 
00032 
000 3 3 
00034 
U0U3S 
0003b 
00037 
00030 
0003V 
OOOHO 
OOOtl 
000')2 
O00H3 
UOOtt 

oao>4b 

0004b 
00017 
00018 
00019 
OOObO 
OOObl 
000b2 
00053 
OOUbl 
00055 
ODObb 
U0057 
00058 
00059 
OOObO 
000b 1 
O0062 
00Ub3 
OODbl 
000b5 
OOObb 
000b7 
OOObS 
OOObV 
000 fO 
00071 
00072 



PIC X 
Pit X 
PIC X 
PIC X 



VALOE 
VALOE 
VALOE 



•10' 
•01* 
•OC" 



VALUE :«0D' 



01 



01 



01 



02 
02 



02 
02 
02 
02 



02 
02 
02 
02 
02 
02 
02 
02 
02 



COPY P1B71. 

PIC 9(1) COMP-1. 
PIC 9(1) COMP-1. 



PIC X. 
PIC Xlb) . 
PIC X. 
PIC X. 



lOtNTIFlCAIlON OIVISION. 
PHUGKAH-ID. BE6IN1. 
ENVIRONnENT OIVISION. 
CONFIGURATION S&CTION. 
SOURCE-COMPOTER. 0NIVAC-0S3. 
OBJECT-COMPUTER. UNIVAC-0S3. 
OATA DIVISION. 
MORKING-STORAGE SECTION. 
01 DICt-SEO. 

02 DICE-CODE 
02 FUNC-COUE 
02 Y-COORD 
02 X-COORD 
LINKAGE SECTION. 

01 PROGRAM-INFORMATION-dLOCK. 
02 STATUS-CODE 

DEIAILEO-STATOS-COOE , ^v ,.,. w.,.--,. 

RECORO-TYPE REDEFINES DET AILtD-ST ATOS-COOE . 

03 PREOlCTtO-RtCUHO-TYPE PIC X 

03 DELIVERED-RECORO-TYPE 

SUCCtSSOR-lD 

TERMINAIION-INOICATOR 

LOCK-ROLLBACK -INDICATOR 

TRANSACTION-ID. 

03 YLAH 

03 TODAY 

03 HR-HIN-SEC 

DATA-OtF-RLC-NAMc 

OEFINED-FILE-NAME 

SIAND«KU-H5B-LINt-LENGTH ... ..,. „.,. ,. 

STANUARO-MSG-NUMdER-LINES PIC 9(1) COHP-1. 

UOHK-AREA-LENGTM PIC 9(1) COMP-1. 

CONTINUITY-DAIA-INPUT-LENGTH PIC 911) COMP-1. 

C0NT1NU1TY-0AIA-UUTPUT-LLN(.IH PIC 911) COMP-1. 

«OHK-AHt A-INC PIC 9(1) COMP-1. 

CONTINUI lY-UATA-ARtA-INC Pit 9(1) COMP-1. 

02 SUCCESS-UNIT-ID. 
03 THANSACIl JN-DAIt . 

01 TLAH 
'01 MONTH 
01 TODAY 
03 TIHt-OF-DAY. 
01 HOUR 
01 MINUTE 
01 SECOND 

03 UNIUUt-SUFFlx 
SOURCE -ItRMINAL-uHARS. 
03 SOURCE-IEHMINAL-TYPE 
03 SOURCt-IERM-MSG-LlNt-LtNGTH 
03 SOURCE-TERM-Mib-NUMBEH-LINES 

INPUT-HESSAGE-AREA. COPY 1MA71 



PIC 9(1) 

PIC 9 (1 1 

PIC 9 19) 

PIC X (7) 

PIC X 17 ). 

PIC 9(1) COMP-1 



COMP-1. 
COMP-1. 
COMP-1. 



PIC 99. 
PIC 99. 
PIC 99. 

Pit 99. 
PIC 99. 
PIC 99. 
Pit 999. 



02 



PIC X. 



PIC 9(1) COMP-1. 
PIC 911) COMP-1. 



02 SOURCt-TERMINAL-IU 
02 OATt-TIME-STAMP. 

U3 YEAR 

03 TODAY 

03 HR-MlN-StC 

TEXT-LENGTH 

AUXILIARY-OLV-ID. 

03 FILLER 

03 AUX-OEV-NO 
02 TRAN5-C00E 
02 FILLER 
02 OEST-TEHM 
02 FILLER 
02 TEXT-AREA 
KORK-AREA. 
02 DUMMY 

OUT PUT -MLS SAGE-AREA, 
02 ULSIINA tlON-TERMlN«L-lD 
02 SFS-OPTlUNS 
02 FILLER 
02 CONTINUOUS-OUTPUT-CODE 



02 
02 



PIC Xtl) . 

PIC 911) COMP-1. 

PIC 9(1) COMP-1. 

PIC 9(9) COMP-1. 

PIC 911) COMP-1. 



PIC X. 

PIC X. 
PIC X15). 
PIC X. 
Pit XII ). 
PIC X. 
PIC XI29). 

PIC X. 
COPY 0MA71. 

PIC XII ). 



PIC X12) . 
PIC XI2), 



X^^^ 



PIC XII). 



Figure B-24. Sample Action Program BEGINl Using Output-for-lnput Queueing (Part 1 of 2) 
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(77-79) 



(80-84) 



(85-88) 



(93-104) 



(105-107) 



DESCRIBE 

OUTPUT 

IV1ESSAGE 

TEXT 



DESCRIBE 

OUTPUT-FOR- 

INPUT 

TEXT 



DESCRIBE 
ERROR 

MESSAGE 
TEXT 



BUILD 

OUTPUT 

MESSAGE FOR 

INPUT 

QUEUEING 



SEND MESSAGE 

TO SOURCE 

TERMINAL 

SCREEN 



(108-109) 



TERMINATE 
PROGRAM 



U0Q73 
U0U7H 
U0U75 
aQU7b 
O0U77 
O0U78 
UDU79 

aaauo 

UDUB2 

uaoB3 
uaoBt 
uaaus 

UDQUb 

uaua7 

UOOBB 

oau89 

UQU9U 
U0Q91 

uouvz 

OQUVi 
QOUVt 
UQU95 

uauvb 

UDUy7 
UD09B 
UD099 
OQIOO 
UQIQI 
Q0102 
UOlUi 
U01U<« 
UDlOa 
UQlUb 

uoia7 
uaias 

U0IU9 

uoiiu 

UOlll 
U0112 

uaiij 

U0114 

uo 1 1 5 



PHOCE 



D2 


TdXT-LE 


02 


AUXILIA 




U3 AUX- 




U3 AUX- 


Q2 


SEND-MS 




Oi OUTP 




U3 FILL 


Q2 


BE6IN-M 




OS CURS 




U3 MSS- 




U3 TERM 




03 FILL 


02 


ERROR-M 




03 CURS 




03 MS6- 




03 ERRO 


EDURE OIVI 



PIC 9{<t) 



COMP-t . 



PIC X. 
PIC X. 



PIC X{29». 

PIC xtim. 



MOVE- 
M 

s 

M 
M 

C 

1 

M 
M 
M 
M 
TEKMI 

n 

M 
M 
C 
ERROR 
M 
M 
M 
M 
6 



MESSAGE. 
OVE DEST- 
UBTRACT 1 

OVE •!• T 
OVt TEXT- 
ALL 'SENO 
F STATUS 
OVt DICE- 
OVE 'IRAN 
OVt DEST- 
OVE 12 TO 
NATE-ROUT 
OVt LOW-V 
OVE LOW-V 
OVE 'N' T 
ALL 'RETU 

PROC. 
OVE OICE- 
OVt MRAN 
OVE OETAI 
OVE t7 TO 
To TERM 



NGTH 

RY-OEVICE-IO. 

FUNCTION 

OEVICE-NO 

6. 

UT-TtXT 

ER 

S6 REDEFINES SEND-MSt. 

OR-1 PIC XC*!. 

1 PIC X(30). 
-NAME PIC Xlt). 
ER PIC X 15). 
S6 REDEFINES SEND-MS6. 
OK-2 PIC X(m. 

2 PIC XI35). 
R-COUE PIC Z22Z. 
SION USING PROGRAM-INFORMATION-BLOCK 

INPUT-MESSAGE-AREA 

WORK-AREA 

OUTPUT -MESSAGE -ARE A. 

TERM TO OESTINATIOW-TERMJNAL-ID. 

1 FROM TEXT-LENGTH IN INPUT-MESSAGE-ARt A 

GIVING TEXT-LENGTH IN OUTPUT-MESSAGE-AREA 

AUX-FUNCTION. 

AREA TO OUTPUT-TEXT. 

• USING 0UTPUT-MESSA6E-AREA. 

CODE NOT EmUAL to 60 TO ERROR-PROC. 

SEQ TO CURSOR-l. 

SACTiON BEGUN AT TERMINAL • TO MS6-1 

TERM TO TERM-NAME. 

TEXT-LENGTH IN OUTPU T -MESSAGE-AREA . 
INE. 

ALUES TO DtSTINATION-TERMINAL-lD. 
ALUE TO AUX-FUNCTION, 
TERMINATION-INDICATOR. 
RN*. 



SEQ TO CORSOR-2. 

SACTION NOT BEGUN UUt TO ERROR • TO MSe-2. 

LEO-STATUS-COOE TO ERROR-CODE. 

TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
INATE-ROUTiNE. 



(110-115) 



BUILD 

ERROR 

MESSAGE 



Figure B-24. Sample Action Program BEGIN 1 Using Output-for-lnput Queueing (Part 2 of 2) 
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When BEGINl is activated, the MOVE-MESSAGE routine forms an output message 
that is queued as input for the destination terminal. Line 94 places the destintation- 
terminal named in the input message into the output message header. Lines 95 and 
96 specify the length of the output message, including four bytes for the 
TEXT-LENGTH field. Line 97 sets the AUXILIAKY-FUNCTION field of the output 
message area header to the value (X'C9' or CT) that directs IMS to queue the output 
message as input for the destination terminal. In line 99, the SEND function 
transmits the output message to the destination terminal. 

If IMS encounters no errors in executing the SEND function, the operator of the 
originating terminal receives a message indicating that the print transaction was 
successfully queued at the destination terminal. Lines 101 and 102 provide the screen 
positioning and text of the message sent to the operator of the originating terminal. 
Line 106 sets the DESTINATION-TERMINAL-ID field of the output message area 
header to binary and thus ensures that this message is sent to the source terminal. 
Line 107 ensures that this message is sent to the UNISCOPE screen instead of to the 
communications output printer (COP). 

BEGINl terminates normally without succession (lines 108 and 109) and the source 
terminal is freed for other interactive use. 

On the other hand, if IMS encounters an error in queueing the message output by 
BEGINl as input to the destination terminal, the ERROR-PROC routine (lines 100 
and 110-115) formats an error message for output to the originating operator, and 
BEGINl terminates normally (lines 108 and 109). The output message is dequeued. 
The operator, depending on the nature of the error, may reenter the original input 
message. 

Although the text of the message sent to the source terminal on successful return from 
the SEND function (line 102) states TRANSACTION BEGUN AT TERMINAL, this 
may not be true. All that actually occurred was that the output message was 
successfully queued as input from the destination terminal. If the transaction code it 
contains is invalid, however, or some other error intervenes, the print transaction does 
not begin. IMS does not report such occurrences to the originating action program, but 
to the destination terminal. 

Remember, the purpose of BEGINl is to initiate a transaction at another terminal by 
sending a transaction code in the output message it queues as input to the destination 
terminal. Suppose the terminal operator enters this input: 

BEGIN TRM5 PRINT ORDFILE 5732468 TRM1 COP 

The MOVE statement on line 98 places this input into the output text area. The 
message entered by the terminal operator contains the transaction code needed to 
start the transaction at the destination terminal. 

BEGINl redefines the output message text area to handle both a successful and an 
unsuccessful SEND operation. 



c 






v^' 
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If the SEND function is unsuccessful, BEGINl positions the cursor and moves the 
unsuccessful SEND message text to the output text. In this case, the source terminal 
operator receives the message, 

TRANSACTION NOT BEGUN DUE TO ERROR 0604 

By examining the status and detailed status codes in Table D-4, you discover the 
reason for the error: the destination terminal or auxiliary device was invalid. 

If the SEND function is successful, BEGINl positions the cursor and moves the 
successful SEND message text to the output text. The source terminal operator then 
receives the message, 

TRANSACTION BEGUN AT TERMINAL TRM5 

at his terminal (lines 101-104) and BEGINl terminates normally. 

When the TRMl operator receives the successful SEND message, the program PRINT 
begins processing the ORDFILE order number 5732468 at TRM5 and sends 
continuous output from the PRINT program to a communications output printer 
attached to TRM5. 

Most output-f or-input queueing applications initiate a continuous output transaction 
at another terminal to free the source terminal for further interactive processing. The 
continuous output program initiated by the source terminal operator in the message 
entered on the BEGIN transaction was PRINT. 

The PRINT action program showing how continuous output is handled follows in B.6. 
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B.6. Sample COBOL Action Program Performing 

Continuous Output with Delivery Notice Scheduling 
(PRINT) 

Figure B-25 illustrates a compiler listing of a sample COBOL action program, PRINT, 
with corresponding flowchart. The PRINT program: 

• Prepares three types of output messages by processing customer order 
information entered at the terminal against an indexed file. 

• Lists these messages as continuous output at the originating terminal. (If the 
parameter, COP, is included in the initial input message, the output from PRINT 
is sent to a communications output printer.) 
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yf^~-^,^ 



(1-10) 



HOUSEKEEPING 



(11-75) 



DESCRIBE OUTPUT 

MESSAGE HEADERS 

AND 

DICE CONTROL 

CHARACTERS 



LiNt NO. 


SOURCE ENTrY 














UOUOl 


lUtNTIFlCATlON DIVISION. 














UODO^ 


PROGRAM-ID. PRINT. 














LJOUUJ 


tNVIRQNME.Nl DIVISION. 














U0UU4 


C0NFI6UKATI0N StCTION. 














UD005 


SOURCE- 


-COMPUTER. UNIVAC-0S3. 














UOUOb 


OBJtCT- 


-COMPUTER. UNIVAC-0S3. 














U0007 


DATA DIVISION. 














U0UU8 


W0RKIN5-ST0RA5E SECTION. 














U0UU9 


77 


POS-liE 


PIC 


X 


VALUE '6*. 






UOUIO 


77 


SUCCtSSFUL-UEL -NOTICE 


PIC 


X 


VALUE :'C1 


• 




UQOXl 


01 


TOTAL 


-POS. 














uaui2 




02 


UICL-TP 


PIC 


X 


VALOE :*10'. 




uoais 




02 


FUNC-TP 


PIC 


X 




VALUE :• 


0"*'. 




UOQIH 




02 


Y- 


rp 


Pit 


X 




VALUE :• 


oo^. 




UOUIS 




D2 


X- 


rp 


PIC 


X 




VALUE :• 


33". 




UUUlb 


Ul 


HEADER-LINES. 














uoai7 




02 


ORDER-LINE. 














UOUIB 






03 


HOME-POS-CLEAR. 














uDUiy 








05 OICE-HPC 


PIC 


X 




VALUE = 


•10^. 




uau20 








05 FUNC-HPC 


PIC 


X 




VALUE : 


•03^. 




U0U21 








05 Y-HPC 


PIC 


X 




VALUE = 


•00*. 




U0U22 








05 X-HPC 


PIC 


X 




VALUE = 


•DO". 




D0u2i 






03 


MIDDLE-COL-POS. 














DOUZt 








06 DICE-MCP 


PIC 


X 




VALOE = 


•10'. 




UDUZS 








05 FUNC-MCP 


PIC 


X 




VALUE = 


•02*. 




U0U2& 








05 Y-MCP 


PIC 


X 




VALUE : 


•00*. 




UDU27 








05 X-MCP 


PIC 


X 




VALUE : 


•37'. 




U0U28 






03 


p-oruer-heao 


PIC 


X<1U) 


VALUE • 


ORDER » 


• 


uou2y 






03 


P-ORDER-NO 


PIC 


9(7). 








00030 






03 


NEWLINE-3. 














uouii 








05 0ICE-N3 


PIC 


X 




VALUE = 


•lO^. 




UOUiZ 








05 FUNC-N3 


PIC 


X 




VALUE = 


•Of . 




UOUiS 








05 Y-N3 


PIC 


X 




VALUE = 


•02'. 




nans'* 








05 X-N3 


PIC 


X 




VALUE = 


•ou^. 




UOUiS 




02 


MAIL-LINES. 














U0UiS6 






03 


p-name 


PIC 


X(20) 


. 






U0Ui7 






U3 


NEkLINE-A. 














oouju 








05 OICE-NlA 


PIC 


X 




VALUE : 


•10'. 




uouiv 








05 FUNC-NIA 


PIC 


X 




VALUE = 


'UD'. 




OOUHO 








05 Y-NIA 


PIC 


X 




VALOE = 


•oo^. 




oaui4i 








05 X-NIA 


PIC 


X 




VALUE = 


•00^. 




00042 






U3 


P-AUUR 


PIC 


xtib) 


• 






OQQMi 






03 


NEWLINL-8. 














OQUHH 








05 OICE-NIB 


PIC 


X 




VALUE = 


•10". 




UOUHb 








05 FONC-NIB 


PIC 


X 




VALUE : 


•Of. 




UOutb 








05 Y-NIB 


PIC 


X 




VALUE = 


•OD^. 




U0047 








05 X-NIB 


PIC 


X 




VALUE - 


•00'. 




O0UH8 






03 


P-CITY 


PIC 


X(15) 


. 






U0049 






U3 


p-<:ip 


PIC 


XI5). 








uoubo 






03 


NEWLINE-2. 














UOQSl 








05 DICE-N2 


PIC 


X 




VALUE = 


•10'. 




U00!52 








05 FUNC-N2 


PIC 


X 




VALUE : 


'Ot •. 




uausi 








05 Y-N2 


PIC 


X 




VALUE : 


•01'. 




UOUi'* 








05 X-N2 


PIC 


X 




VALOE : 


'00'. 




UOUbb 




02 


HEADING -LINE. 














O0U56 






03 


PRQDUCT-HEADINb 


PIC 


X(I9) 








U0Ub7 










VALUE 


• 


PRODUCT 


• • 


UOObB 






03 


UNIT-C0S1-HEADIN6 


PIC 


X(ll) 








uaub9 










VALUE 


•UNIT-COST 


'. 




uoobo 






03 


AMUUNl-HtADING 


PIC 


X(B) 








UOObl 










VALUE 


•AMOUNT 






00062 






03 


SUBTOTAL-HEADING 


PIC 


X(IO) 








UOObJ 










VALOE 


•SOBTOTAL 


'. 




UOObt 






03 


SPACING 


Pit 


X(3) 


VALUE • 


'. 




UQObb 






03 


TOTAL-HEADING 


PIC 


XIB) 


VALUE 


• TOTAL 


1 


OOObb 






03 


NEWLINE-C. 














000b7 








U5 DICE-NIC 


PIC 


X 




VALUE 


=•10'. 




U0068 








Ob FUNC-NIC 


PIC 


X 




VALUE 


='0t'. 




aoub9 








05 Y-NIC 


PIC 


X 




VALUE 


:'00'. 




O0U7 








05 X-NIC 


Pit 


X 




VALUE 


='00'. 




U0071 


01 


ERROR 


-POSITION. 














U0072 




03 


DICE-EP 


PIC 


X 




VALUE 


=•10'. 




U0073 




03 


FONC-EP 


PIC 


X 




VALUE 


='01^. 




U0U74 




03 


Y- 


;P 


PIC 


X 




VALUE 


^•DO'. 




00075 




03 


X- 


.P 


Pit 


X 




VALUE 


^•oo^. 





Figure B-25. Sample Action Program PRINT Performing Continuous Output (Part 1 of 6) 
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(1-10) 



HOUSEKEEPING 



(11-75) 



DESCRIBE OUTPUT 

MESSAGE HEADERS 

AND 

DICE CONTROL 

CHARACTERS 



LINt NO. 


SOURCE EnTrY 












UOUOl 


lUtNTIFlCATlON DIVISION. 












UD0D2 


PK06RAM-ID. PRINT. 












UOUUi 


tNVIRONMLNT DIVISION. 












UOUUH 


CUNFI6UKATI0N StCTION. 












U0Q05 


SOURCE 


-COMPUTER. UNIVAC-0S3. 












UQUOb 


OBJLCT 


-COMPUTER. UNIVAC-OSJ. 












U0007 


DATA DIVISION. 












U0UU8 


WOKKINB-ST0RA6E SECTION. 












U0UU9 


77 


POb-SE 


PIC 


X VALUE '6' 


. 




UOUIO 


77 


SUCCESSFUL -DEL -NO net 


PIC 


X VALUE ='C1'. 




UQOll 


Ul 


TOTAL 


-POS. 












UQU12 




02 


UICL-TP 


PIC 


X VALUE ;• 


10'. 




UDU13 




02 


FUNC-TP 


PIC 


X 


VALUE : 


•01'. 




UOOlt 




02 


Y- 


TP 


PIC 


X 


VALUE : 


'DO'. 




UQUia 




02 


x- 


TP 


PIC 


X 


VALUE : 


'33'. 




UUUlb 


Ul 


heauer-lines. 












U0U17 




02 


order-line. 












uaoxB 






U3 


HOME-POS-CLEAR. 












uouiy 








05 DiCE-MPC 


PIC 


X 


VALUE 


::'10'. 




U0U2Q 








05 FUNC-HPC 


PIC 


X 


VALUE 


:'U3'. 




U0U21 








05 Y-HPC 


PIC 


X 


VALUE 


z'OD'. 




UQU22 








05 X-HPC 


PIC 


X 


VALUE 


='00'. 




OOUZJ 






03 


MIQDLE-COL-POS. 












ooazt 








05 OICE-MCP 


PIC 


X 


VALUE 


='10'. 




U0u25 








05 FUNC-MCP 


PIC 


X 


VALUE 


r'QZ'. 




U0U26 








05 Y-MCP 


PIC 


X 


VALUE 


='00'. 




U0U2? 








06 X-MCP 


PIC 


X 


VALUE 


=•37'. 




UOU2ti 






U3 


p-ohuer-head 


PIC 


X(IU) 


VALUE 


'ORDER » 


• 


U0U29 






03 


P-ORUER-NO 


PIC 


9(7 » . 








oaoio 






03 


NEkiLINE-3. 












uauii 








05 DICE-N3 


PIC 


X 


VALUE 


='10'. 




U0UJ2 








05 FUNC-N3 


PIC 


X 


VALUE 


I'OI'. 




UOUi3 








05 Y-N3 


PIC 


X 


VALUE 


='02'. 




UDUiH 








05 X-N3 


PIC 


X 


VALUE 


='UU' . 




UQU35 




02 


mail-lines. 












uaui6 






U3 


P-NAME 


PIC 


X(20) 


• 






U0U37 






U3 


NEhLINE-A. 












□auiu 








05 OICE-NIA 


PIC 


X 


VALUE 


='10'. 




UOuiV 








05 FUNC-NIA 


PIC 


X 


VALUE 


='Ut'. 




UOUHO 








05 Y-NiA 


PIC 


X 


VALUE 


='00'. 




oaum 








05 X-NIA 


PIC 


X 


VALUE 


='00' . 




Dau'»2 






03 


P'-AUUR 


PIC 


Xtl5) 


• 






uaoHj 






U3 


NEWLINE-8. 












uQu■<^ 








05 OiCE-NlB 


PIC 


X 


VALUE 


=•10'. 




UOuti 








05 FUNC-NIB 


PIC 


X 


VALUE 


=•01'. 




UOui^b 








5 Y -N I B 


PIC 


X 


VALUE 


='00^. 




O0UH7 








05 X-NIB 


PIC 


X 


VALUE 


=•00'. 




OOUMB 






U3 


P-CITY 


PIC 


X(15) 


. 






U0049 






03 


P--;iP 


PIC 


X 15 ) . 








UOUiO 






U3 


NEWLiNL-2. 












UODbl 








05 UICE-N2 


PIC 


X 


VALUE 


='10'. 




UQU!>2 








05 FUNC-N2 


PIC 


X 


VALUE 


='0H'. 




U0Ui3 








05 Y -N2 


PIC 


X 


VALUE 


=•01'. 




UOUbM 








05 X-N2 


PIC 


X 


VALUE 


='00'. 




uauib 




02 


headins-line. 












OQuSb 






U3 


PRODUCT-HEADINO 


PIC 


X(19) 








UDU!)7 










VALUE ' 


PRODUCT 


•. 


UOObB 






U3 


UNIT-COST-HEADING 


PIC 


X(ll) 








UOUbW 










VALUE 'UNIT-COST 


t , 




UQUbU 






03 


AMUUnT-HLADING 


PIC 


X(B ) 








UOObl 










VALUE 'AMOUNT ' 


. 




uaub2 






03 


SUbTOIAL-HEAOINe 


PIC 


XtlOl 








UOUbi 










VALUE 'SUBTOTAL 


• , 




UOUbt 






03 


SPACING 


PIC 


X(31 


VALUE 


'. 




UJUbb 






03 


TOTAL-HEADINO 


PIC 


X IB ) 


VALUE 


• TOTAL 


• . 


DOdbb 






03 


NEWLINE-C. 












UOUb7 








U5 UICE-NlC 


PIC 


X 


VALUE 


=•10^. 




UOUbB 








05 FUNC-NIC 


PIC 


X 


VALUE 


=•01'. 




00Ufa9 








05 Y-NIC 


PIC 


X 


VALUE 


=•00^. 




UQU/L) 








05 X-NIC 


PIC 


X 


VALUE 


='00'. 




U0U71 


UI 


ERROR- 


-POSITION. 












UJU72 




03 


DlCE-tP 


PIC 


X 


VALUE 


=•10*. 




UOU73 




03 


FUNC-EP 


PIC 


X 


VALUE 


=•01'. 




U0U7'* 




03 


Y-EP 


PIC 


X 


VALUE 


=•00'. 




O0U7S 




03 


X-EP 


PIC 


X 


VALUE 


=•00'. 





Figure B-25. Sample Action Program PRINT Performing Continuous Output (Part 2 of 6) 
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COBOI- Action Programming Examples 



I 



(148-1561 



COPY 
OUTPUT 
MESSAGE 
CONTROL 
HEADER 



(157-211) 



DESCRIBE 

OUTPUT 

MESSAGE 

TEXTS 



UOiHS 01 


OUTPUT-HESSAbE-AREA. 


COPY 0MA71. 


UOIHS 


02 


0£ ST IN A HON -TERMINAL 


-10 PIC X(1». 


uoi:>u 




02 SFS-OPTIONS 


PIC X12). 


UQX61 




02 FILLER 


PIC X(2I. 


U01S2 


02 


CONTINUOOS-OUTPOT-CODE PIC X(H). | 


ODlbi 


02 


TEXT-LENBTH 


HIC 9(m COMP-lt. 


UOlit 


02 


AOXILIART-OEVICE-iO. 




Uaib5 




03 AOX-FONCTIQN 


PIC X. 


UOIbb 




UJ AUX-OEVICE-NU 


PIC X. 


UOlbT 


03 


MESSAbE-l. 




U0158 




US FILLER 


PIC X(1B). 


U0159 




OS M-ORUER 


PIC 9(7). 


□ aibU 




Oi> FILLER 


PIC X(>t ) . 


UQlbl 




Ub M-NAME 


PIC XI2D1. 


uaibz 




05 FILLER 


PIC X(t). 


uaib3 




Ub M-AUDR 


PIC X(lb». 


UOlb"* 




05 FILLER 


PIC Xt*). 


0Qlb5 




Ob M-CITY 


PIC X(15). 


Uaibb 




Ob M-2IP 


PIC Xt5). 


UU167 




05 FILLER 


PIC xdim . 


UOIbB 


03 


MtSSAbE-2 RtUEFINES 


MESSA6E-1. 


J01b9 




Ob P-bRANO 


PIC X(17l. 


U017U 




05 COST 


PIC It, its. 99. 


uai7i 




05 FILLER 


PIC X(2). 


110172 




05 NUM 


PIC 2ZZ. 


UQ173 




Ob FILLER 


PIC X(2). 


UiJ17H 




05 P-S08TOTAL 


PIC S$,SSS,$$t.99. 


U017b 




05 NEXILINE-2 


PIC X(H). 


U0176 




05 FILLER 


PIC Xtl56l. 


00177 


03 


MESSA6E-3 REDEFINES 


MESSAbE-l. 


U017U 




Ob CURSOR-POS 


PIL xm). 


00179 




05 M-TOTAL 


PIC It,SSt ,SSS.99. 


ooiao 




Ob VALIUITY-CHAR 


PIC X. 


OOllil 




05 FILLER 


PIC X(1B8). 


UOlilZ 


03 


MtSSAbE-t RLOEFINlS 


MESSAbE-l. 


UOlBi 




05 POSITION-1 


PIC X(M». 


UQIBM 




05 HEADER-1 


PIC Xtl»2). 


UOIBS 




Ob OROER-H 


PIC 9(7). 


OOlBb 




Ob FILLER 


PIC X(153). 


00187 


03 


MESSAGE -5 REDEFINES 


MESSA6E-1. 


00188 




Ob POSITION-5 


PIC X(t ) . 


00189 




05 HEADER-5 


PIC X(19) . 


00190 




Ob TERM-NAME 


PIC XCt). 


00191 




Ob FILLER 


PIC X(179). 


UU192 


03 


MESSAGE-b REOEFINES 


MESSAbE-l. 


O019i 




05 POSITION-b 


PIC X(H ). 


0Q19H 




05 BREAK-OUTPOT 


PIC X(53). 


O01V5 




05 FILLER 


PIC X(m9». 


0019b 


03 


MESSAGE-7 REDEFINES 


MESSAGE-l. 


00197 




05 POSniON-7 


PIC X(<«). 


00198 




05 RESUME-ERROR-OUTPUT PIC XCZt). 


00199 




05 FILLER 


PIC X(178). 


0020U 


03 


MESSAGE-8 REDEFINES 


MESSAGE-l. 


00201 




05 POSlTION-8 


PIC x(^). 


U0202 




Ob END-OUTPUT 


PIC X(23). 


00203 




05 FILLER 


PIC X(179). 


0020'* 


03 


MESSAGE -9 REDEFINES 


MESSAbE-l. 


O02O5 




05 POSITION-9 


PIL xm). 


002Ub 




05 INPUT-ERROR-OOTPOT PIC Xt32). 


00207 




05 FILLER 


PIC X(17D). 


00208 


03 


MESSAGE-10 REDEFINES 


MESSAbE-l. 


00209 




05 POSlTION-10 


PIC X(H). 


U0210 




05 FILE -ERROR-OUTPUT 


PIC X(»2). 


00211 




05 FILLER 


PIC X(lbO). 



Figure B-25. Sample Action Program PRINT Performing Continuous Output (Part 3 of 6) 
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COBOL Action Programming Examples 



















& 


00212 
00213 
00214 
00215 


01 continuity-data-area. 
03 customer-record. 

OS C-KEY PIC X(b». 
05 C-IO PZC X(5). 














DATA 




U0216 


U5 C-NAME PIC XI20). 






REQUIRED FOR 




OD217 


05 C-AOOR PIC XI15I. 




(212-242) 


CONTINUOUS 




00218 


05 C-CITY PIC X(15t. 






OUTPUT 




00219 


05 C-ZIP PIC X(5). 






MESSAGES 




00220 
00221 


05 C-TOTAL PIC S9(7)V99 COMP-3. 
05 FILLER PIC X(14). 










UQ222 


03 PRODUCT-RECORD. 










00223 


05 P-KEY PIC Xt6). 










00224 


U5 PRODUCT PIC XI17». 










U0225 


OS UNIT-COST PIC S9t3)V99 COMP-3. 










U022b 


U5 AMOUNT PIC S999 COMP-3. 










U0227 


05 SUBTOTAL PIC S9<7»V99 COMP-3. 










00228 


U5 FILLER PIC X(47l. 










00229 


D3 CURRENT-ORDLR-NO PIC S9<7) COMP-3. 










00230 


03 CURRENT-CONT-CODE HEDEFINtS CURRENT-OROER-NO PIC 


XI4). 








U0231 


03 CURRENT -ENTRY-NO PIC S999 COMP-3. 










00232 


03 CURRENT-TOTAL PIC S9(7)W99 COMP-3. 










U0233 


03 INIT-TERM PIC X(4). 










00234 


03 DEST-TERM PIC X(4). 










00235 


03 COP-OUTPUT PIC X(31. 










00236 


03 FILE-KEY. 










00237 


05 FlLE-KEY-1 PIC S9(7) COMP-3. 










00238 


US FlLE-KEY-2 PIC S»(3» COMP-j. 










00239 


03 FILE-NAME PIC Xt7). 










00240 


03 INPUT-TOTAL PIC S9(7)W99 COMP-3. 










00241 


03 BREAK-MODE PIC X. 










00242 


03 PRINT-DEST PIC X(4). 










00243 


PROCEDURE DIVISION USING PROORAM-INFORM AT ION-BLOCK 










00244 


INPUT-MESSA6E-AREA 










U0245 


yORK-AREA 










00246 


OUTPUT-MESS ABE -ARE A 












00247 
00248 


CONTINUITY -DATA-AREA. 
EXAMINE-INPUT. 












TEST INPUT 




UD249 


IF TRANS-CODE tQUAL TO 'PRINT' GO TO BE6IN-TRANS. 




(248-258) 


AND BRANCH TO 




00250 


IF COMMAND-CODt EguAL TO 'END • SO TO END-TRANS. 




APPROPRIATE 




00251 


IF COMMAND-COOL EQUAL TO 'BREAK' SO TO BREAK-TRANS. 






ROUTINE 




00252 


IF COMMANO-CODt EQUAL TO 'RESUM' 60 TO RESUME-TRANS. 










00253 
U0254 


IF DEL-NOTICE-CODE EUUAL TO 'END ' 60 TO tND-OF-FILE 


• 








IF DEL-NOTICE-CODE EUUAL TO CURRENT-CONT-CODE 










00255 


60 TO DEL-NOTICE. 










00256 


MOVE 'INVALID DELIVERY NOTICE CODE • 










00257 


TO INPUT-ERROR-OUTPUT. 












00258 
00259 


60 TO DEL-NOTICE-ERROK. 
BE6IN-TRANS. 












SAVE RECORD 




00260 


MOVE TO CURRLNT-ORDER-NO 






DATA OR 




O0261 


MOVE TO CURRENT-ENTRY-NQ 




(259-273) 


BUILD ERROR 




00262 


MOVE TO FILE-KEY-1 FILE-KEY-2. 






MESSAGE 




00263 
0D264 
U0265 


MOVE TO CURRtNT-TOTAL 
MOVE TO BREAK-MODE 
MOVE SPACES TO INIT-TERM 


















U0266 


MOVE SPACES TO DtST-TtRM 










00267 


MOVE AT-COP TO COP-OUTPOT. 










00268 


IF T-FILE-NAME NOT EUUAL TO 'ORDRFIL* 60 TO INPUT-ERROR. | 








U0269 


MOVE INIT-TERMINAL TO INIT-TERM. 










00270 


MOVE SOURCt-T£RMINAL-ID TO PRINT-DEST. 










002 71 


IF T-ORDER-NO NOT EQUAL TO LOW-VALUES AND SPACES 










00272 


MOVE T-OHDER-NO TO FILE-KEY-1. 












00273 
00274 


MOVE T-FILE-NAME TO FILE-NAME. 
POSITION-FILE. 
















U0275 


CALL 'SETL' USIN6 FILE-NAME P0S-6E FILE-KEY. 






POSITION AND 




00276 


IF STATUS-CODE EQUAL TO GO TO READ-RECORD. 




(274-286) 


READ "ORDRFIL" 




U02 7 7 


MOVE 'END ' TO CURRENT-CONT-CODE. 






FILE 




U0278 
00279 
00280 


BO TO TOTAL-PROC. 
READ-RECORD. 

CALL '5ET' USING FILt-NAME RtCOHD-AHEA. 

IF STATUS-CODE EQUAL TO 1 GO TO FILE-ERROR. 






/^ 


00281 






(PGS) 


00282 


IF STATUS-CODE GREATER THAN 2 60 TO FILE-ERROR. 






00283 


IF STATUS-CODE EQUAL TO 2 60 TO END-OF-FILL. 






^> — ^ 


00284 


IF K-OROER-ENTRY NOT EQUAL TO 60 TO PRODUCT-PROC. 








U0285 


MOVE RECORD-AREA TO CUSTOMER-RECORD. 












00286 


IF CURRENT-TOTAL NOT EQUAL TO 60 TO TOTAL-PROC. 





c 



Figure B-25. Sample Action Program PRINT Performing Continuous Output (Part 4 of 6) 






B-56 



UP-9207 Rev. 2 



COBOL Action Programming Examples 



(287-300) 



(301-306) 



(307-3101 



(311-324) 



(325-334) 



(335-337) 



(338-343) 



(344-350) 



(351-353) 



(354-357) 



BUILD 
MESSAGE- 1 



SET UP 
AUX-FUNCTION 

FIELDS FOR 

CONTINUOUS 

OUTPUT 



TERMINATE 

PROGRAM 

EXTERNALLY 



BUILD 
MESSAGE-2 



BUILD 
MESSAGE-3 



TEST 

DELIVERY 

NOTICE 

CODE 



BUILD 

ERROR 

MESSAGE 



TEST 

TERMINATION 

ROUTE 



ABNORMAL 

TERMINATION 

WITH SNAP 

DUMP 



CHANGE 
DESTINATION 
OF MESSAGE 



oomi 


CUSTOMtR-PROC. 


U028» 


MOVt C-TOTAL TO INPOT-TQTAL. 


UDi!B9 


MOVt K-OKOEK-NO TO CURRENT -ORDtR-NO . 


UOiVQ 


MOVt. K-OROtR-NO TO FiUE-K£Y-l. 


UU^Vl 


MOVE K-ORUER-tNTRY TU CURRENT -ENTRY -NO . 


U02V2 


MOVE K-OROER-ENTRY TU FILE-KEY-2. 


aoii9i 


AOO 1 TO FILE-KEY-2. 


UD^S'* 


MOVE HEAOER-LINES TO MESSASE-l. 


00295 


MOVE CURRENT-OROER-NU TO M-OROER. 


U029b 


MOVE C-NAME TO M-NAML. 


UQ297 


MOVE C-AUUR TO M-AOOR. 


U0298 


MOVE C-CITY TO M-CITY. 


00299 


MOVE C-ZIP TO M-ZIP. 


UO^UO 


MOVE 163 TO TEXT-LENliTH IN OU TPUT-MESSAGE-AREA . 


aoioi 


CREATE -CONTINUOUS-OUTPUT. 


UUiU2 


IF COP-OUTPUT NOT EOUAL TO 'CUP' 


UOiUJ 


MOVE 'C TO AUX-FUNCTION 


UOiUH 


ELSE MOVE 'T TO AOX-FUNCTION 


U03U5 


MOVE 1 TO AUX-UEVICE-NO. 


LI03J& 


MOVE CURRENT-CONT-COUE TO CONTINUOUS-OUTPUT -CODE . 


UO^UT 


EXTERNAL-TERMINATION. 


UOiUB 


MOVE 'E' TO TERMINATION-INDICAIOR. 


U0309 


MOVE 'PRINTO' TO SUCCESSOR-ID. 


uoiiu 


CALL 'RETURN*. 


UOJll 


PRODUCT-PROC. 


0OJ12 


MOVE K-OROER-ENTRY TO CURRENT-ENTRY-NO. 


U0ii3 


MOVE K-OROER-ENTRY TO FILE-KEY-2. 


uoim 


AOO 1 TO FILE-KEY-2. 


UOiib 


MOVE RECORO-AREA TO PROOOC T -RECORD . 


UOilb 


ADD SOBTOTAL TO CURRtNT-TOT Au . 


U0317 


MOVE PRODUCT To P-BRANO. 


U031I1 


MOVE UNIT-COST TO COST. 


U0il9 


MOVE AMOUNT TO NUM. 


U0320 


MOVE SOBTOTAL TO P-SUBTOTAL. 


U0321 


MOVE NEWLINE-A TO NEXTLINE-2. 


U0i22 


MOVE CORRENT-CONT-COUE TO CONTINUOUS-OOTPU T-CODE . 


uai23 


MOVE 51 TO TEXT-LENGTH IN 0UTPUT-MESSA6E-AREA. 


00324 


SO TO CREATE-CONTINOOUS-OOTPOT. 


U0325 


TOTAL-PROC. 


U032b 


IF INPUT-TOTAL EOUAL TO MOVE CURRENT -TOT AL TO INPUT-TOTAL. 


00327 


MOVE SPACE TO VALIDITY-CHAR. 


U032B 


MOVE INPUT-TOTAL TO M-TOTAL. 


00329 


IF INPUT-TOTAL NOT EUOAL TO CURRENT-TOTAL 


U0330 


MOVE ••• TO VALIDITY-CHAR. 


U0331 


MOVE TOTAL-POS TO CURSOR-POS. 


U0332 


MOVE 22 TO TfcXT-LENGIH IN OOT PU T-MESSA6E-AREA . 


00333 


MOVE TO CURRENT-TOTAL. 


0033H 


SO TO CREATE-CONTINUOOS-OUTPUT. 


00335 


DEL-NOTICE. 


0033& 


IF DEL-NOTICE-STATUS EliUAL TO SUCCESSFUL-DEL-NOTICE 


U0337 


liO TO POSITION-FILE. 


U0338 


OUTPUT-ERROR. 


00339 


MOVE ERROR-POSITION TO POSITION-1. 


00340 


MOVE 'OUTPOT ERROR WHILE TRYING TO PRINT OROERIt * TO 


00311 


HEADER-1. 


U03H2 


MOVt CURRENT-ORDER-NO TO ORDtR-1. 


00313 


MOVE 57 TO TEXT-LENGTH IN OUTPU T-MESSASE-AREA . 


00311 


DESTINATION-DETERMINATION. 


D0315 


IF INII-TERM NOT EUUAL TO LOW-VALOES AND SPACES AND 


00316 


SOURCE -TERMINAL-IU 


00317 


60 TO SWITCH-ERROR-MSG. 


U031B 


MOVt 1 TO BREAK-MODE. 


00319 


IF ERROR-IND EOOAL TO LOW-VALUE GO TO EXTERNAL-TERMINATION. 


00350 


IF ERROR-INO EOUAL TO 1 GO TO NORMAL-TERMINATION. 


00351 


ABNORMAL-TERMINATION. 


00352 


MOVE 'S' TO TERMINATION-INDICATOR. 


00353 


CALL 'RETURN'. 


00351 


SWITCH-ERROR-MSG. 


00355 


MOVE INIT-TERM TO DEST INAT lON-TERMINAL-IU . 


00356 


CALL 'SEND* USING OUTPUT-MESS AGE-AREA . 


U0357 


IF STATUS-CODE NOT EUOAL TO 60 TO ABNORMAL-TERMINATION. 



Figure B-25. Sampie Action Program PRINT Performing Continuous Output (Part 5 of 6) 
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COBOL Action Programming Examples 



(358-361) 



(362-364) 




(365-371) 



(372-377) 



(378-386) 



(387-391) 



(392-396) 



BUILD 
MESSAGE-5 



ISSUE 
BREAK MODE 
MESSAGE-6 



ISSUE 
RESUME 

MODE 
MESSAGE 



BUILD 
MESSAGE-7 



BUILD 
MESSAGE-8 



OOibB CRtATE-NULL-MS6. 

UaSi>9 MOVt LOW-VALUES TO DLbTINATIUN-TtRMINAL-ID. 

UOibQ MOVt NEWLINE-A TO POSITION-<t. 

aOibl MOVE 8 TO TEXT-LENliTH IN 0UTPUT-MESSA6E-AREA. 

aOSbZ NORMAL-TERMINATION. 

OOSbi HOVE 'N- TO TERMINATiON-INU IC A TOR . 

UQibf CALL 'RETURN*. 

UUi65 ENU-OF-FILE. 

UO'Sbb HOVE 1 TO ERROR-INO. 

UOibl HOVE ERROR-POSITION TO POSITION-5. 

UQJ68 HOVE "PRINT COMPLETEU AT • TO MEADER-5. 

D0359 MOVE PRINT-OEST TO TERM-NAME. 

00i7U MOVE 31 TO TLXT-LEN6TH IN OUT PU I-ME SSA6E-AREA . 

U0371 60 TU DESTINATION-DETERMINATION. 

Uaj72 BREAK-TRANS. 

Uai73 MOVt I TO UREAK-MOUE. 

00371 HOVE 'aRLAK ENFORCED - RESUME REUUIRED TO CONTINUE PRINTINC 

D03/5 TO BREAK-OUTPUT. 

00376 MOVE 6i TO TEXT-LENbTH IN OUTPUT-MESSABE -AREA . 

00377 BO TO E X TE RNAL -TERHINA T ION . 

00378 RtSUME-TRANS. 

00379 IF BREAK-MODE EQUAL 10 BO TU RESUME-ERROR. 

00380 MOVE TO BREAK-MODE. 

U0381 IF A-ORDER-NO tOUAL TO LOW-VALUES OR SPACES 

U0382 bO TO POSITION-FILE. 

UU3B3 MOVt A-URDER-NO TO FILt-KEY-1. 

U038t MOVE TO FILE-KEY-2. 

00385 HOVE TO CURRENT-TOTAL. 

00388 GO TO POSITION-FILE. 
U0387 RESUME-ERROR. 

U03BB HOVE ERROR -POSI TION TO POSITlON-7. 

00389 MOVt 'RESUME INVALID - IGNORED' TO RESUME-tPROR-OUTPUT . 
U039U MOVE 32 TO TtXT-LEN6IH IN OUT PU T-MESSAbE-AREA . 

00391 GO TO NORMAL-TERMINATION. 

00392 ENU-TRANS. 

00393 MOVE ERROR-POSITION TO POSITION-8. 

U039H MOVE 'PRINT TRANSACTION ENDED' TO END-OUTPUT. 

U039i MOVE 31 TO TEXT-LENGTH IN OUT PUT -MESSAGE-AREA . 

00396 60 TO NORMAL-TERMINATION. 

00397 INPUT-ERROR. 

00398 MOVt 'INPUT IN ERROR - PRINT NOT BEGUN' 

"0399 TO INPUT-ERROR-OUTPUT. 

OO-tUU UEL-NOTICE-ERHOR. 

UDHOl MOVE 2 TO LRROH-IND. 

UD1U2 MOVt ERROR-POSITION TO POSITION-9. 

U0H03 MOVt 10 TO TEXT-LENGTH IN OUT PUT -MESSAGE-ARE A . 

UOtOI 60 TO DESTINATION-DETERMINATION. 

Oa<*05 FILE-ERROR. 

00106 MOVE 2 TO ERROR-IND. 

00107 MOVE ERROR-POSITION TO POSITION-ID. 

U0108 MOVE 'FILE ACCESS ERROR - TRANSACTION TERMINATED* 

"3109 TO FILE-ERROR-OUTPUT. 

00110 MOVE 50 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 

00111 GO TO DESTINATION-DETERMINATION. 



c 



(397-399) 



BUILD 
MESSAGE-9 



Figure B-25. Sample Action Program PRINT Performing Continuous Output (Part 6 of 6) 



(400-404) 



ISSUE 
MESSAGE-9 



(405-411) 



BUILD AND 

ISSUE 

MESSAGE-10 



V^' 



B-58 



UP-9207 Rev. 2 



COBOL Action Programming Examples 



O 



o 



After delivery notice of each message is received from IMS, PRINT uses delivery 
notice scheduling to determine whether output should continue or error processing 
should occur. If output continues successfully, PRINT terminates in external 
succession, naming itself as successor to create the next output message to be printed. 
When end-of-file is reached, PRINT terminates normally, with an output message to 
the operator that printing is completed. 

If the PRINT program receives an xinsuccessful delivery notice, it does not terminate 
immediately but first reports an output error to the terminal operator and allows him 
to control further output, terminating in external succession to await his response. He 
may respond by breaking off, resuming, or terminating the transaction normally. 

When it is first activated by action scheduHng, PRINT expects to process an input 
message in the following form: 

PRIMT filename order-number init-terminaltCOP] 

where: 

PRINT 

Is the transaction code that schedules the PRINT action program. 

filename 

Is the name of the data file to be accessed. In this example, the file is an 
indexed file; PRINT expects to process a file named ORDRFIL and validates 
the filename keyed in (line 268, Figure B-25). 

order-number 

Is an order number used as a key search argument in positioning the file for 

retrieval (lines 271 and 272). 

init-terminal 

Is the terminal-id of the originating terminal, used in the switching of output 

error messages to the operator (line 355). 



COP 



Is the 3-character code entered by the terminal operator to designate that 
output should be printed on the COP. Notice its use in line 302. 



The input message received by the PRINT program in this example was sent from 
another terminal via the BEGINl action program as output-f or-input queueing. The 
input message received by PRINT from TRMl contains the transaction code that 
initiates the PRINT transaction at TRM5. 

If the terminal operator at TRMl entered the sample message shown in B.5, the 
message received by the PRINT action program is: 

PRINT ORDFILE 5732468 TRMl COP 
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On initial activation, PRINT passes control to the BEGIN-TRANS routine, which 
initializes certain fields of the continuity data area and work area and validates the 
name of the file to be processed (lines 259-268). BEGIN-TRANS positions the file for 
sequential processing and, retrieving a record (hnes 269-275), processes it and the 
input message (lines 279-286). It forms a customer record (lines 287-300), a product 
record (lines 311-324), or a total record (lines 325-334) in the output message area; 
control then passes to the CREATE-CONTINUOUS-OUTPUT routine (hnes 301-306). 

Here, if the terminal operator did not key in COP to direct the output message to a 
communications output printer, the routine moves the hexadecimal value C3 to the 
AUX-FUNCTION byte of the AUXILIARY-DEVICE-ID field in the OMA header (line 
303). This causes the output message to be written as continuous output on the screen 
of the originating terminal. Otherwise, Une 304 moves the hexadecimal value F7 to 
this byte, to cause print-transparent continuous output on a communications output 
printer, and line 305 moves a 1 to the AUX-DEVICE-NO byte of the AUXILIARY- 
DEVICE-ID to specify the COP relative number as defined in the ICAM generation. 

Line 306 moves into the CONTINUOUS-OUTPUT-CODE field of the OMA header a 
4-character value (represented by the current order number). After an attempt is 
made to deliver the message as specified, this 4-character value identifies this output 
message when received in the 5-byte input message that IMS creates for the next 
activation of PRINT. 

After specifying external succession (line 308) and moving its own program name into 
the SUCCESSOR-ID field of the program information block (line 309), PRINT 
terminates to await reactivation by action scheduling. 

On receiving the 5-byte input message from IMS, the PRINT program is reactivated. 
PRINT examines the input message, DEL-NOTICE-CODE (first four bytes), to ensure 
that it is processing the expected input (line 348) and then proceeds to verify that the 
delivery attempt was successful. It does this at Hne 336 by comparing the fifth byte of 
the input message (DEL-NOTICE-STATUS) against the value 'A'. This value, which it 
has estabhshed for the constant SUCCESSFUL-DEL-NOTICE in a 77-level entry in 
the working-storage section (Une 10), is the translated value for a successful delivery 
notice status (hexadecimal 81) reported to IMS by ICAM. On successful dehvery, it 
resumes processing. If delivery was unsuccessful, PRINT does not attempt to 
determine the reason but sends an error message to the terminal operator. If an 
initiating terminal is specif ed in the input message, PRINT sends error messages to 
that terminal. 

PRINT terminates in external succession after it sends an output message to the 
operator informing him of unsuccessful delivery of the last continuous output message 
(Hne 349). It expects him to enter either the command RESUM (line 252) or the 
command END (line 250) and is prepared to process one of these as its next 
reactivation. If he enters the command END (line 396), the program terminates with 
normal termination. If he enters the command RESUM, the program allows him to 
continue printing from where he left off, or from an earher order number specified as 
an optional parameter of the RESUM command (line 135). 






c 
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PRINT voluntarily terminates abnormally, with a SNAP dump, when: 

• It receives an unexpected input message on activation (Kne 258) 

• The terminal operator attempts to access some file other than ORDRFIL (line 
268) 

• An vmsuccessful return was made to the STATUS-CODE field of the program 
information block after issuing the GET function to ORDRFIL (lines 280-283) 

• Any of its error or warning messages switched to the terminal operator were not 
successfully sent (line 357) 

PRINT sends a message to the terminal operator before terminating when the 
operator enters the wrong file name (line 397) or there is an error on the GET function 
(line 405). 

B.7. Sample COBOL Action Program Assigning Printer 
Files and Controlling Printer File Output (GRPIA) 

The GRPIA action program: 

• Reads a numeric field 

• Builds a record in the output message area 

• Prints output to print file JERRID by using PRINT and BRKPT function calls 

You begin by keying in the transaction code GRPIA followed by a 3-digit number. (See 
Figure B-26.) The GRPIA program uses this number as a key to read a record from 
the data file (DATA2) into the work area. It transfers the input record contents from 
the work area to the output message area. 



GRP1AAAAe02 



Figure B-26. Initiating the GRPIA Transaction 

GRPIA uses the PRINT call function to assign the print file JERRID. The BRKPT call 
function then prints the contents to the spooled print file. (See Figure B-27.) 



UP-9207 Rev. 2 B-61 



COBOL Action Programming Examples 



r. 



002 JAMES SMITH 
lii03MIKE SATES 
e04KAREN DAVIS 



Figure B-27. Output from GRPIA Action Program 

COBOL program GRPIA in Figure B-28 illustrates the use of PRINT and BRKPT 
fiinction calls. 





00001 


IDENTIFICATION DIVISION. 






00002 


PROGRAM 


-ID. GRPIA. 






00003 


ENVIRONMENT DIVISION. 






00004 


CONFIGURATION SECTION. 






00005 


SOURCE - 


COMPUTER. UNIVAC-0S3. 






00006 


OBJECT- 


COMPUTER. UN I VAC -053. 






00007 


DATA DIVISION. 






00008 


WORKING 


-STORAGE SECTION. 






00009 


77 


DATA2 PIC X(7) VALUE 'DATA2 '. | 




00010 


77 


POSITION-CODE PIC X VALUE 


■B'. 




00011 


77 


PRTNAME PIC X(7) VALUE 'JERRID '. 




00012 


01 


PRINT-LEN PIC 99 COMP VALUE 23. 




00013 


LINKAGE 


SECTION. 






00014 


01 


PIB 


. COPY PI 874. 




c 


00015 




02 


STATUS -CODE 


PIC 9(4) COMP-4. 


c 


00016 




02 


DETAILED-STATUS-CODE 


PIC 9(4) COMP-4. 


c 


00017 




02 


RECORD-TYPE REDEFINES DETAILED-STATUS-COOE. | 


c 


00018 






03 PREDICTED-RECORD-TYPE 


PIC X. 


c 


00019 






03 DELIVERED-RECORD-TYPE 


PIC X. 


c 


00020 




02 


SUCCESSOR- ID 


PIC X(6). 


c 


00021 




02 


TERMINATION- INDICATOR 


PIC X. 


c 


00022 




02 


LOCK-ROLLBACK- INDICATOR 


PIC X. 


c 


00023 




02 


TRANSACTION- ID. 




c 


00024 






03 YEAR 


PIC 9(4) COMP-4. 


c 


00025 






03 TODAY 


PIC 9(4) COMP-4. 


c 


00026 






03 HR-MIN-SEC 


PIC 9(9) COMP-4. 


c 


00027 




02 


DATA-DEF-REC-NAME 


PIC X(7). 


c 


00028 




02 


DEFINED-FILE-NAME 


PIC X(7). 


c 


00029 




02 


STANDARD-MSG-LINE-LENGTH 


PIC 9(4) COHP-4. 


c 


00030 




02 


STANDARD-MSG-NUMBER- LINES PIC 9(4) COMP-4. | 


c 


00031 




02 


WORK- AREA- LENGTH 


PIC 9(4) COMP-4. 


c 


00032 




02 


CONTINUITY-DATA-INPUT-LENGTH PIC 9(4) COMP-4. 


c 


00033 




02 


CONTINUITY-DATA-OUTPUT-LENGTH PIC 9(4) COMP-4. 


c 


00034 




02 


WORK-AREA- INC 


PIC 9(4) COMP-4. 


c 


00035 




02 


CONTINUITY-DATA-AREA- INC 


PIC 9(4) COMP-4. 


c 


00036 




02 


SUCCESS-UNIT- ID. 




c 


00037 






03 TRANSACTION-DATE. 




c 


00038 






04 YEAR 


PIC 99. 


c 


00039 






04 MONTH 


PIC 99. 


c 


00040 






04 TODAY 


PIC 99. 


c 


00041 






03 TIME-OF-DAY. 




c 


00042 






04 HOUR 


PIC 99. 


c 


00043 






04 MINUTE 


PIC 99. 


c 


00044 






04 SECOND 


PIC 99. 



Figure B-28. GRPIA Action Program (Part 1 of 3) 






B-62 



UP-9207 Rev. 2 



COBOL Action Programming Examples 



o 






c 


00045 




03 FILLER 


PIC XXX. 


c 


00046 


02 


SOURCE -TERMINAL -CHARS. 




c 


00047 




03 SOURCE -TERMINAL -TYPE 


PIC X. 


c 


00048 




03 SOURCE-TERH-HSG-LINE-LENGTH PIC 9(4) C0MP-4.| 


c 


00049 




03 SOURCE- TERM -MSG- NUMBER 


-LINES PIC 9(4) COMP-4. 


c 


00050 




03 SOURCE -TERM -ATTRIBUTES 


PIC X. 


c 


00051 


02 


DDP-MODE 


PIC X. 


c 


00052 


01 IMA 


. COPY IHA74. 




c 


00053 


02 


SOURCE-TERMINAL- ID 


PIC X(4). 


c 


00054 


02 


DATE-TIME-STAMP. 




c 


00055 




03 YEAR 


PIC 9(4) COMP-4. 


c 


00056 




03 TODAY 


PIC 9(4) COMP-4. 


c 


00057 




03 HR-MIN-SEC 


PIC 9(9) COMP-4. 


c 


00058 


02 


TEXT -LENGTH 


PIC 9(4) COMP-4. 


c 


00059 


02 


AUXILIARY-DEV-ID. 




c 


00060 




03 FILLER 


PIC X. 


c 


00061 




03 AUX-DEV-NO 


PIC X. 


c 


00062 


02 


FILLER PIC X(11). 




c 


00063 


01 WA. 






c 


00064 


02 


I-REC. 




c 


00065 




03 CODE- 1 PIC 999. 




c 


00066 




03 NAME- I PIC X(20). 




c 


00067 




03 ADDR-I PIC X(20). 




c 


00068 




03 FILLER PIC X(37). 




c 


00069 


01 OMA 


. COPY OMA74. 




c 


00070 


02 


DESTINATION-TERMINAL- ID 


PIC X(4). 


c 


00071 


02 


SFS-OPTIONS. 




c 


00072 




03 SFS-TYPE 


PIC X. 


c 


00073 




03 SFS-LOCATION 


PIC X. 


c 


00074 


02 


FILLER 


PIC X(2). 


c 


00075 


02 


CONT I NUOUS - OUTPUT - CODE 


PIC X(4). 


c 


00076 


02 


TEXT -LENGTH 


PIC 9(4) COMP-4. 


c 


00077 


02 


AUXILIARY-DEVICE- ID. 




c 


00078 




03 AUX- FUNCTION 


PIC X. 


c 


00079 




03 AUX -DEVICE -NO 


PIC X. 


c 


00080 


02 


CODE-1 PIC 999. 




c 


00081 


02 


NAME-1 PIC X(20). 




c 


00082 


02 


CODE-2 PIC 999. 




c 


00083 


02 


NAME-2 PIC X(20). 




c 


00084 


02 


CODE-3 PIC 999. 




c 


00085 


02 


NAME-3 PIC X<20). 




c 


00086 


PROCEDURE DIVISION USING PIB IMA 


WA OMA. 


c 


00087 


S-BEGIN 






c 


00088 


MOVE 69 TO TEXT -LENGTH OF OMA 


, 


c 


00089 


CALL 'SETL' USING DATA2 POSIT ION -CODE. | 


c 


00090 


CALL 'GET' USING DATA2 I-REC. 




c 


00091 


HOVE CODE- I TO CODE-1. 




c 


00092 


MOVE NAME- I TO NAME-1. 




c 


00093 


CALL 'PRINT' USING PRTNAME CODE-1 PRINT-LEN. | 


c 


00094 


CALL 'GET' USING DATA2 I-REC. 





Figure B-28. GRPIA Action Program (Part 2 of 3) 
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c 


00095 


HOVE CODE -I TO CODE- 2. 


c 


00096 


HOVE NAHE-I TO NAHE-2. 


c 


00097 


CALL 'PRINT' USING PRTNAHE CODE-2 PRINT-LEN. 


c 


00098 


CALL 'GET' USING DATA2 I-REC. 


c 


00099 


MOVE CODE- I TO CODE -3. 


c 


00100 


MOVE NAHE-I TO NAME-3. 


c 


00101 


CALL 'ESETL' USING DATA2. 


c 


00102 


CALL 'PRINT' USING PRTNAHE CODE-3 PRINT-LEN. 


c 


00103 


CALL 'BRKPT' USING PRTNAHE. 


c 


00104 


CALL 'RETURN'. 



Figure B-28. GRPIA Action Program {Part 3 of 3) 
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B.8. Sample COBOL Program Setting Up Transaction 
Buffers 



1.000C 


IDENTIFICATION DIVISION. 








2.0000 












3.00 00 












4. 00 DO 


PROGRAM-ID. TOES. 








5.00 00 


AUTHOR. B WHITE. 








6.0000 


OATE-MRITTEN. CcT 21, 1986. 








7.0000 












8.00 00 












9.0000 


ENVIRONMENT DIVISION. 








10.00 00 












11.00 00 


CONFIGURATION SECTION. 








12.000C 












13.00 00 


SOURCE-COMPUTER. UNIVAC-0S3. 








14.0000 


OBJECT-COMPUTER. UNIVAC-0S3. 








15.00 00 












16.0000 












17.0000 


DATA DIVISION. 








Ifc.OOOC 












19. 00 QO 


UORKING-STORAGE SECTION. 








20.0000 












21.0000 


LINKAGE SECTION. 








22.00QC 












23.00 00 


01 


PIB. 








24.00 00 




COPY PIB74. 








25.0000 












26.0000 


01 


IMA. 








27.00CC 




COPT IMA74. 








28.000C 




02 TRANS-CODE 


PIC XC4). 






29.0000 




02 FILLER 


PIC X. 






30.0000 




02 ACCT-NO-IN 


PIC 9(5). 






31.00 00 












32.0000 


01 


WORK-AREA. 








33. OOOC 












34. 0000 




02 SCREEN-NAME 


PIC X(8). 






35.0000 












36.0000 




02 VARIABLE-DATA-1. 








37.0000 




04 ACCT-NOI 


PIC 9(5). 






38.0000 












39.0000 




02 VARIABLE-DATA-2. 








40.0000 




04 ACCT-N02 


PIC 9(5). 






41. OOOC 




04 ERRMSG 


PIC X(6C). 






42.00 00 












43.0000 




02 VARI-DATA-SIZE 


PIC 9(4) COMP-4. 






44.0000 












45.0000 




02 VARI-DATA-STATUS. 








46.00 00 




04 STATUS -BYTE-1 


PIC 9. 






47.0000 




04 STATUS-BYTE-2 


PIC 9. 






48.00 00 












49.00 00 




02 ACCT-NO-VERIFV 


PIC 9(5). 






50.00 00 




88 VALID-ACCT-NO 


VALUES 10010 10020 


10030 


10040 


51.00 00 






10050 10060 


10070 


10080 


52.00 00 






10090 1010C 


10110 


1012 


53.00 00 






10130 10140 


10150 


1016C 


54. OOOC 






10170 10180 


10190 


1020C 


55.00 00 






10210 10220 


10230 


10240 


56.00 00 






10250. 






57.00 00 












58.0000 




af--^-w«f 


m(^mvr*m^immK4 


NUMB defined as 


59.00 00 










COMP-4 SYNC 


60.00 00 


01 


OMA. 








61. OOOC 




COPT 0MA74. 








62.0000 




02 OMA-TEXT 


PIC X(3020). 






63.0000 












64.00 00 


01 


TAANS-BVFFJEIi-AREA* 






01 record linkage 


65.00 00 




DZ ACCT-NP-BUFF 


PIC 9(5). 




user define your 


66.00 00 










transaction buffer area 



Figure B-29. Sample COBOL Programs Setting Up Transaction Buffers {Part 1 of 5) 
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6e. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

8 0. 

81. 

Si. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

9D. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
1D0. 
101. 
102. 
103. 
104. 



00 QC 

00 oc 
00 00 
00 00 
0000 
00 00 
00 00 
OOQC 
00 00 
0000 
GOOO 

oooc 

00 00 

00 00 
0000 

oooc 

00 00 

oooc 

0000 
0000 
00 00 
00 00 
00 00 
0000 

oooc 

00 00 

oooc 

0000 

oooc 

00 00 
00 00 
00 00 
0000 
00 00 

oooc 

00 00 
00 00 
0000 



PROCEDURE DIVISION USING PIB IHA WORK-AREA OHA , 



MAIN-SECTION. 

►•0^= Ti?0 jn TEJ'T-LFNGTH OF 0"C. 

PERFORR GEl-TRAkS-bUFFER. 

HOVE ACtT-IUC-m TC ACCT-NO-VERJFV ACCT-tid ACCT-HOZ 



ACCT-NO-BOFF. 

IF NOT VALID-ACCT-NO 

PERFORM ERROR-ROUTINE. 
MOVE 5 TO VARI-DATA-SIZE. 
MOVE '1MSSCRN1' TO SCREEN-NAME. 
CALL 'BUILD' USING OMA SCREEN-NAME VAR I ABLE -D AT A-1 

VARI-DATA-SIZE VAR I-O ATA -STATUS . 
IF STATUS-CCDE ^0T = OCOO 

HOVE 'S' TO TERMINATION-INDICATOR 

CALL 'RETURN'. 

MOVE 'TObSUC TO SUCCFSSOP-ID externally succeed 

MOVE 'E' TO TER^l»ATIOh-lN»ICATOR 
CALL 'RETURN'. 



move data to transaction 
buffer 



to TOBSU 



fiEI-TRANS-BUFFEH. 

MOVE 1 TO NIMB. 

CALL '6ETKEM- USING TRANS -BliF FER -AREA NUMB, want 1 4096-byte block 

IF STATUS-CCDE NOT = COCO user-deflned transaction buffer area 

HOVe 'S' To TERMINATION-INDICATOR 
CALL 'HETOllH'. 



ERROR-ROUTINE. 

MOVE 'INVALID ACCT NO, PLEASE REPEAT TRANSACTIO*' 

MOVE 'IMSSCRN2' TO SCREEN-NAME. 

HOVE 65 TO VARI-DATA-SIZE. 

MOVE 'N' TO TERPIKATION-INDICATOR. 

CALL 'BUILD' USING OMA SCREEN-NAME VARl ABLE-DAT A-2 

VARI-DATA-SIZE VAR I-D ATA-STATUS . 
IF STATUS-CODE NOT = 0000 

MOVE 'S' TO TERMINATION-INDICATOR. 
CALL 'RETURN'. 



TC ERFMSe. 



Figure B-29. Sample COBOL Programs Setting Up Transaction Buffers (Part 2 of 5) 
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1.Q00C 

2.00 00 

3.00 00 

4.0000 

5. 00 00 

6.00 00 

7.00 00 

8. OOOC 

9.OOO0 

10.0000 

11. OOOC 

12.00 00 

13.0000 

14.00 00 

15.00 00 

16.0000 

17.00 00 

18. OOOO 

19.00 00 

20.00 00 

21. OOOC 

22.0000 

23.0000 

24. OOOC 

25. OOOC 
26. OOOC 
27.0000 
2b. 00 00 
29.00 00 
30. OOOC 
31. OOOC 
52.0000 
33.0000 
34.00 00 
35. OOOC 
36.0000 
37. OOOC 
38.0000 
39. OOOC 
40. OOOC 
41. OOOC 
42.0000 
43. OOOC 
44. OOOC 
45.0000 
46.0000 
47.0000 
48.0000 
49.00 00 
5 0. OOOC 
51. OOOC 
52. OOOO 
53.0000 
54.0000 
55.0000 
56.00 00 
57.0000 
58.00 00 
59.0000 
60.00 00 
61.0000 
62.00 00 



IDENTIFICATION DIVISION. 

PROGRAM-ID. TOBSU. 
AUTHOR. B WHITE. 
DATE-WRITTEN. CCT 21, 1986. 



ENVIRONMENT DIVISION. 

CONFIGURATION SECTICN. 

SOURCE -COMPUTER. UNIVAC-0S3. 
OBJECT-COMPUTER. UNIVAC-0S3. 

DATA DIVISION. 
WORKING-STORAGE SECTION. 
77 FACCT-FILE 
77 FTRAN-FILE 
LINKAGE SECTION. 



PIC X{7) VALUE 'FACCT' 
PIC XC7) VALUE 'FTRAN' 



01 PIB 


, 










COPT P1B74. 








01 IMA 


. 










COPT 1MA74. 








02 


TYPE-IN 


PIC 


X. 




02 


AMT 


-IN 


PIC 


9(7)V59. 




01 WORK-AREA. 








02 


FACCT-RECORD. 










04 


F-ACCTNO 


PIC 


9(5). 






04 


F-BALANCE 


PIC 


9 (7)V99. 






04 


F-NAME 


PIC 


X{2Q). 






04 


F-ACDRESS 


PIC 


X(40). 






04 


FILLER 


PIC 


X(«). 




02 


FTRAN-RECORD. 










03 


FTRAN-KEY. 












04 T-ACCT-NO 


PIC 


9(5>. 








04 T-DATF 


PIC 


9(6). 








04 T-TIME 


PIC 


9(6). 






03 


T-AFOUNT 


PIC 


9(7)V99. 






03 


FILLER 


PIC 


X(54). 




02 


SCREEN-WAME 


PIC 


X(8). 




02 


VARIABLE-DATAI. 










04 


ACCT-N01 


PIC 


9(5). 






04 


ERRPSG 


PIC 


X(60). 




02 


VARIABLE-DATA2. 










04 


ACCT-N02 


PIC 


9(5). 






04 


PREV -BALANCE 


PIC 


Z,2ZZ,ZZ2 


.99 




04 


TRANS-TYPE-OUT 


PIC 


X(8). 






04 


AHT-OUT 


PIC 


Z.ZZZ.ZZZ 


.99 




04 


CURH-BALANCE 


PIC 


2 .ZZZ.ZZZ 


.99 



Figure B-29. Sample COBOL Programs Setting Up Transaction Buffers (Part 3 of 5) 
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c 



63.0000 




02 


VARI-DATA-SIZE 


PIC 


9<4) COHP-4. 




64.00CO 














65. GO 00 




02 


VARI-OATA-STATUS. 








66.0000 






04 STATUS-BYTE-1 


PIC 


9. 




67. ODOO 






04 STATUS-BTTE-2 


PIC 


. 




6&.00 00 














69. OOQC 




02 


TYPE-VERIFY 


PIC 


X . 




70.00 00 






88 VALID-TYPE 




VALUES 'D' 




71.0000 










'«'. 




72.000C 














73.000C 




nz 


TRANS-UbrF-INTIPRObATE . 




record in linkage 


74.0000 






0« UDRP-1 


PIC 


9(9) COnP-4 SYNC. 


section for 


75.0000 






0* U0RC-? 


PIC 


9(9) COnP-4 SYNC. 


Interrogation 


76.0000 
77.0000 






04 UOKD--* 


PIC 


9(9) C0HF-4 SYNC. 


be PIC 9(9) COMP-4 SYNC 


78.00 00 




m^>^mm 


PIC 


9(9) COnP-4 SYNC. 




79.00 00 














80.00 00 














81.00 00 


01 


OKA 










82.0000 




COPT 0MA74. 








83.0000 














84. OOQC 


01 


TRA«S-&l!FFEF-AREA. 






01 record in linkage 


85.0000 




02 


ACCT-NO-BUF? 


PIC 


9(5). 


user-defined 


86.000C 














87.000C 


PROCEDURE DIVISION USING PIP 


IMA WORK-AREA OKA. 




86.0000 














89.0000 


MAIN-ROUTINE. 








90.00 00 




HOVF 7020 TC TEXT-LENGTH 


OF Of! 


U 




91. OOQC 




PEfiFORN l«TERROGATt-F0R-E 


iUFFER. 







92.00CO 

93. 00 OC 

94.00 00 

95.000C 

96.00 00 

97.00 00 

98.00 00 

99.00 00 

100.00 00 

101.00 00 

102.00 00 

103.00 00 

104.00 00 

105. OOCC 

106.00 00 

107.0000 

108.00 00 

109. OOCC 

110. OOOC 
111.0000 
112.00 00 
113.00 00 
114.00 00 
115.00 00 
116.00 00 
117.0000 
118.0000 
119. OOOC 
12 0. 00 00 
121. OOOC 
122.00 00 
123. OOOC 
124.0000 



access buffer information 



PFRFORB 6ET-TftAKS-B0FFER. 

fOVL ACCT-NC-BUfF TO ACCT-K01 AtCT-N02. 

HOVE TYPE-IK TO TYPE-VLRIFY. 

IF NOT VALID-TYPE 

MOVE 'INVALID TYPE, PLEASE REPEAT TRANSACTION' TO ERRMSG 

PERFORM ERRCR-ROUTINE . 
PERFORM READ-FACCT-RECORD. 
MOVE F-BALANCE TO PREV-BALANCE . 
HOVE AMT-IN TO AMT-OUT. 
IF TYPE-IN = 'D' 

PERFORM DEPOSIT-ROUTINE 
ELSE 

PERFORM UITHDRAW-ROOTINE . 
PERFORM WRITE-FACCT-RECORD. 
PERFORM WRITE-TRAKSACTION-RECORD. 
PERFORM BUIID-OUTFUT-SCREEN. 
PFRFORH RFLFASE-TRANS-JUFFLR. 
CAIL 'RF TURh'. 



INTERROeATE-FOR-BUFFER. 
MOVF 3 TO NLR>. 
CALL 'GET"ER' U!]»b TRANS-uUF F-I NTERROGATE hUHB . 

IF uoRD-1 = ocor 

HOVF 'S' TO TFRMINATION-IhDICATOR 
CALL 'RITIRN'. 

bt T-TRANS-BUFFER. 

HOVE C TO NI'HP. 

CALL 'GETHt'' USINb TRANS -HUF FE R -AREA NUHP . 

IF STATLS-CCDF kOT = CCCO 

MOVF 'S' TO 1ER'<INATION-IIIDICAT0R 
CALL 'RFTURN'. 



indicates interrogation 
02 record in linkage 
word-1 should contain 
an address 



indicates acquire 
01 record in linkage 



Figure B-29. Sample COBOL Programs Setting Up Transaction Buffers (Part 4 of 5) 
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125 

126 

127 

128. 

129 

130 

131 

132. 

133. 

134. 

135. 

136. 

137. 

138. 

139. 

140. 

141. 

142, 

143. 

144. 

145. 

146. 

147. 

148. 

149. 

150. 

151. 

152. 

153. 

154. 

155. 

156. 

157. 

158. 

159. 

160. 

161. 

162. 

163. 

164. 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 

179. 

180. 

181. 

182. 

183. 



00 00 
00 00 
00 00 
00 00 
00 oc 
00 00 
.00 00 

.oooc 

.0000 
.00 00 
.00 00 

.oocc 

00 00 

oooc 

00 00 

oooc 
oooc 
oooc 

00 00 

.oooc 

0000 
00 00 
00 00 
0000 
00 00 

oooc 

0000 

oooc 
oooc 

0000 

oooc 
oooc 
oooc 

0000 

oooc 

00 00 
00 oo 

0000 

aooo 

00 00 
0000 
00 00 
0000 

00 oo 

0000 

oooo 
oooc 

0000 
00 00 

oooo 
oooc 
oooo 
oooc 
oooo 
oooo 
oooc 
oooc 
oooo 
oooc 



REAO-FACCT-RECORD. 

CALL 'GETUP' USINC FaCCT-FILE FACCT-RECORD ACCT-NO-B OFF , 
IF STATUS-CODE NOT = OOOO 

WOVE 'S' TO TERRINATION-INDICATOR 
CALL 'RETURN'. 

DEPOSIT-ROUTINE. 

ADD AHT-IN TO F-BALANCE. 

BOVE 'DEPOSIT ' TO TRANS-TYPE -OUT . 

«ITH0RAW-ROOTINE. 

IF AMT-IN IS GREATER THAN F-BALANCE 

HOVE 'INSUFFICIENT FUNDS - TRANSACTION IS CANCELLED' 

TO ERRHSG 
PERFORW ERROR-ROUTINE. 
SUBTRACT AHT-IN FROf F-EALANCE. 
HOVE 'WITHDRAW' TO TRANS-TYPE-OUT . 

MR ITE-TRANS ACT ION-RECORD. 

HOVE ACCT-NO-BUFF TO T-ACCT-NO. 

HOVE TRANSACTION-DATE TO T-DATE. 

HOVE TIWE-0F-DA1 TO T-TIHE . 

MOVE AHT-IN TO T-AMOUNT. 

CALL 'PUT' USIN6 FTRAN-FILE FTRAN-RECORD. 

IF STATUS-CODE NOT = OOOO 

HOVE 'S' TO TERHINATION-INDICATOR 

CALL 'RETURN'. 

BUILD-OUTPUT-SCREEN. 

HOVE F-BALANCE TO CURR-PALANCE . 

HOVE 'IHSSCRN3' TC SCREEN-NAHE. 

MOVE 'N' TO TERFHATIOK-INDICATOR. 

HOVE 50 TO VARI-DATA-SlZE. 

CALL 'BUILD' USING OHA SCREEN-NAHE VARI ABLE -DAT A2 

VARI-DATA-SIZE VARI-DATA -STA TIS . 
IF STATUS-CCDE KOT = OCOO 

HOVE 'S' TO TERHINATION-INDICATOR. 

WRITE- FACCT-RECORD. 

CALL 'PUT' USINE FACCT-FILE FACCT-RECORD. 
IF STATUS-CODE NOT = OCOO 

HOVE 'S' TO TERMINATION-INDICATOR 
CALL 'RETURN'. 

ERROR-ROUTINE. 

HOVE 'IMSSCRN2' TC SCREEN-NAHE. 

HOVE 65 TO VARI-DATA-SIZE. 

HOVE 'N' TO TERmNATION-INDICATOR. 

CALL 'BUILD' USING OHA SCREEN-NAHE VARIABLE -DATA1 

VARI-DATA-SIZE VAR I-D ATA-STATIS . 
IF STATUS-CODE NOT = OOOO 

HOVE 'S' TO TERHINATION-INDICATOR. 
CALL 'RETURN'. 



RFLFASE-TFANS-BLFFER. 

CALL 'RELHEM' USING TR ANS-i3UF FLR- ARE A. 
IF STATUS-CCDF NOT = CCCU 

HOVE '&' TO TFRKINATION-IhDICATOR 
CALL 'RETURk'. 



release 
transaction 
buffer when 
finished 



c 



Figure B-29. Sample COBOL Programs Setting Up Transaction Buffers (Part 5 of 5) 
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Appendix C 

Basic Assembly Language (BAL) Action 

Programming Examples 

C.l. Description 

Appendix C contains compiler listings of three action programs. These examples 
illustrate complete action program coding for simple and dialog transactions including 
the use of delayed internal succession. In addition, an IMS configuration supplies the 
parameters needed to run these action programs. 

The ACTS action program processes a simple inquiry transaction to retrieve the 
capital city name of the state entered at a terminal. The program terminates normally 
by default. 

The SUPPLY action program, a more complex application, can terminate normally by 
default or abnormally by moving an 'S' to the TERMINATION-INDICATOR after 
determining that an S was entered as input. SUPPLY processes two successive simple 
transactions. 

The APCHKS action program inserts or changes records entered at the terminal and 
uses delayed internal succession to call the APITMS action program. The APITMS 
action program uses delayed internal succession for error processing to return to the 
APCHKS action program for changes or corrections to records. 
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C.2. Sample BAL Action Program Performing a Simple 
Transaction (ACTS) 

Action program, ACTS (Figure C-2), processes a simple transaction. After receiving a 
transaction code of 'C and the state name in its input message area (Figure C-1, line 
1), ACTS issues the ZG#CALL GET macroinstruction to retrieve the capital name 
from the STATE file (Figure C-2, line 31). 



Line 1 
Line 2 



C ALASKA 
CAPITAL: JUNEAU 



Figure C-1. Terminal Entry and Output IVIessage for ACT3 Simple Inquiry 
Transaction 

Here, ACTS uses the state name entered at the terminal as a key to retrieve that state 
record from the STATE file. 

If IMS returns a successful status code of 0, ACTS then builds the output message 
(Figure C-2, lines S2 and 36-44) by setting the 4-byte DICE sequence (Hne 36) and 
moving the MSGrCONl constant (line 40) and state capital name (line 76) into the 
output message area (line 4S). Finally, after terminating normally by default (line 58), 
ACTS sends the message to the terminal. See Figure C-1, line 2. 

If there is an I/O error (a status code other than or 1 in this action program) after 
ACTS issues the ZG#CALL GET macroinstruction, ACTS moves MSGC0N3 to the 
output area (line 55), and sends the message 'I/O ERROR' to the terminal on normal 
termination (line 63). 

If IMS returns a status code of 1 (line 50), ACTS moves MSGC0N2 to the output 
message area and terminates normally, sending the error message 'INVALID STATE 
NAME' to the terminal (line 52). 

Notice that because N is the default value for the TERMINATION-INDICATOR field 
(ZA#PSIND) in the program information block, it is imnecessary to move the value 'W 
to ZA#PSIND to terminate this transaction normally. 

Because a specific value is not moved to the DESTINATION-TERMINAL-ID field 
(ZA#ODTID) of the output message area, the output message is sent to the source 
terminal. Also, because ACTS doesn't move a specific length to the text-length field 
(ZA#OTL) in the output message area, the text length of the output message is taken 
from the value configured on the OUTSIZE parameter for this action. 






\»_^ 
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c 



LINC 



SOURCE STA.IEMCNT 



OS/3 ASM 



(1-3) 



(4-9) 



(11-30) 



(31-32) 



(34, 
36-43) 



(44) 



(46-57) 



(59-64) 



(66-81) 



START ACT3 

PROGRAM AND 

SUPPRESS 

MACRO 
EXPANSION 



ALLOCATE 

REGISTERS 

FOR INTERFACE 

AREAS 



INITIALIZE 
REGISTERS 
FOR ACT3 
PROGRAM 



READ RECORD 
FROM -STATE- 
FILE 



BUILD 

SUCCESSFUL 

MESSAGE AND 

BRANCH TO 

ERRORS 



T 



TERMINATE 
NORMALLY 




DEFINE 

CONTENTS OF 

MESSAGES 



DEFINE 

ACTIVATION 

RECORD AND 

INPUT AND OUTPUT 

MESSAGE TEXT 

LAYOUT 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 



PRINT NOGEN 

ACI3 START 

» ALLOCATE REGISTERS TO COyER: 

USING ■»,2 

USING ZA»DP1B,3 

USING ZAKIHh.l 

USING WOOK.S 

USING ZA(fOMh,6 

« INITIALIZE 



JVC HON PROGRAM CtlTRr POIHT 

THIS ACTION PROGRAM 

THE PROGRAM IHfORMATION BLOCK 

THE INPUT MESSAGE AREA 

THE WOSK AREA 

THE OUTPUT MESSAGE AREA 



STM 11,12,121131 



LR 



LM 



2,15 



3,6.0 (II 



LA 


10,SAUEARLA 


ST 


10, 8( ,131 


ST 


13, tl ,10) 



SAWE ACTION SCHCDULIMG HEGISTEaS 
RDi CONTAINS SAVE AREA ADDRESS WHEN 
CONTROL IS RECCIVEJJ BY 
ACTION PROGRAM. 

ESTABLISH ADDPESSABILIir FOP ACTION 
PROGRAM. RFS CONTAINS EUTRY POINT 
ADCRESS UHEM COMTROL IS RECEIVED 
BY ACTIOn PROGRAM. 
ESTABLISH ADDPESSABILITY FOR 
■ACTIVATION RECORD. RIS COfiTAIMS 
« PARAMETER LIST ADDi?ESS MHEN CONTROL 

» IS RECCItfEO BY 

« ACTION PROGRAM.. 

6EX ADDRESS OF ACT3 SAVE AREA 
SET FORMARD POlriTER FROM ACTION 
SCHEDULING SAVE IREA 
SET BACKWARD POINTEP TO ACTION 
SCHEDULING SAVE AREA 

MAKE ACT 3 SflV£ AREA THE CURRENT 
SAVE AREA 
STATE RECORD FROM FILE USING STATE NAME KEY IM INPt? KESSAGE 
ZGOCALL GET ,ISTATE,fiECORD,S^KEY J ISSUE CALL TO IMS 

CLI ZA»PSC»l,a TEST STATUS CODE RETURNED IN PROGRAM 

* INFORMATION BLOCK £Y IMS 
SNE ERROR NON-ZERO MEANS ERROR 

* BUILD OUTPUT MESSAGE 

"VC 0UTTE)(TI11,NEliLINE PUT DEVICE INOERENCENT CONTROL 

* CHARACTERS INTO MESSAGE TO CLEAR 

* TO END OF LINE AND POSITION TO 
4 BECINNIMG OF N£?:T L2NE 

MVC OUTTEXT-ki IL•MSGC0N1I,^^S3C0NI PUT .TEXT CONSTANT INTO 
» MESSAGE 

* PUT CAPITAL NAME INTO M£SSA6E 

(1VC OUTTE )|T*<4*L'M3GC0N1IL 'SCAPITAL I .S'CAPITAL 
B TERM 

ERROR 



LR 



13,10 



iET 



« PROCES 
ERROR 



MVC OUTTEXTltl,NEl.LINL 



CLI ZA«PSC»1,1 
BNE lOERRCR 

ONE MEANS 
MVC OaTTLXT*1 JL'MSGC0N2),C.S&C0N2 

3 TERM 

MVC OUTTE f1*t IL'MS5C0N31 ,MSGCi)N3 



CLEAR TO END OF LIME AND 
POSITION TO BEGINNING 
OF NEXT LltlF 
TEST STATES CODE 

INVALID KEY 

PUT'INVALID STATE NAME" 
INTO MESSAGE 



lOERROH MVC OUTTE xT+IIL'MSGCONSl ,MSGCi)N3 PUT 'lO ERROR* INTO 

* MESSAGE 

* TERMINATE EXECUTION OF ACTION PRDGRAM BY RETURN CALL TO IMS. 
TERM 26SCALL RETURN 

» CO.'-ISTANTS 

DC CLT'STATE' ISAM FILE NAME 

DC C'CAPIIAL* 

DC C'INVALIO STATE NAME' 

DC C*!/0 ERROR* 



STATE 

MS6C0N1 

MSGCONZ 

MS6C0N3 

NEmLINE 



ZOKPOSC U,0 



* ACTIVATION RECORD 
ZMIICPiB 
ZMUDIMH 



ICODE 

SNKEY 

UORK 

RECORD 

SNAML 

SPOP 

^CAPITAL 

jAVEAREA 

PLISI 

OUTTLXT 



DS 

OS 

OS 

OSECT 

EOU 

OS 

DS 

DS 

r;s 

DS 



X 
X 
XL1 



XLIU 

XL3 

XL25 

18A 

lA 

ZHSDOMH 

DS XL12 

END 



ICAM PROCEDURE TO GENERATE DICE SEQUENCE 
FOR NEH LINE CONTROL UITH CLEAR 

LEFINITICN 



TRANSACTION CODE 

SPACE 
STATE NAME KEY 
WORK AREA 

STATE NAME 

STATE POPULATION 

STATi CAPITAL 

REGISTER SAV£ AREA 

PARAMETER LIST REFERENCE BY ZGI1CALL MACRO 

OMA lONTROL hEADER 

OU'TPLT MESSAGE TEXT AREA 



Figure C-2. Sample BAL Action Program ACT3 Processing a Simple Transaction 
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C.3. Sample BAL Action Program Processing 
Successive Transactions (SUPPLY) 

The SUPPLY action program (Figure C-7) processes successive simple transactions 
that display a screen format for the terminal operator to enter supply charges, verify 
the data entered, create or change a record, and display results. 

When the terminal operator enters the transaction code SUPLY (Figure C-3), the 
SUPPLY action program returns the screen format (Figure C-4). The operator enters 
a TYPE code of I or G indicating the type of changes made, a branch number for the 
branch company being charged, and the amount (SUPPLIES) charged for supplies 
(Figure C-5). 



SUPLY 



Figure C-3. Initiating the SUPLY Transaction 



SUPLY TYPEC ] 

BRANCH SUPPLIES COPY PAPER 
[ 3 E ] C ] < > 



o 



Figure C-4. SUPPLY Action Program Screen Format Return 



SUPLY TYPEC I] 
BRANCH SUPPLIES COPY PAPER 
[015] [1250 ] [ ] < > 



Figure C-5, Reinitiating tlie SUPLY Transaction witli Input Data 






C4 
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Next, he places the cursor and presses the transmit key. This reinitiates the SUPLY 
transaction, and the SUPPLY action program is scheduled again to verify the data 
and create the record. When the record is successfully changed or created, SUPPLY 
returns the name of the branch company and the tj^e charges made to it (Figure C-6). 



SUPLY TYPE [I] 






BRANCH SUPPLIES 




COPY PAPER 


[ ] [ ] 


[ 


] < > 


ANNISTON 







Figure C-6. Output from Second SUPLY Transaction 



c 
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LINE 



SOURCE STATEMLNT 



OS/3 ASH 



(2-131 



(14-30) 



(31-47) 



(52-64) 



(65-74) 







2 SUPPLY 


START 


1 


START ■SUPPLY- 




3 «**««•* 


.4..4..4.4..,.44.4,44, 4 4 4 .44444,444| 


PROGRAM AND 

ALLOW MACRO 

EXPANSION 




•i * 

5 * 

6 • 

7 * 

8 * 




AUTHOR : PAM oUIt 4 
DATE : a5/05/7b 4 
SITE : GAY L TAYLOR, INC 4 
FUNCTION : THIS PROGRAM WILL RE USED TO ENTER SUPPLY 4 














9 • 




CHARGES AND VERIFY IHE INFORMAIION. 4 






10 • 




4»4»» CHANGE LOG 4»4»4 4 






1 1 »•»»*•*»•»*•♦»•*•*»•»•*»«•»»»»♦«»•«»«.«»»»,»«,»»,»,,,»,»,,,,,, ^,^, J,,,, I 








13 
IH * 


PRINT 


GEN 

ESTABLISH REGISTER EQUATES 






ALLOCATE 

REGISTERS 

FOR INTERFACE 

AREAS 




IS RC 
lb Rl 

17 R2 

18 R3 


EQU 
EQU 
EOU 
EOU 



1 

2 PROGRAM COVES «1 

3 PROGRAM COVER 112 






19 R4 


COu 


1 






20 R5 


EOU 


S INTERNAL SUBROUTINE LINKAGE 
b I/O NORMAL RLIUPN 






21 R6 


EQU 






22 R7 


EQU 


7 I/O ERROR RETURN 






23 Rfi 


EOU 


8 CGA COVER (OPTIONAL) 






^^ Kt 


EOU 


9 PIB COVER 






25 RIO 


EQU 


10 IMA COVER 






26 Rl 1 


EOU 


U WORK COVER 






27 RI2 


EQU 


12 OMA COVER 






28 R13 


EOU 


13 






29 RI1 


ruu 


11 








30 Rib 

31 * 


EOU 


15 

PROGRAM COVERING 






INITIALIZE 
REGISTERS FOR 
■SUPPLY- 
PROGRAM 




32 


USING 


• .R2,R3 PROCi^AM CODE 




33 

3") 


USING 
USING 


^A»DPIB,R9 PIB 
/ADIMH.RIO IMA 




35 
3b 


usIng 

USING 


UORK.Rll UORK 
2AI(0MH,R12 OHA 






37 * 
38 


STM 


IMS INTERFACE 

R11,R12.12t«13l STORE REG IN CALLS' SAVE AREA 












39 


LR 


H2,R15 THIS PROGRAM AODRESS 






ta 


LM 


r9,R12,GIR1» COVER IMS AREAS 






ii 


LR 


R3,R2 PROGRAM StCCNL COVER 






12 


LA 


R3,HR3) 






13 


LA 


R3, 10951 ,R3) ALiD 139fc 






11 


LA 


K7,SAV[ This PROGRAM SAVE AREA 






15 


SI 


R7,tt|,R131 PUT AUDR THIS SAVE IN CALLS' SAVE 






16 


SI 


R13,1(,h7) PUT CALLS' SAVE ADDR IN THIS SAVE 






17 


LR 


«13.P7 SET REG 13 FOR THIS SAVE AREA 






l|9 **«******«***« **««**««#« 4«4«*««««*«* «**««« ««*4>*w««**«4 4i*4*4**««*«» ««*««! 






SO ♦ 




CHECk SECURITY FcR OpEN • 








S2 MUC TASKtTtSI .BLANK 






VALIDATES 

CONDITIONS 

FOR OPEN 

ROUTINE 




S3 


1VC 


TABK£Y43l,:CM8a' 




51 
55 
56 
57 


MVC 
LA 
BAL 
CLI 


TABKEY.3<2),-C'SC' 

R7,0PNC2C. 
R6,TABGET 
TABSTS.C • 






58 
59 


BNE 
HVI 


0PN02Q 
WORKl ,X -uO' 












60 


HVC 


U0RK1«1 (7 1 .UORKl 






61 


MVC 


k.0RKl«8(2) ,2A«IS1 ID«2 






62 


PACK 


WORK 1*6 (2 1 .WORK 1*8 (2) 






63 


CVB 


R6, WORKl TERMINAL • TO BINARY 








61 

65 OPNOIO 


LA 
LA 


R7,TERMTAB-1 INIT TERMINAL FIELDS ADDRESS 
R7,1ID,R71 NEXT TERMINAL FIELDS 










66 


BC1 


R6,OPN01U NOT TERMINAL FIELD-GET NEXT 


OPEN 
ROUTINES 




67 


CLC 


C(3,R7),-C' 




68 
69 


BE 
MVC 


0PN02D 

WH0(3l,0tR7) SAVE USER INITIALS 






70 


CLC 


3(1. R7), LIMIT OVER LIMIT? 






71 

72 0PNG20 


BNH 
MVC 


STARTOOO 

MSG0UTtLMSG2),MSG2 "APPLICATION NOT OPEN" 


X 




^ 


^ 




73 
71 


MVC 
B 


2A«0TL(2I,:Y (0»LKSC2«1 » 
TERM 



Figure C-7. Sample BAL Action Program SUPPLY Processing Successive Transactions 

(Part 1 of 9) 
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o 



(79-85) 



BUILD SCREEN 

FORMAT AND 

OF TEST SIZE 

OUTPUT MESSAGE 



(89) 



VERIFY 
INPUT 
FIELDS 



(93-100) 



VERIFY TYPE 

CHANGES TO 

BE MADE 



(104-106) 



o 



VERIFY 

BRANCH 

ACTIVE OR 

NOT 



(118-126) 



SUPPLY 
CHARGES 



76 


***4*«*««*«««««»«««#«««««««««*««*«««*«*«4* «««*««««*«»«*«*«««<»*«*** ««««»! 


77 


* 




DETERMINE ACTION 


78 


«»«««*«»«**«««««*«*««««««««« *««4*«*4«4i##***4*«««*«*«*« *«««*«*«*****«**« 1 


79 


STARTCOO 


EOU 


♦ PfcOCtsS MtSSAGF 


80 




BAL 


R6,SCREEN0 MOVE SCREEN FORMAT TO OMA 


81 




CLC 


ZA»ITL (2» ,=Y(TRANLEN-MSGIN«1*m 


82 




BNH 


TERM 


83 




CLC 


ZAIIITL«2»,-Y(TLtN-MS6IN*1«1» 


81 




BNL 


VERIFYCO 


8S 




B 


TOOSHORT 


86 


* 






87 


*«««*«•«*»*««• 


VERIFY INPUT FIELDS 


88 


* 






89 


vEKirvoo 


EOU 


« 


90 


♦ 






91 


4944*«*«****44 


VERIFY TYPE 


92 


* 






93 




MtfC 


CTYPE.ITYPE 


91 




CLl 


1TYPE,C"&' 


95 




BE 


VER1FYC5 


96 




CLI 


ITYPE ,C'l • 


97 




BE 


VERIFY05 


98 




MVl 


LBD11«2,XMC' 


99 




MVl 


RBD12*1 ,* 'I'd' 


100 




H«l 


ERRST ,C» Y* 


101 


« 






102 




VERIFY BRANCH 


1C3 


* 






1V^ 


vthirro5 


EOU 


• 


1C5 




"VC 


0BRC(3),1PRC 


106 




HKC 


RRKE Y < 3) , IPrtC 


107 




LA 


R7,N0G0I 


108 




BAL 


t<6,BRC&LI 


1C9 




•^VC 


OBRNAME .bRNAHE 


no 




CLl 


BRCL.C • IS BRANCH ACTIVF? 


111 




BNE 


NOGOT 


112 




B 


VERIFYIO 


113 


NOOUT 


MVl 


DICED11*;. .x'lC 


lit 




MVl 


D1CED12*! ,x»10' 


lib 




HVI 


ERRST ,C "Y • SHOW ERROR 


116 


*4««««*»444V9« 


fiRE SUPPLY CHARGES NUMERIC? 


117 


* 






118 


VEKIFYIC 


Egu 


« 


119 




MWc 


OSUPPL Y,i SUPPLY 


120 




LA 


R 1 .ISUPHL Y 


121 




LH 


RO.-H'IO' 


122 




BAL 


rS.RJOD 


123 




BZ 


VEpIF Y2b 


121 




MVl 


uICE01J«i,XMC' 


125 




MVl 


OICEGim.x'lO' 


126 




B 


TERM 
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Basic Assembly Language (BAL) Action Programming Examples 



(127-159) 


COPY PAPER 

AND "SUPPLY" 

CHARGE 

TESTS 








(160-162) 


BUILD OUTPUT 
MESSAGE-6 



(163-168) 



BUILD OUTPUT 
MESSAGE-7 



(169-186) 



BUILD 
OUTPUT 
SCREEN 



(189-191) 



(196-202) 



TEST FOR 

MESSAGE 

TOO SHORT 



TERMINATE 

WITH 
SNAP DUMP 



127 


« 








128 


*«•#*««, 




IS FILM NUMERIC? 




129 


* 








13Q 


VERlFYiS 


EQU 


* 




131 




MVC 


OCP.ICP 




132 




LA 


Rl.ICP 




133 




LH 


RQ.^H'IO* 




13H 




BAL 


RS.RJOC 




135 




B2 


VERIFY30 




13b 




MVI 


DICE015«2,«'IC* 




137 




MVl 


D1CE016«1,X«1D' 




138 




B 


TERM 




139 


* 








I4Q 


*««««**« 


****** 


ARE SUPPLY CHARGES ZERO? 




1*1 


* 








102 


VERlFY3a 


EOU 


* 




113 




MVI 


TESl.X'OO* 




li|<l 




CLC 


I SUPPLY4J (9 l,:C '000000001 • 




I'S 




BNE 


VER1FY35 




lib 




01 


TESt,X'80« SEI BIT FOR SUPPLY-0 




m7 


* 








lis 


***«•<*, 


****** 


IS CCPY PAPER ZERO? 




lit9 


4 








150 


VtHlFr35 


EQU 


* 




151 




CLC 


icP«ic9),=c'oaoooDooo' 




152 




BNE 


ENOVEROO 




153 




01 


TEST,X"1U' 




151 


* 








155 


«*#«*«***««««« 


TEST CONDITIONS FOR ERROR 




156 


* 








157 


EnDVEROCj 


EQU 


» 




158 




CLI 


TEST.X'CL* ARE BflTH ZERO? 




159 




BNE 


NEXTESTO NO-SEE IF NEITHER ARE 


ZERO 


160 




H»C 


MS60UTtLMSG6»,MSb6 BOTH ZERO 




161 




MKC 


ZA«0TLC2>,=YC0«LMSG6*«) 




162 




B 


TERM 




163 


NEX1ES10 


EQU 


* 




161 




CLI 


TEST.X'OC 




165 




BNE 


INSERTSC 




16b 




MVC 


KSGOUTtLKSGf 1 ,MSb7 




167 




MVC 


ZA»0TL«21,=Y«0*LMSC7<1) 




168 




B 


TERM 




169 


INSLRTSC 


EQU 


4 




170 




CLI 


ERRST.C'Y' 




171 




BE 


TERM 




172 




MVC 


KlYPEtlTYPE 




173 




MVI 


bSTATUS.C • 




171 




MVI 


WRECID.C'B' 




175 




MVC 


nBRC.IBRC 




17b 




PACK 


WSUPPLY( 5 1,1 SUPPLY* 1(91 




177 




PACK 


WCPC5) ,ICP«1 (9) 




178 




BAL 


R6, DAYTIME 




179 




MVC 


yTRTlME ,HHMM 




180 




MVC 


UTRUATE .YYMMOO 




181 




LA 


R7,ABIERM 




182 




BAL 


Rb.DTFlNSRT 




183 




MVC 


OBRCtSI, BLANK 




181 




MVC 


OSUPPLYi lot .BLANK 




185 




MVC 


OCPIIO* ,bLANK 




ISb 




B 


TERM 




187 


««««**«****««4***«*«***«4i*«*«*«** 




188 


* 




MESSAGE TOO SHORT 




189 


100SHOR1 


MVC 


MSGOUTILMSCi» ,MS&3 CURSOR REPOSITIONEO 




190 




MVC 


ZAII0TLt2l,;Y(0«LKSG3<1> 




191 




B 


TERM 




192 


* 








193 


* 








191 


*«*««4««*^*4*« 


TERMINATE PROGRAM 




195 


* 








196 


TERM 


CLI 


ISNAP.C'S* ASK FOR SNAP? 




197 




BNE 


bOBACK NO 




198 


ARTER"! 


MVI 


ZAKPSINO.C'S* TERMINATE WITH SNAP 




199 


COBACK 


ZGHCALL RETURN 




2Q0'»GCBACK 


OS 


CH 




201* 


L 


l5.-V(RETURN» 




2D2< 




BALR 


11,15 





o 
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c 



(202-255) 



SCREEN OUTPUT, 

DATE/TIME, AND 

RIGHT-JUSTIFY 

ROUTINES 



c 



(262-277) 



READ "TABREC" 
FROM 

"TABLEMT" 
FILE AND PLACE 

ON ■lOFILE" 



20M 


*.»»". -» ..-— .*.,.»..„.,..,! 


205 


* 




* 


2Q6 


* 




jNTERNAl POUIInES * 


2Dr 


4 




• 


208 


««««««*««*«*«««««4«4*«**4«44*««*«4«*#*«*«*«*****«*«****4«*««***********| 


209 


* 






210 




HOVE SCREEN 10 OMA 


211 


• 






212 


SCREENO 


ECU 


• 


2IJ 




ST 


R6,R6SAVL 1 


2m 




HVC 


MSGOUKLHEADLRI, SCREEN 


21& 




MVC 


OLINEKLLINEl I.LINEI 


21b 




MWC 


0LINE2(LLINL2t,LINE2 


217 




HVC 


0LINE3{LL1N£3I,L1NE3 


218 




HWC 


OLINEHLLINEH.LINEI 


219 




MVC 


0LINES(LLINE5I ,HNE5 


220 




MVC 


GLlNE6(LLINEbl ,LINF6 


221 




HVC 


2AS0TL 11) , = riENOSCR-SCREEN.U 


222 




L 


R6,R6SAVE1 


22 J 




RR 


R6 RETURN 


221 


• 






225 


**•*•**»**•»•• 


DATE/TIME STAMP »»»»»•<.«»»»»«*«♦«♦«»»*««»*«»»»»*»»»•«••» 


226 


* 






227 


D«»1IME 


COU 


« . 


228 




ST 


R6,R6SAVE2 


229 




GETlMt S 1 


23D« 




DS 


LH 


231' 




SR 


1,1 


232< 




SVC 


7 


233 




SI 


RO.HORkI UATf-OYYMHDD* 


23* 




UNPK 


H0RK1*1 (7 1 .WORKlll » 


235 




XVC 


YYMMD0t6) ,W0RK1*5 


23b 




01 


YYMMDD«5,X'F[l' 


237 




ST 


RI.WORKl TIHE-CHHMHSS* 


238 




UNPK 


W0RK1»1I 7) .HORKl ID 


2 39 




HVC 


HHHMI1 1 ,M0RK1 ♦S 


210 




01 


HHHM*3,X'F')' Fix 20NE 


214 1 




L 


R6,R6SAVE2 


2H2 




BR 


R6 


213 


»«4«44«*«4**** 


RIGHT JUSTIFY «*«*«*«*«»«*«***««««**««*•»*««»**•««•***•• 


211 








215 






REGISTER - FIELD LENGTH I LA RO,-H'XXXX' 1 


216 






REGISTER 1 - ADDRESS OF FIELD 


217 






REGISTER IE = RETURN STATUS CODE I 2ER0ES IF NO ERROR 1 


218 


RJOU 


ORG 


4 


219 




LA 


R13,SAV£ LOAD ADDRESS OF PROGRAM SAVE AREA 


250 




DC 


OYtOl 


251 




EXTRN 


MOORJI 


252 




L 


Rl5,-A CMOORJl ) 


253 




8»LR 


R11,R15 BRANCH TO RJ 


251 




LTR 


R15,R15 SET CONDITION CODE FOR ERRORS 


255 




BR 


R5 


256 








257 


***•*»•» 


*4*4** 


FILE I/O *•*****»•»««»«*•»•»»•»»»»«••*»*•»*»«•»»»«»*»*«• 


258 








259 








260 






TABLE MASTER 1/0 


261 








262 


T«B0E1 


MVC 


lOKEY Ih ) .TArftvEy 


265 




HVI 


I0KEY*8,C'E' 


261 




ZGKCALL 6ET,IIABLCMT,TABREC,T«BKEY) | 


265* 




DS 


QH 


266* 




LA 


15, TABLEMT 


267« 




ST 


15,PLIST,1»«1-11 


268* 




LA 


15.TABREC 


269* 




ST 


15,PLIST,1»(2-11 


270* 




LA 


IS.IABKEY 


271* 




SI 


15,PLlSI«1*li-I 1 


272* 




01 


PLIST-H»( 3-1 I ,X'80* 


273* 




LA 


l.PLIST 


271* 




L 


15,-VtGET ) 


275* 




BALR 


11,15 


276 




MVC 


lOFILECTI, TABLEMT 


277 




8 


lOSTATUS 
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(281-293) 



INSERT NEW 

RECORD ON 

"lOFILE" 



(297-312) 



READ BRANCH 

RECORD AND 

MOVE TO 

■lOFILE- 



(316-326) 



TEST STATUS 

CODE AND RETURN 

TO OPEN OR 

GO TO ERROR 

ROUTINE 



(327-330) 



BUILD 
MESSAGE- 1 

ERROR 
MESSAGE 



(331-334) 



TEST 

DETAILED 

STATUS CODE 

AND BUILD 

ERROR MESSAGE 



(336-338) 



TEST 

STATUS 

CODE 



278 * 

279 »«»♦», »4»,»,«« DAILY TRANSACTION FILF 

280 » 

281 OTflNSRl IVI I0KEr»15,C'I' 

282 2G«CALL 1NSER1 , (Ii^ANACT .DTFREC) 



283« 

281* 

285» 

286* 

287« 

288* 

289-< 

29(5* 

291* 

292 

293 

29<i 

295 

296 ♦ 

297 BRCLEI 
298 

299 



OS OH 

L* IS.TRANACT 

ST 15,PL ISI'MtCl-I) 

LA IS.DTFREC 

ST 1S,PLIS1<1»(2-1 1 

01 PL1ST«'*«(2-1) ,X 'llO* 

LA I.PLIST 

L 15,:V(1NSERI1 

RALR 11,15 

MUC I0FILt«7l .TRANACT 

B lOSTATuS 

* 

•♦♦»»4»»««»»»» BRANCH HASTLH 



■1VC 
1VI 



10KEY( 3> ,ftPKt V 
I0KtY»3,C'C' 



GElbRC Z&HCALL GET , t Bi* ANCH1 , Bl^ REC , RRKE V ) 



30a«GETbRc 


DS 


DH ' 




301* 


LA 


15,B»ANCHM 




302-> 


ST 


15,PLISl<1«li-l 1 




3C3» 


LA 


IS.BHREC 




30t« 


ST 


15,PLIST^1«(i-l 1 




3c5« 


LA 


IS.BRKE Y 




306* 


ST 


15,PLl;i4l»(3-l ) 




307* 


01 


PL1ST«1»I 3-l),X'i)a 


» 


308* 


LA 


I.PLIST 




3o9* 


L 


15,:V(6tl 1 




310* 


BALR 


11.15 




311 


MWC 


lOFILE (7» .PWANCHM 




312 


B 


lOSTATUS 




313 » 








311, ***.*«•»««*.** 


I/O STATUS 




315 * 








316 lOSIATuS 


EQU 


* 




317 


CLl 


ZA»PSC«1,0 


SUCCESSFUL? 


318 


BER 


K6 


YES 


319 


CLI 


ZA»PSC,1.1 


NO-INVALID KEY? 


320 


BER 


R7 


YES 


321 


CLl 


2A«PDSC»1,5 


FILE NOT DEFINED? 


322 


BNE 


101 


NO 


323 lOu 


CLl 


lOERROR.C 'D' 


RETURN? 


32<t 


BNE 


lOA 


NC 


325 


SR 


RIO. RID 


CLEAR RC 


326 


BR 


R7 




327 lOA 


1WC 


MSG0UTILMS61I,HS&1 




3?8 


MKC 


MSG0UT«0M1F1LEI 71 , 


lOFTLt 


329 


«VC 


ZA«0TLt2»,;Yl0«LMS&1.1» 


330 


B 


TERM 




331 101 


CLl 


2A«P0SC«1 ,b 


FILE CLOSED? 


332 


BNE 


102 




333 


MVC 


HSGOUT^OMlHOall 10>, 


HIAVAL 


331 


B 


100 




335 STSIRN 


DC 


C'012315fc789ABCDEFX« STATUS CODE TRANSLATE T 


336 IC2 


MVC 


I0STS(11,2A«PSC 




337 


TR 


lOSTS.STSTRN 




338 


B 


ABTERM 




310 »**»»»•»*••••«»»***» ♦•••»*»»»o*» «««»»**»*«»»»♦ »»*»»»»»««««,,», 


311 • 




PROGRAM CONSTANTS 




312 *»4«4*»*»»»«**»«»»»»*»»»*»*»»»*»» «*»»»»»»*♦»♦«»,»«,»«» «»»«,,,, 
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Basic Assembly Language (BAL) Action Programming Examples 



(343-382) 



DESCRIBE 

MESSAGE AND 

OTHER 

CONSTANTS AND 

DICE VALUES 



X^^' 



(387-410) 



DESCRIBE 

SCREEN 

FORMATS 



313 


TtBLEHT 


OC 


CMABLEHl* 


311 "» 


TRAN«CT 


DC 


C'TRANACT • 


315 


BRANCHM 


DC 


C 'BRANCHM* 


3<t6 


BLANK 


DC 


CL61' • 


317 


HS&l 


DC 


X«10D21BC11C1D' 


318 


DMlFILt 


EQU 


♦-MSG1 


319 




DC 


CL7' • 


350 




DC 


C'-FILE NOT • 


351 


OF! HOW 


EQU 


»-MS6I 


352 




OC 


C'CEFINED 


353 




DC 


CMO IMS • 


351 




OC 


X'lO' 


355 


LtlSGl 


EQU 


*-MSGl 


35b 


MIAVAL 


DC 


CAVAlLAbLE • 


357 


M5b2 


OC 


X'10o2i8IJUCmO' 


358 




DC 


C'APPLICAIION NOT OPE N • 


359 




DC 


X'lD* 


360 


Lfbb? 


EQU 


»-MSG2 


361 


MS&3 


DC 


X '1002181 lie 


362 




DC 


C'CURSOK WEPOSITIONED-RETRANSMI !• 


363 




DC 


X'lO' 


361 


DM3DICt 


EQU 


•-MS63 


365 




DC 


XMQ0201iC' 


366 


Lf'SLS 


EQU 


»-MSG3 


367 


MSbl 


DC 


C MESSAGE FkOK TERMINAL-' 


368 


MIIER- 


DC 


CL5' ' 


369 




OC 


CL28'*' 


370 


MSOb 


OC 


CL60' • 


371 


MS06 


DC 


X'100218i.llC' 


372 




DC 


C'NO DATA ENTEREb - REENTER 


373 




DC 


x'lO' 


371 


0M6ljICt 


EQU 


• -MSG6 


375 




DC 


X'100201G0' 


376 


IMSLfc 


EQU 


»-MS&fc 


377 


«So7 


OC 


X'I00218C11C' 


378 




OC 


C'ONLY Supplies or ccpy paper valid - reenter' 


379 




DC 


x'lD' 


360 


DK71JICE 


EQU 


4-MSG7 


381 




DC 


X '10020100' 


382 


LMiti7 


EQU 


*-MSG7 


381 


* 






385 




SCREEN FORMaI ♦«»*«•»«*»••»•»»«*••«•»••»»*»•••«•*»•••*•* 


386 


• 






387 


SCREEN 


EQU 


« 


38B 


OOICEO 


OC 


X'10020001' 


389 




OC 


X'27D1' 


390 




DC 


XLIS'OO' 


391 


LHEAOER 


EQU 


♦-SCREEN 


392 


LINE! 


ORG 


» iiiuiiiiiiiiiiiiiiiiiiuimiiiiiiiiiiiiiiiiiiiiuui 


393 




DC 


C'SUPLY' TRANSACTION CODE 


391 




DC 


CL1' • 


395 




DC 


X'GE' START PROTECT FIELD 


396 




OC 


C'TYPE' 


397 


DLBOll 


DC 


X'27051ACF' TAH-LB-END PROTECT 


398 


DOIvPE 


DC 


CLl' • 


399 


DRBUI2 


OC 


X'OEIF' ST PROTECT-RB 


100 


LLINEl 


EQU 


*-LINEl 


101 


LINt2 


ORG 


» 222 22 22 2222 2222 2222 222222 22 22 22 22 22 22 22 22222?222222 222 


102 




OC 


CL113' ' 


103 


LLINE2 


EQU 


♦ -LINE2 


101 


LINE 3 


ORG 


» j333 33 3333333333 33 3333 33 333333333333333333333333333333 


105 




OC 


C BRANCH' 


106 




OC 


CL6' ' 


107 




OC 


C'SUPPLUS' 


108 




OC 


CL9' • 


109 




DC 


C'COPy PAPEK* 


110 




OC 


CLIO* • 
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1 PG8 1 




mi LL1NE3 EQU 


* -LINE 3 




\ry 


412 LINtt ORb 


4 111111l^^^1^l^111^1ll^l4l^l|^ll^^|^|^^l^^^l4l^Dl^^^(^|n^^^l^^^^^nl(^^nl,^|^n^,^^ 




v^ 


■US DOICECtl DC 


X"27051AQF* TAb-LB-FNO-PROlECI 




1 


tl<t OOBRC DC 
115 DDICED12 DC 


CL3' • 

X'OEIF' RB-S1ART PROTECT 










DESCRIBE 




fib DC 


CLf • 


(411-435) 


SCREEN 




<tl7 DD1CE0M3 DC 
118 DObUPPLV DC 


X*?7a51AuF' 
CLIO' • 




FORMATS 




119 DdICFOII DC 

120 DC 
171 DD1CE015 DC 


X'OEIF" 

CLS' • 

X •27051ACF' 
















1?Z DOCP DC 


CLIO* • 








1Z3 DC ILEOIfc DC 


X 'DEIF • 








121 DC 


X«27051CLF13bE' < > 








125 DC 


XMOOIODOO- 








12fa LLIWEI EOU 


4-LINEl 








127 LINES ORG 


» 5 55 55 55 55 5b 55 5 S5 555 55 5555 5 5 5f. 555 5 5555 55 5^5 555 5555 555 55 








128 DD1LE51 DC 


X 'locinoGo* 








129 LLINE5 EQU 


4-L1NE5 








130 L1NE6 ORG 


4 bb6 666bbbbb6bbbb(,bb66bbbbbbb6b6b6bb66 6b66b6b6 6b6b6b666 








131 DC 


CLI* • 








132 DOBkNAMt DC 


CL25' • BRANCH NAME 








133 DICr211 DC 


XM0020110' 








131 LLINE6 EQu 


4-LINE6 








586 »»«iO»» *«»•»•.«»»*•*•*»«»»»♦.»».•»»»»«»*.♦»»»»»»»»»»».•»..«..••»««»»»»»» 1 








587 * 


kORK 










588 *«*V««*«**«**#*«*#*4*«*#*«4>>««*9***4*«*4*4*«***9*ft ****** 40#«*« ««*«*«*«• 

589 WORK DSECI 














593 WORKl OS 


20 




DESCRIBE 




591 rVHMDD DS 


CLb YE AR.MONlh.DAY 


(589-603) 


WORK AREA 




592 HHMM OS 


CL1 HCURS, MINUTES, 




SPACE 




595 R6SAVE1 DS 
591 RbSAVE2 DS 

595 PlIST DS 

596 SAWL OS 


F SCRELNO 

F DAYTIME 

1A PARAMETER LIS! FOR "CALLS" 

18F IMS SAVE AREA 
















597 ICflLE OS 


CL8 I/O FILE 








598 lOKlY DS 


CL15 I/O KEY 








599 lOSlS OS 


CL1 I/O STATUS 








600 lOLRROR DS 


CLl I/O ERROR RFIURN ON NOT OIF 1 NE D/ AV A IL 








601 WHU OS 


CL3 USER INITIALS 








602 TEST qS 


CLl 








603 ERRSI DS 


CLl 








601 * 










605 «*•«•«•♦**»»»• 


TABLE PEC 










bOb * 

607 TABKEY OS 


CL8 










DESCRIBE 




608 IABt<EC DS 


CL»0 






609 TAfaSTS EOU 


TABREC»8,1 


(607-631) 


RECORDS 




610 LIMIT EQU 


TABREC«15,1 




USED BY 




611 TERMTAB EOU 


TABREC'lb START OF TERMINAL FIELDS 




■SUPPLY" PROGRAM 




612 * 

613 *•»••»*•«♦»•«» 
611 * 


SUPPLY CHARGE RECORD 




-L 






rN 


615 DIfKCY OS 


CLI5 




(PGSJ 


616 OlFREC DS 


CL165 




v_y 


617 URECIO EQU 


DTFREC.l RECORD ID 






618 WBRC EQU 


DTFREC«1,3 BRANCH 






619 WTRDATE EQU 


DTFREC«1,6 TRANSACTION DATE 






620 WTRTIHt EOU 


DTFREC»lu,1 TRANSACTION TIME 






621 UTYPC EQU 


DTFREC«11,1 TYPE 






622 USTATUS EQU 


DTFREC'15,1 STATUS 






623 USUPPLY EQU 


DTFREC*lb,E SUPPLY C HARGES-AMOUN T -PD 






621 UCP EQU 


OTFREC'21,5 COPY PAPER-P02 






625 » 








626 ••*«•«*«***••« 


BRANCH RECORD 






627 « 








628 BRKEY DS 


CL3 






629 BRREC OS 


CL250 






630 RRNAnE EQU 


eRREC»13,25 BRANCH NAME 






631 BRUL EOU 


bRREC«195,I GENERAL LEDGER STATUS 






633 **«•***•**«• a* a««*«*4*»*«>«4 «»*<*•«<*•«»*****»«*«*«*•«««« A* *49*««a»«4»«j 






6 31 * 


OMA e 






635 **44*» *4»4»4»4 44 «4»«»44*444»4»*t»444 44 »4** 44 44 44 44 •*«»»» 4444*444 «**•»•» 








I 


636 ZMdOOMH 
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o 





/'„„„^ 




700 


HSbUUl 


OS 


CL?aiB 




.r^e ■ 


701 


DICtO 


EQU 


MSGOUT 


•DuIClC 


S^ 


702 


OLL-^El 


EOU 


HSG0U7 


.LJNEl- 


1 


703 
70M 


LBUll 
OlrPt 


EQU 
EQU 


OLINEl 
OLINEl 


• DLBCn 
•DCTYPL 










DESCRIBE 




705 


RBai2 


EQU 


OLINEl 


♦bkBni2 


(700-721) 


RECORDS 




706 


0LINE2 


EQu 


MSCOUT 


•L1NE2- 




USED BY 




707 


0L1NE3 


EQU 


MSGOUT 


<L1NE3- 




■SUPPLY" PROGRAM 




708 


OLINEl 


EQU 


HSGOUT 


♦LlNf M- 








709 
710 


DICLDIl 
OEWC 


EOU 
EQU 


OLINEM 
OLINEl 


«ouict.a 








♦OOBPC- 




711 


DICE 312 


EQU 


OLINEl 


♦ODICEO 




712 


DICE013 


EQu 


OLINEM 


• DO ICE a 




713 


OSUPPLY 


EQU 


OLINEM 


•DOSUPP 




71* 


DICLOim 


EOU 


OLINEM 


♦DuICEJ 




715 


DICEn'45 


EQU 


OLINEM 


«ODICEO 




716 


OCP 


EQu 


OLINEM 


«OOCP-L 




717 


DlCEOHb 


EQu 


OLINEM 


*DDIClu 




718 


0LINE5 


EQU 


MSGOUT 


•LINfS- 




719 


OLINEf, 


EQu 


HSGOUT 


• LiNE6- 




720 


oeK^«^'E 


EQu 


CLINE6 


♦ D U B K iK A 








721 




END 







-SCREEN, M 

SCREEN llllilJlinillllHllllUlUlUUlIll 

-LINE! 

-LINEl.l 

-LINEI 

SCREEN 2 2?2222 22??222?22??22?2222?222?2 2222 

ScPlEN 333333333333333 33 3333353333353333333 

SCREEN MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

Ml-LINEM 

LINEM,3 

M2-L1NEM 

M3-L INLM 

Lr-LINEM,10 

MM-LINEM 

M5-L INEM 

INEM ,10 

Mfc-L INEM 

SCREEN 5 5 55 55 5 5 555 SSSSbbS-^ 555 55555 55555 5555 

SCREEN 6 66 666666666666 66 6666 66 6666 666666666 

ME-LINE6 ,?'j 



o 



UNIVAC 


SYSTEM OS/3 LINKAGE EDITOP 
















VERCaOOOD 


0«TE- 81/0M/16 TIME- 13 


.03 


















CONTROL 


STREAM ENCOUNTERED AND PROCESSED AS rOLlDWS- 
















/S 


LOADM SUPPLY 
LINKOP ALIBrlYloBJ 
LINKOP OUT-IMSLOD 






















LINKOP CMT=*GAY. AND. TAYLOR' 




DESCRIPTION 










SUPPLY 


•RUN LIBE MODULE* 


















6ET 


•AUTO-INCLUDED* 




















HOORJI 


•AUTO-INCLUDED* 




























•DEFINITIOKS 


DICT10NAKY5. 










SYKBOL. 


TYPE. 


PHASE. 


ADDRESS. 


SYMbOL . 


TYPE . 


PHASE . 


AdUHESS. 


SYMBOL . 


TYPE . 


PHASE 


ADDRESS. 


»DOKY 


ENTRY 


ROOT 


ODOOOOIS 


APtlUBN 


ENTRY 


ROOT 


0C3u0DbC 


BUILD 


ENTRY 


ROOT 


DDODOODO 


CLOSE 


ENTRY 


ROOT 


00000090 


CKDRB 


ENTRY 


ROOT 


OCOuOLSI 


DELtTt 


LNTRY 


ROOT 


OCDoDOTO 


OELKY 


ENTRY 


ROOT 


ODOODOIC 


OLAjR 


ENTRY 


ROOT 


nCDJODTO 


DLKCP 


ENTRY 


ROOT 


000D002M 


ENDCRL 


ENTRY 


ROOT 


ODOODCSO 


ESEIL 


ENT«Y 


ROOT 


00000070 


ESLMT 


ENTRY 


ROOT 


000D007C 


FIND 


ENTRY 


ROOT 


0OOODD911 


rott 


EMBY 


ROOT 


ar:)aQDec 


GET 


ENTRY 


ROOT 


QOOcOoiM 


EETLO>0 


ENTRY 


ROOT 


OOOODCQC 


6E lUP 


EHTI1 


ROOT 


0cJ00D6e 


GT ADR 


ENTRY 


ROOT 


OCOOOO714 


INSERT 


ENTRY 


ROOT 


OoUDODTM 


KE16LP 


ENTRY 


4BS 


acaco8B3 


KElRtS 


ENTRY 


ABS 


oaaooeB3 


LNKCP 


ENTRY 


ROOT 


D0OOOD2D 


MOufiJl 


CSECT 


ROOT 


OCDjOOFO 


OPt^ 


ENTRY 


ROOT 


OODDoOaC 


OPENF 


ENTRY 


ROOT 


00DD008C 


PUI 


ENTRY 


ROOT 


oojuaObc 


Rdid 


ENTRY 


ROOT 


00000061 


RDIOL 


ENTRY 


ROOT 


0D000C68 


RDKlY 


ENTRY 


ROOT 


nojaoDZij 


RDKLYL 


ENTRY 


ROOT 


0P0D0D2C 


RDKII 


ENTRY 


ROOT 


03000C30 


RDSU 


ENTRY 


HOOT 


o-acoo3c 


post I 


ENTRY 


ROOT 


OODODOMO 


ROSQL 


ENTRY 


ROOT 


00000080 


RDSK 


ENTRY 


ROOT 


ocuaoosM 


RDSRL 


EwTRY 


ROOT 


00000038 


REBUILD 


ENTRY 


ROOT 


DOOODOOM 


RELRtC 


ENTRY 


ROOT 


OtJuOOflM 


RE TURN 


ENTRY 


ROOT 


noaooD9c 


SEND 


ENTRY 


ROOT 


00 00 DO 98 


SETL 


ENTRY 


ROOT 


00000076 


SE ILOAD 


ENTRY 


ROOT 


ncooDOio 


SNAP 


ENTRY 


ROOT 


00000058 


SSLLCK 


ENTRY 


ROOT 


OODuOOMii 


SSUt.LK 


ENTRY 


ROOT 


orocooMS 


STCRL 


ENTRY 


ROOT 


OOOOODMC 


SILMT 


ENTRY 


ROOT 


OOOuOOTb 


SUB 


ENTRY 


ROOT 


OOOOODIM 


SUBPROe 


ENTRY 


ROOT 


OOOOODIM 


SUPPLY 


CSECT 


ROOT 


D;-oaO)DC 


UNLOCK 


ENTRY 


ROOT 


00000088 


URID 


ENTRY 


ROOT 


OOQ0006C 


XR70MS 


ENTRY 


ROOT 


ocBCoooe 


ZFBLINK 


CSECT 


ROOT 


OCODDDOO 
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•» ALLOCATION MAP 


*« 








LOAD MODULI - SUPPLY 


S12t 


DQu 


UC8b3 








PH«SE NtHE. TRkNS ADDR FLAB LABEL 


lYPE 


ESID 


LNK ORO 


HIADDR 


LENGTH 


OBJ ORG 


SUPPLYCD NODE - ROOT 






OOQODOQC 


30000RB2 


OODOaSBJ 




»»* START OF AUTO-INCLUDEO ELEMENTS - 














- 79/06/28 le.tO - 7F«LINK 


OBJ 












ZruLlNR 


CSECT 


01 


OODDDCU'j 


OCOOOOEB 


OOOuOOEc 


ODOOOODC 


XR7DMS 


ENTRY 


01 


aaODDOOii 






oooaaooB 


BUILD 


Entry 


HI 


acocoooti 






00000000 


REBUILD 


ENTRY 


01 


OOQDOnul 






00000001 


GET 


ENTRY 


01 


OOOtOCbu 






00000061 


GEIUP 


ENTRY 


01 


OOOOOOfab 






OG00OC68 


PUT 


ENTRY 


01 


0C0l0C6C 






00000060 


DELETE 


ENTRY 


01 


000U0C71. 






0C0DO07D 


INSERT 


ENIRY 


01 


00000071 






00000071 


SETL 


ENTRY 


01 


00000078 






00000076 


ESEIL 


ENTRY 


ai 


OaOD007C 






0CO0OD7C 


FREE 


ENTRY 


01 


oaococHC] 






ocococec 


RELREC 


ENTRY 


01 


OOOOODfcM 






ooocooei 


UNLOCK 


ENTRY 


01 


OOOOODbe 






00000088 


OPEN 


ENTRY 


01 


acococac 






ooacooac 


CLOSE 


ENTRY 


01 


acucDcvu 






00000090 


FIND 


ENTRY 


01 


anouoD9'4 






0CQBOD91 


SEND 


ENIRY 


01 


O00CDC9b 






00000094. 


REIyRN 


ENIRY 


01 


aoocoDvc 






OOOC009C 


areturn 


ENTRY 


01 


000U005C 






OPODOObC 


SNAP 


ENTRY 


01 


30000053 






00000056 


SUB 


ENIRY 


01 


0000001'4 






00000011 


RDSUL 


ENIRY 


01 


D3DC0CBC 






OoOUOOSC 


GTADP 


ENTRY 


01 


000000714 






000DOO71 


DLADR 


ENTRY 


01 


00000070 






O0ODD07C 


ADOK V 


ENTRY 


ai 


oocoocie 






ooooooie 


OELH* 


ENTRY 


01 


OOOCOCJC 






OCOOOOIC 


LNilCP 


ENTRY 


01 


000CDC20 






0000002U 


DLKCP 


ENTRY 


01 


oaotoc2ii 






0C0c0021 


yPlD 


ENTRY 


01 


oaccocbc 






OOOOOObC 


RDID 


ENTRY 


01 


ODOCODbl 






OCO0OD61 


RDIDL 


ENTRY 


01 


OOOCOCbf 






nD00006b 


RDKEY 


ENIRY 


01 


0C0C0C28 






0DDD0D28 


RDKEYL 


ENTRY 


01 


O0DL002C 






00 00D02C 


RDKYI 


ENTRY 


01 


OOOCOPSL 






oooaOo3i, 


RDSR 


ENTRY 


01 


00000031 






00000031 


RdSRL 


ENTRY 


01 


0300003(1 






00000038 


RDSC 


ENIRY 


01 


000LDC3C 






0n00DD3C 


RDSai 


ENIRY 


0) 


OOOODDnO 






0O0COO10 


STLMI 


ENIRY 


01 


OOOIj0C7b 






0D000076 


ESLMT 


ENTRY 


01 


0C0D0D7C 






D000007C 


SSLOCK 


ENTRY 


01 


30000011 






00000011 


SSUNLK 


ENIRY 


01 


oDcoonie 






00000018 


STCRL 


ENTRY 


01 


ooocooit 






OCOOOOIC 


ENDCRL 


ENTRY 


01 


DOCCOCbu 






O0DCDO50 


CHDRB 


ENTRY 


01 


ODOuOCSI 






00000051 


OPENF 


ENIRY 


01 


aoojoobc 






BOOOOOSC 


SUBPROO 


ENIRY 


01 


OOOLOCll 






OC00DOI1 


SETLOAU 


ENIRY 


ai 


aootooic 






OOOOQDIO 


GETLOAU 


ENTRY 


ai 


OOOCOOuC 






ooooonoc 


- 16/12/20 09. "t« - MODRJI 


OBJ 












MOORJl 


CSECT 


01 


B30C0CF0 


0C0C01C9 


ooDcanoA 


00000000 


•»* END OF AUTO-INCLUDEO ELEMENTS - 














- 8I/D1/16 12.58 - SUPPLY 


OBJ 












SUPPLY 


CSECT 


01 


JOOLRIDC 


ncccotaj 


C0CC36E3 


OOOCQDOO 


E0030100 


FLACj 


CODES - 










a - BLK DATA CSECT D - AUTO-DELETED 


t - EKCLUSI WE 'A* 


RLE t - GCNERATEU EXIRN 


I - INCLUSIYE 'V REF 


L - DEFERRED lEnGTH M - MULTIPLY DEFINEU 


N - NOT INCLUDEO 


P - PROMOUO COMMON 


R - SHARED REC PRODUCED 


S - SHARED ITEM U - UNDEFINED REF 


W - YCON 


ITEM 










♦ANY OTHER CODES REPRESENT PROCESS ERRORS* 














LINK EDIT OF -SUPPLY* COMPLETED 














DATE- Sl/OI/lb TIME- 13.05 














ERRORS ENCOUNTERED- 0000 UPSI- X.OO" 















Figure C-7. Sample BAL Action Program SUPPLY Processing Successive Transactions 
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C.4. Sample BAL Action Programs Performing Dialog 
Transactions (APCHKS Series) 

The APCHKS action program uses delayed internal succession to call the APITMS 
action program (Figure C-11). The APITMS action program uses delayed internal 
succession for error processing to return to the APCHKS action program for changes 
or corrections to records. 

0.4. 1. The APCHKS Action Program 

The APCHKS action program (Figure C-10) either adds new records to the master 
vendor file or updates and corrects records on that file. It also ends by accumulating a 
batch total of all checks paid. 

When the terminal operator enters the transaction code, APCKS, the APCHKS action 
program builds a screen format as output, which is queued as input to the APITMS 
action program. 

Here, APCHKS uses delayed internal succession (Figure C-10, lines 647-652) to call 
the APITMS action program (Figure C-11), which in turn sends out the screen format 
shown in Figure C-8. 



x<„^^ 



c 
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APCKSADD:_CHG:_END:_ 


CHECKNUMBER: 
A P 


<> VENDOR: <> 


C H E C K S , 


CHECKLEGEND: 

AMOUNT: 

<> <- TRANSMIT 


DATE :_/_/_ 


NAME 




ADDRESS LINE-1 

ADDRESS LINE -2 

CITY & STATE 

ZIP CODE 










OVERRIDE CHECK #(SUPPRE: 


;s PRINT): 





Figure C-8. Screen Format 1 Generated by APITMS Action Program 

The operator can add or change a record on the vendor master file, VENDORM, or end 
the work session and obtain a checks total. When adding or changing a record, he 
must supply a check number and vendor number followed by the name and address of 
the new vendor or vendor for update. In addition, he must supply the amount of the 
check for that vendor and the date, place the cursor, and transmit. 



This transmit reschedules the APCHKS action program which in turn validates the 
new or updated vendor record data, adds it to or changes it in the vendor master file, 
and uses delayed internal succession to pass control to the APITMS action program. 



G 



C.4.2. The APITMS Action Program 

This program (Figure C-11) receives control from the APCHKS action program and 
generates a screen (Figure C-9) for the operator to enter the item invoices designating 
account number, amount of check, description, and whether the check is for an 
employee or for an invoice. 
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APITS 








A 
INT 


P 


1 T 


E M 


E N T R I 
DESCRIPTION 


E 


S . 








ACCOUNT 


AMOL 


E/I 


EMP "R" 


000. 










ATTACHED 


INVOICES 








< 


> 


001. 


























< 


> 


002. 


























< 


> 


003. 


























< 


> 


004. 


























< 


> 


005. 


























< 


> 


006. 


























< 


> 


007. 


























< 


> 


008. 


























< 


> 


009. 


























< 


> 


010. 


























< 


> 


011. 


























< 


> 


012. 


























< 


> 


013. 


























< 


> 


014. 


























< 


> 


015. 


























< 


> 


016. 


























< 


> 


017. 


























< 


> 


018. 


























< 


> 


019. 


























< 


> 




CHECK 


63426 


CHECK 


AMOUNT: 


3, 


391. 


48 


PAYEE: EQUIFAX 


SERVICES 





Figure C-9. Screen Format 2 Generated by APITWIS Action Program 

After the terminal operator enters all item invoices, he can place the cursor in the 
TRANSMIT position and and press TRANSMIT, or enter an 'R' and press 
TRANSMIT. 

If he transmits without entering an 'R', APITMS: 

• Verifies all invoice entries by calling itself for each screen of 20 invoices until a 
blank line is reached 

• Accumulates all amount fields for comparison with the check amount for that 
account 

• Writes an APITMS record for each invoice line entered on the screen 

• Creates a format on the screen with a prompting message to tell the operator how 
to print a check from the terminal. This format is not shown here. 

If the check amount is not equal to the item invoice total, APITMS returns control to 
APCHKS and displays the erroneous record for the operator to make changes to the 
item or add new items. Again, it verifies the changes and when correct, either creates 
a format for checks to be printed or allows for an account review. 
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If the terminal operator enters 'R', APITMS passes control to APAUDT, which returns 
a screen containing invoice entries. APAUDT is not illustrated here. 

At the end of a session, when the operator chooses the END option on the APITMS 
screen format 1 (Figure C-8), check totals have been accumulated in the AP header 
record of the APCHKS file. APCHKS then returns to the screen the batch total of all 
checks entered for that session. 



o 
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LINE 



SOURCE STATEMENT 



OS/3 ASH 



APCHKS 



2 
3 

4 

5 

6 

7 

B 

9 
10 
11 
13*Y$1B 

m** 

IS******* 

16** 

17«R0 

18+Rl 

19«R2 

20«R3 

21*h«* 

22+R5 

23*Rfc 

2«»*R7 

25«R8 

26*R9 

27*R1J 

28*R11 

29«R12 

30*R13 

31-»Rm 

32*R1S 

33** 

3<|4***«i*« 

35«* 

36* 

37* 

38* 

39* 

40* 

41* 

42** 

it3«***>it*« 

44«* 

45* 

46* 

47* 

48* 

49* 

50* 

51* 

52* 

53* 

54* 

55* 

5b* 

57* 

58* 

59* 

60* 

61* 

62* 



START 
**♦♦♦*««♦*♦*««♦*•*♦*«♦♦♦*♦**♦*♦»♦*******♦***♦***** «**»**^******** 

AUTHOR I R L LEONARD 

DATE : 12 HARCH 1980 

SITE : GAY t TAYLOR INC, UlNSTON-SALEM t NC . 27lD2 

PURPOSE: TO ADD AND CORRECT RECORDS FOR ACCOUNTS PAYABLE 

CHECKS 
CHANGE LOG 
»*«♦♦♦«««»**«»»♦♦* ««♦♦*♦♦«*♦«* *»♦**♦*»*♦******♦********* ********* 
Y*$START .STARTING CONVENTIONS 

EOU * .START OF PROGRAM 

******** REGISTER EQUATES 



ECU 
EOU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 
EQU 
EOU 
EQU 
ECU 
EQU 
EQU 
EQU 
EC/U 




1 

2 . 

3 . 

4 . 

5 . 

6 . 

7 . 

8 , 

9 ■ 
10 
11 
12 
13 
14 
15 



PIB COVER 

IMA COVER 

WORK COVER 

OMA COVER 

CDA COVER 

INTERNAL ROUTINE LINKAGE 

I/O - NORMAL RETURN ADDRESS 

I/O - ERROR RETURN ADDRESS 

.PROGRAM COVER »3 

.PROGRAM COVER «2 

.PROGRAM COVER 111 



******** ESTABLISH PROGRAM COVERING 

USING *,R12,R11 ,Pia .PROGRAM CODE 

USING ZAKDPlBtfiZ .PIB 

USING ZA«IMH,R3 .IMA 

USING U0RK,R4 .WORK 

USING 2A»0MH,R5 .OMA 

USING CDA,R6 .CDfi 

«**«**** ESTABLISH IMS INTERFACE 



STM 

LR 

LM 

LA 

ST 

ST 

LR 

LR 

LA 

LA 

LR 

LA 

LA 

GETIME 

OS 

LA 

SVC 

ST 



Rl4,R12,12«R13» .STORE REG IN CALLS' SAVE AREA 

R12,R15 .ADDRESS OF THIS PROGRAM 

R2,R6,0(R1) .ACTIVATION AREAS FROM PARAM 

RU.SAVE .THIS PROGRAM SAVE AREA 

R11,8(,R13» .PUT THIS SAVE INTO CALLS* SAVE 

R13,4(,R11) .PUT CALLS' SAVE INTO THIS SAVE 

Rl3tRll .REG 13 - THIS SAVE AREA 

R11,R12 .SECOND PROGRAM COVER 

Rll ,1 (Rll > 

Rll ,4C95IR11) 

RID, Rll .THIRD 

Rin.KRlO 

R10,4095tRn» 

M 
OH 
1.1 
7 
R1,STIMS 



PROGRAM COVER 



.STARTUP TIME 



Figure C-10. APCHKS Action Program Processing a Dialog Transaction with Delayed Internal 
Succession (Part 1 of 22) 
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64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
71* 
75 
76 



DROP 

PRINT 

BAL 



R6 

GEN 
R7, DAYTIME 






OPERATOR CANCEL 



CLI 1MA»4,C»C' 
BE EHS68 

♦ CHECK SECURITY 

*« 4l<i*,^ «^ 4i^«« «;)i «« «««« 4i4r «:^ :»4i «4 «««« 4i«:»^ 

HWC PASSKEYI5) ,-C'APCHK« 

YSJSECUR 

77«***«i*4[*««^*^«*«<i«««*«<i4i« «««««* «««««* 
78** CHECK SECURITY FOR OP 

79 ♦« 

80«* ASSUMES KEY IN 

8 l't'«««<'«'4>**^*4<«4>iti««<i*««4>#««4'<i «««««««««;» 



82* 

83* 

8<t« 

85* 

86* 

87* 

88* 

89* 

90* 

91 + 

92* 

93* 

9<»*Y$lC0ia 

95* 

96* 

97* 

98* 

99* 
100* 

101»Y510020 
102* 
103* 

lC««-« YSiMl 
105* 
106* 
107*LYi$Ml 

no 
111* 

121* 
122 



MWC KTA8LEMTt3l,-C'T80« 

MWC KTABLEMT«3I5» .PASSKEY 

LA R9,Y$SDQ20 .NO FIND A 

BAL R8,6TABLENT .GET SECU 

CLI TABSTS.C* • .RECORD A 

BNE V»$Q020 .NO 

MVl W0RK1,X»D0' .SETUP TO 

MWC «0RK1-H<? » ,a0RKl 

MtfC U0RKl«8t2>.^A«ISTlD«2 

PACK W0RK1*6(2I ,K<0RKl + 8t2) 

CVB Rl.WORKl .TERMINAL Fl 

LA R7,TERMTAB-'4 .BEblNNI 

LA R7,<4(R7) .NEXT TERMIN 

BCT R1,Y$10010 .COUNT DOta 

CLC 0(3,R7I,:C' • .OPEN 

BE Yt5002D .NO 

MVC UH0(3I,CtR7) .SAVE US 

CLC 3(1, R7», LIMIT .OPEN B 

BNH Y5*003D .NO 

MVC OMAJLYStMl J.YliMl .AP 

MWC 2A«0TL{2» ,=YtO+LY$$Ml 

B TERM 

DC x'lOoAlSonC* 

DC C'APpLlCATION NOT OPEN' 

DC X»iD1002Q00a* 

EQU *-Y$SMl 



.NO CDA 

.GET DATE-TIME 



CANCEL 

i^i^tf******ii^*:^*i«t********^**** ****** 
***********:#******************** 

.CHECK FOR OPEN-WALID 

****** *****:^*******:t ****** ********^ 

EN APPLICATION » 

FIELD "PASSKEY" * 

*^*^,*^******************** ********* 



DORESS 

RITY RECORD 

CTIVE? 

CVB 

.TERMINAL ID 

ELD COUNTER 

NG OF TERMINAL FIELDS 

AL FIELDS 

N TO THIS TERMINAL 

•> 

ER INITIALS 

UT OVER LJMIT (SET DOWNJ 

PLICATION NOT OPEN 
♦ «»» .MESSAGE LENGTH 






YJSTRAIL A 



123 

12H 

125 

126 

127 

128* 

129* 

130 

131 

132 

133 

134 

135 



PRINT OFF 

PRINT ON 

CLC IMA«11(3),=C'AD0' 

BE EMSGl 

***Xf** **************** *********^f***^ 

* INITIALIZATIONS 

******************* It** :^*^:^^i^:^^^p-^*:^:# 
YS$IN U 



TRANSMIT PROTECT? 
YES 
************************** *^f*^*^ 

******************************** 
EXTRACT SCREEN DATA 



LA RO.ll .SCREEN NUMBER 

BAL R8,M0VEIN .GO TO INPU 

MVI FILL,C*_' 

MVI PStART.C':* 

MVC PSTART«1(LP0ATA-1 J ,PSTART 

MVC PMSG1(80», BLANKS 

MVI USTOP.X'FF' 

MVI PSTOP,X»FF* 



T SCREEN ROUTINE 

SETUP PROTECTED REPLACEMENT 



G 
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c 



o 



136 ♦ 




137 ♦«*******♦*»«* 


138 * 




139 


MVC 


110 


MWC 


IMl 


LA 


l«t2 


BAL 


im 


MVC 


m4 


CLl 


m5 


BE 


Itb * 




1H7 ♦ 


ERROR 


Its * 




1«»9 


LA 


150 


TH 


151 


BZ 


152 


MVC 


153 


ED 


151 


LA 


155 LD330 


TM 


156 


BZ 


157 


MVC 


158 


LA 


159 L0032 


TM 


160 


BZ 


161 


MVC 


162 


LA 


163 L0034 


CLC 


Ibt 


BH 


16S 


CLC 


166 


BE 


167 


MVC 


168 


B 


169 L0050 


ECU 


170 


CLI 


171 


BE 


172 * 




173 **««***«*«*««« 


171 * 




175 




176* 


PRINT 


186* 


PRINT 


187 


AP 


188 


MVC 


189 


MWC 


190 


MWC 


191 


MWC 


192 


MWC 


193 


CLI 


191 


BE 


195 


LA 


196 


BAL 


197 LODfaO 


MWC 


198 


mvc 


199 


MWC 


200 


MWC 


201 


PACK 


202 


ED 


203 


MWC 


20«» 


EO 


205 


PACK 



GET AP HEADtR 

KACCTPAY, BLANKS 

KACCTPAY(2J,=C'AP» 

R9,EMS62 

R8,6ACCTPAY 

HACCTPAYI165) .RACCTPAY 

UCHG.C* • 

L0031 

s From item entries? 

R9,PMSG1 

APHERR.X'Ol • 

L0P30 

0ILMSG9,R9),MSG9 

DM9A(12,R9>,APHnMT 

R9,LMSG9i ,R9) 

APKERR,X'02' 

L0D32 

0«LMSG1C,R9»,MSG1C 

R9,LMS610( ,R9 J 

APHERR.X'Ol* 

L0Q3«» 

G(LMSG1 1,R91 ,MSG11 

R9,LMSG11 ( ,<<9) 

ZADlTLtZJ ,:Y10+IhA1 I 

L0D50 

APHCHKCT 15J .BLANKS 

FORMAT 

UCHECK (SJ.APhCHKCT 

FORMAT 

ft 

uend.c • 

LOlOO 



"NOT FOUND" 
GET HEADER 
SAVE RECORD 

CHANGE? 

NO 



ERR 

ITEM 

YCS 

NOT 

ITE 

NEX 

CASH 

YES 

CAS 

NE 

ACCR 

YES 

ACC 

NEX 

INI 

NO 



OR MESSAGE 
S-CHECK? 



M TOTAL 

T POSITION 

-0? 

H N0T:Q 

XT POSITION 

UAL^O? 

RuAL N0T:q 
T POSITION 
TIAL SCREEN? 



FORMAT SCREEN 

FORMAT SCREEN 

END OF BATCH? 
NO 



END OF BATCH *«♦*♦**«♦****»»♦*♦****♦***♦************* 



YtlTRAIL B 



OFF 

ON 

APHRtPTt5l,APHBAlCHC5» 

RACCTPAY i 165 I .HACCTPAY 

RACCTPAV«2I6>,=C»?BATCH' 

RACCTPAY«8(3> .APHBATHN 

RACCTPAY*tlt2»,YYMKDD 

RACCTPAY*37{t I.YYMMOD 

UENO.C'N* 

LDG60 

R9,Y$$10S3C 

R8,IACCTPAY 

0MA(LMSG3) ,MS63 

0HA*0M3AC 3 », APHBATHN 

W0RK1*«« (2 t .YYMMDD 

W0RK1C1 ),YYMMDD«2 

W0RKl«6(m.U0RKl(6> 

0MA + DM3B110) .WORK 1 ■•6 

0MA*DM3C(3I,APHCHKS 

OMA+DMSOilll.APHBATCH 

liiORKH2» .APHBATHN(3) 



NO OUTPUT RECORD? 

YES 

FR RO R 

INSERT BATCH RECORD 

"TOTALS" 

BATCH H 



DATE 

n OF CHECKS 

AMOUNT 

ADD 1 TO BATCH 
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206 
207 
208 
209 
210 
211 
212 
213 
211 
215 
216 
217 
218 
219 
220 
221 
222 
223 
22»» 
225 

226 «* 

227 * 

228 *« 

229 ♦ 

230 ** 

231 * 

232 LO 
233 
23<l* 
2HH* 

2«»5 
216 
217 
218 
219 

250 LO 
251 
252 
253 

251 LO 
255 
256 
257 

258 LO 
259 
260 
261 
262 
263 ♦ 
261 *»' 

265 * 

266 * 

267 *» 

268 * 

269 LO 
270 
271 
272 

273 LO 
271 * 
275 *♦ 



AP 

UNPK 

01 

HVC 

SP 

KVC 

MVC 

HVC 

MVC 

MVC 

1VC 

MVC 

MVC 

CLI 

BE 

LA 

BAL 

MVC 

BAL 

B 



W0RKie2), ::?•!• 

APHBATHN«3),W0RK1 (2 J 

APhBAThN«2,X'F0' 

APHCHKCTI5I, BLANKS CL E A» COUNTERS 

APHBATCH15>,APHBATCH<5) BATCH TOTAL 

APHCKKS(3» ,=C'DQO' 

APHV0DS13) ,-C»000' 

APHITMS<3J.=C'000» 

APHERRSJ3),-C«oDD* 

APHITMCCSU^CoOq' ITEM COUNT 

ZA«fOTL»2», = VlO+LMSG3«1» 

KACCTPAYtlSJ, BLANKS 

KACCTP*Y12»,=C»AP« 

UEND.C'N* NO OUTPUT RECORD? 

TERM YES 

R9,yj*10S3D 

RS.UACCTPAY 

RACCTPAYClfcS) ,HACCTPAY 

R8,PACCTPA¥ 

TERM 
^^^^^^l^^i,H^^<tf^l|^i»|^^^i^^*l)^^^**i)t***iti***^*^* ************ ****** 

VALIDATE LlNL 1 
********************** ***^ ********************** ****** 



c 



************ CHECK FOR AUO/CHANGE 



100 



EOU 



CHECK AOD-CHG 



YStlRAlL C 



120 



110 



IbO 



PRINT 


OFF 


PRINT 


ON 


MVI 


APHPRNT,C« • 


CLI 


UADD»C* • 


BNE 


LQUO 


CLI 


UCHG.C* • 


BNE 


L011C 


MVI 


PAOD.XMC* 


MVI 


PCHG.XMC 


MVI 


ERR,C'Y» 


B 


L0360 


CLI 


UADO,C» • 


BE 


LQ160 


CLI 


UCHG,C» • 


BNE 


L0120 


EOU 


* 


MVI 


APHAOCC'A* 


CLI 


UCHG.C* • 


BE 


Lai65 


MVI 


APHAOC.C'C' 


***** 


TRANSMIT POSITION 



CLEAR CHECK PRINT 



ADO 



CHANGE 



***^*^*^*^** TYPE 

165 CLI UTYPE.C* • 

BE L0170 

MVC APHTYPE t 1 » ,UT YPE 

B Lai75 

170 MVI APHTYPE, C'N* 

************ CHECK NUMBER 



TYPE ENTERED? 



NEW CHECK 



Figure C-10. APCHKS Action Program Processing a Dialog Transaction with Delayed Internal 
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c 



o 



206 
207 
208 
209 
210 
211 
212 
213 

2m 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22** 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23«» + 

2«»«l* 

2H5 

206 

2«»7 

2it8 

209 

250 

251 

252 

253 

250 

255 

256 

257 

258 

259 

260 

261 

262 

263 

260 

265 

266 

267 

268 

269 

270 

271 

272 

273 

270 

275 



AP «0RKl(2»,=Pn» 

UNPK APHBATHN«3),U0RK1(2J 

01 APhBAThN«2,X'F0' 

MWC APHCHKCU5), BLANKS CL E aR COUNTERS 

SP APHBATCHt51,APHBATCH(5> BATCH TOTAL 

KVC APHCHKS(3» ,=:C»ODO» 

MtfC APhW0DS(3» ,=^C»000» 

HVC APH1TMS<3»»=C'000' 

MVC APHERRS<3»,=C«oOo* 

HVC APHITMC(3l,=C»oOo' ITEK COUNT 

MWC ZAW0TLI2J , = ¥10*LMSG3«0J 

MWC KACCTPAY(15), BLANKS 

MWC KACCTP*Yt2»,=C«AP» 

CLI UEND.C'N* NO OUTPUT RECORD? 

BE TERM YES 

LA R9,Y$*10S30 

BAL R8,UACC1PAY 

MWC RACCTPAY( 165) .HACCTPAV 

BAL R8,PACCTPAY 

B TERM 

t^^:^^^^^^^:tii^*i^**r)L^****iHf*«>).=*^*****'^**'t'****'^* ****************** ****** 

* VALIDATE LlNL 1 

0^:^t,p^^^^:^^^*i)L*4*^*^** **************************************** ****** 

* 

^i^^,i^*^^^^*^^*^*« CHECK FOR ADO/CHANGE 

LOlOO EQU * 



CHECK ADO-CHG 



YtlTRAlL C 



L0120 



Loma 



L0160 



PRINT 

PRINT 

MWI 

CLI 

BNE 

CLI 

BNE 

MWI 

MWI 

MWI 

B 

CLI 

BE 

CLI 

BNE 

EOU 

MWI 

CLI 

BE 

MWI 



OFF 

ON 

APHPRNT,C» " 

UADD,C' • 

LOIOD 

UCHG,C» • 

LOlOO 

PAOD.XMC 

PCHG.XMC 

ERR,C«Y« 

L036Q 

UADD.Ct • 

L0160 

UCHG,C» • 

L0120 

* 

APHAOC.C A* 

UCHG,C« • 

L0165 

APHAOC.C'C 



CLEAR CHECK PRINT 



ADD 



CHANGE 



* 

*4>«4«««»«««««« TRANSMIT POSITION 2 

* 
* 

* 

L0165 



,*»**♦♦*♦ TYPE 



CLI UTYPE.C* * 

BE L0170 

MWC APHTYPE « 1 I ,UT YPE 

B L0175 

LD17a MWI APHTYPE, C'N* 
* 

««;»«A« «««:««««'» CHECK Number 



TYPE ENTERED? 



NEU CHECK 



Figure C-10. APCHKS Action Program Processing a Dialog Transaction with Delayed Internal 
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3«»6 


MWC 


KP A TROLL I «4),u VENDOR* 1 


GET EMPLOYEE 


317 


MWl 


KPA¥R0LL«1,C'0* 




3«t8 


LA 


R9,LG320 




3«t9 


B«L 


RS.GPAYROLL 




350 


MWC 


VHNAME (26) ,PMNAME 




351 


KVC 


VMADDRl (31 .PmBRw 


BPANCH OF WORK 


352 


B 


L033D 




353 LC300 


HVC 


KVENDORMt 5 »,U VENDOR 


GET VENDOR 


35«i 


LA 


R8,L0330 




355 


BAL 


R9,GVEND0RM 




356 L0320 


HVl 


PVENDOR.XMC 




357 


MWI 


ERR,C"Y' 





c 



362 


* 


MOVE 


VENDOR fO SCREEN 


363 


* 






361 




CLI 


UVENDOR.C'E' 


365 




BE 


L0335 


366 




PfVC 


UNAME(261 .VHNAME 


367 




MVC 


UADDRl(2b),VHADD 


368 




MVC 


UADDR2(25) ,VmADD 


369 




MVC 


UC1TY(25» .VMCITY 


370 




MVC 


UZIP(5>,VMZ1P 


371 




B 


L0340 


372 


L0335 


MVC 


UNAME(26) ,PHNAHE 


373 




MVC 


UADDRU3»,PMBRU 


37'* 


« 






375 


*«««** «*4>*««4r4. 


SYSTEM DATE 


376 


* 






377 


L0340 


KVC 


U0ATEt4),YYMKDD-» 


378 




MVC 


UDATE*4t2) ,YYMMD 


379 


♦ 






380 


*«*««« 


«^«^*4i:»« 


ANY ERRORS ON LI 


361 


* 






382 


LD36Q 


CLI 


ERR.C'Y* 


383 




BE 


FORMAT 


384 








385< 




PRINT 


OFF 


395< 




PRINT 


ON 


396 




CLC 


ZA«ITL(2) ,:Y(a«I 


397 




BH 


L0500 


398 




MVI 


UTRAN2,C«.« 


399 




B 


FORMAT 


400 


♦♦«««* 


«i»4i««4«4<4«4'««>»4i«4<«:»««»#«« 


401 


* 




VALIDATE SCREEN 


402 


««««««««:»]» 4i«4i««4i«i»^««:«««i«:i»«4 4,«:» 


403 


LD500 


EOU 


* 


404 




CLI 


UTRAN2,C'.' 


405 




BNE 


EMSe7 


406 


* 






407 


«««««««««*«««4i 


CHECK NAME 


408 


* 






409 




CLC 


UNAME (26» , PLANKS 


41U 




BNE 


LQ504 


411 




MVI 


ERR.C'Y* 


412 




MVI 


PNAML.X'IC 


113 


♦ 






414 


4t !»**«* *««***#* 


CHECK CITY 


415 


* 







FULL SCREEN? 



EMPLOYEE 

NAME 

LINE 1 

LINE 2 

CITY AND STATE 

ZIP CODE 

NAME 

BRANCH OF WORK 



o 



ERRORS? 



Y4STRAIL E 



FULL SCREEN? 
VERIFY FIELDS 
FLAG TO EXPECT FyLL SCREEN 



SHOULD BE FULL SCREEN? 

NO 



Figure C-10. APCHKS Action Program Processing a Dialog Transaction witli Delayed Internal 
Succession (Part 6 of 22) 
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o 



o 



Xw^' 



lib LC5Q4 CLC 

117 BE 

i»18 CLC 

119 BE 

121 MVI 

122 L05D7 EOU 

123 ♦ 

125 * 

126 

127* 

137* 

138 

139 

110 

111 

112 

113 

111 

115 

116 L051C 

117 

118 

119 

150 

151 L0515 

152 

153 

151 L052D 

155 

156 * 

157 

158 

159 

160 

161 

162 

163 

161 

165 ♦ 

166 

167 

168 LCJ510 



PRINT 

PRINT 

LA 

BAL 

B2 

HWl 

MVl 

EQU 
MVC 
LA 
bAL 
BZ 
MVI 
MVI 
B 

CLI 
BNE 
* IS TH 

CLI 
BNE 
CLI 
BNE 
PACK 
CP 
RNL 
MVl 

« 

MWC 

MVC 

BAL 

B2 

MVl 

MVl 

« 



UA00R2t25> iBLANKS 

LQ507 

UCIT¥*20I5I, BLANKS 

L05Q7 

PCITY.x'iC 

ERR.C'Y" 

« 

CHECK ZIP CODE 



OFF 

ON 

Rl.UZIP 

R7,RJ5 

L051D 

pzip.x'ic* 

ERR.C'Y' 



ROOM FOR ZIP? 



YttTRAIL G 



VALIDATE ZIP cODC 



CHECK AMOUNT 



PMSGl ClQl .UAMOUNT 
Rl .UAMOUNT 
RT.RJIO 

L3520 

PAmOUNT ,XMC' 
ERR.C'Y' 

L0510 

UAMOUNT ,C '0' 
10515 



SAVE INPUT 
VALIDATE AMOUNT 



AMOUNT 
YES 



TOO LARGE? 



IS A VOID CHECK? (NEGATIVE AMOUNTI 
UTYPE.C ' TYPE ENTERED? 

LQSUO YES-SKIP 

UCHG.C • CHANGE? 

LGS10 YES-SKIP 

W0RK1*1HS»,UAM0UNT*1(9J 
wORKl«llt5),-P'Q' NEGATIVE? 

L3510 NO 

APHTYPE.C'V VOID CHECK 



169 

170 
171 
172 

173 

171 

175 

176 L056Q 

177 

178 

179 

180 

181 

182 

183 

181 LOSfaS 

185 



CHECK DATE 

UORKI I 2 I ,UDA]E«1 

yORKI«2 II ) ,UUATL 

R7,DATCHK 

L056G 

POATE ,X'1C« 

ERR.C'Y • 



VALIDATE DATE 



CHECK OVERRIDE CHECK NUMBER 

EOU o 

CLI APhTYPE.C'V 

BNE LQS65 

CLC UOVERIDEl 5) .BLANKS 

BNE L056S 

MVC UAMOUNT ( ID) .PMSGl 

MVC PMSGl (LMSG12) .MSGl? 

B L3S75 

CLC UOvEfi IDE (5) .bLANKS 

BE LQ60C 



VOID CHECK? 



OVERRIDE 

RESTORE INPUT AMOUNT FIELD 



Figure C-10. APCHKS Action Program Processing a Dialog Transaction with Delayed Internal 
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<»86 

«87 

488 

189 LC575 

«»90 

191 

«i92 LD5&Q 

193 

«»9t • 

H95 ««4>««* 

<»96 ♦ 

«»97 ♦ 

198 L0600 

199 

50D« 

510* 

511 

512 

513 *««««« 

511 • 

515 «««««* 

51b 

517* 

527* 

528 

529 

530 

531 

532 

533 

531 

535 

536 

537 

538 

539 

510 

511 

512 

513 

511 

515 

516 

517 

51S 

519 

550 

551 

552 

553 

551 

555 

556 

557 L07Q0 

558 

559* 

569* 

570 

571 

572 

573* 



L» Rl.UOVERlOE 

BAL R7,RJ5 

B2 L0580 

MWI POVERIDE.X'IC 

HVI ERR.C'Y* 

B L0600 

MVl APHPRNT.C'N' 

MVC APHCHECKC5»,U0WERIDE 



SUPPRESS PRINT FLAG 
OVERRIDE CHECK NUMBER 



ANY SCREEN DATA ERrOrS 



ECU 



YS4TRA1L H 



PRINI OFF 

PRINT ON 

CLI ERR.C'V ERRORS 

BE FORMAT yES 

ADD/UPDATE CHECK RECORD 
******** ««*»m«««*^**i*^m^*v***i,«o^ii«^v^t^t****^«****ti^^m**m**** 

T»tTRAlL L 



PRINT 

PRINT 

MVI 

MVC 

MVC 

«Vc 

MVC 

PACK 

PACK 

MVC 

PACK 

MVC 

MVC 

MVC 

MVC 

PACK 

MVC 

MVC 

SP 

CLI 

BNC 

MVC 

LA 

BAL 

CLI 

BE 

PACK 

AP 

UNPK 

01 

B 

HVC 

PRINT 
PRINT 
LA 
BAL 



OFF 

ON 

CACCIPAY.C • 

CACCTPAY + nibU.CACCTPAY MOVE DATA TO CHECK 

APCRI0t2»,-C*AC' 

APcTYPe <1 » .APHTYPE 

APCCHECK(5»,APHCHECk 

APCTDATEt II ,YYMMD0(61 

APCDATE «1 ) .UOATE 

APCVENDRtS) .uVENDOR 

APCAMT<5) ,UAMOUNT*HV I 

APCNAME «26> ,UNAMt 

APCAD0RU25) .UADURI 

APCADDR2«25),JADDR2 

APCClTYCi'S J .LiCITY 

APC21P( 3> ,U2IP(5) 

APCLEGNUt2?>J,ULEGEN0 

APCPRNTI 1 ) .APHPHNT 

APHOlDC 51 ,APHOLD( El 

UCHG,C» • 

L0700 

RACCTPAYdfeSl.CACCTPftY 

R9,EHSG6 

R8,IACCTPAY 

APCPRNT.C'N* 

L0720 

UORKl (3),APHCHKCTI51 

U0RK1I3> t-P'i • 

APHCHKCTl5»,U0RKl(3» 

APHCHKCT»1,X*F0« 

L0720 

KACCTP*YI15I,CACCTP»V 



ADO CHECK 

UAS CHECK TO PRINT? 

NO 

UPDATE NExT CHECK NUMBER 



\y 



UPDATE CHECK 



OFF 

ON 

R9,EMS&1 

R8,UACCTPAY 



PRINT OFF 



ytSTRAIL I 



Y«»TRAIL n 
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^^^\ 









583* 


pRlNT 


ON 


584 


HVC 


APH0LD(5» .aPaMT 


585 


MWC 


RACCTPAYI 165>,CACCTPAY 


586 


BAL 


R8,PACCTPAY 


587 * 


SETUP 


HEADER WITH CHECK INFORMATION 


588 LC720 


KVC 


APHlTMCt3l ,=C'001' 


589 


MWC 


APhOATE(6>,JDATE 


590 


MVC 


APHVENDR(5) ,U VEND OR 


591 


2AP 


APHAMTIbJ ,APCAHT«5| 


592 


ZAP 


APHITMT(5> ,-P'O' 


593 


MVC 


APHNAME (26>,UNAME 


59'* 


MVC 


APHLEGND(25j .ULEGEND 


595 


SP 


APHACCR(5» .APHACCRrSJ 


596 


ZAP 


APHCASH(& ) ,:P»0' 


597 


SP 


APHCASH(5I ,APHAMT<B) 


598 


MVI 


APHERR.C • 


599 


MVl 


APHDONE.C • 


600 


MVC 


ZA(|PSID«6) .^C'APITMS' 


6C1 *»*»«**4*»«»«»**«*««»«*«»**»«»*«*««*«*<' ♦«*♦»•«♦*•*♦•♦•*** *•*«•*****• 1 


602 ♦ 




UPDATE AP HEADER 


603 ♦»»■»*»*•«»♦♦«♦♦*«*••♦«♦«♦«»«»«***»*»*»♦«♦«♦<'♦*♦**•♦♦**♦♦**•*♦*«••*♦» 1 


604 UPHeAOER 


EOU 


» 


605 




YtlTRAlL J 


606* 


PRINT 


OFF 


616* 


PRINT 


ON 


617 


MVC 


KACCTPA Yl 15 1 .BLANKS 


618 


MVC 


KACCTPAYI2l,rC'AP' 


619 


LA 


R9,Y»S10S3Q 


620 


BAL 


R8,UACCTPAY 


621 


MVC 


RACCTPAY(lfcS) .HACCTPAY 


622 


BAL 


HB.PACCTPAY 


(,23 *«♦■»♦«••♦«♦■»*«♦,♦<.»»*••»**•»♦••«♦«****<'»*■>*««*•••«♦•***»■>****♦*<'•*•» 1 


62M * 




FORMAT OMA 


625 * 






626 4i«A««<i«**«««*<'««««*»««i»« «««»««««*««« *««»<*« »«»«««<>«**«*«>S'0'*«*A* «««««« 1 


627 FORMAT 


EOU 


* 


628 




Y*tlRAlL K 


629* 


PRINT 


OFF 


639* 


PRINT 


ON 


640 


MVl 


USNAP.C* • CLEAR SNAP CODE 


6«»1 


YSSOUT 11 1 


6't2« 


la 


RO.ll .SCRELN NUMBER 


6«»3« 


BAL 


RS.MOVEOUT .SCREEN AND DATA 


t,l4l( «««<>«««« «««««««««««««««^«^«««««««*««««i)i««« «««««««*«««*«»«*«««««««««» 1 


615 * 




SETUP NEXT TRANSACTION 


(,«(6 *««>»♦«*«*♦«*«•*»•*♦••»•»•»•••*♦««*««««••«*♦»»*»♦<■«•<««*♦»»••*««♦•♦•♦♦ 1 


Ml 


CLC 


Z6«P&I0«fcJ»=C'ftPITM$» 


&«8 


SNC 


TER« r: 


6«« 


HVC 


ZA!lOTLr2»frHM»t» 


«>50 


MVC 


OfiA»«Hfc»,=C*APlTS ♦ : 


651 


MVI 


Z&KPSINO.C'O- 0EI.*f£3 If«T£Rf«AL SU€C£S5ia» J 


&S2 


S 


TtffM 


653 


y»jI0S15 .INPUT/OUTPUI STATUS 1 


f,Si* ************************************************** ********************* 1 


656** 




INTERNAL ROUTINES ♦ 


ft^T-tm* ************************************************************ ********* 1 


b%8** 






bS9* ****** ******** 


CHECK FILE 1/0 STATUS 


bbO** 
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b61«I0$TATU$ 


ORG 


« 


662* 


CLl 


ZA»PSC«ltQ .SUCCESSFUL? 


663« 


BNE 


YS1I0S05 .NO 


bit* 


MWl 


lOKEYtC' • .CLEAR KEV 


bbS* 


MWC 


IOKEY+1 (l^JtlO^EY 


666* 


BR 


R8 


667«Y*tI0S05 


CLI 


ZAKPSC*!,! .INVALID KEY? 


668* 


BER 


R9 


669« 


CLI 


2A«PDSC«1,5 .FILE NOT DEFINLD? 


670* 


BE 


YISIOSIO 


671* 


CLI 


ZA«PDSC»1,6 .FILE CLOSED? 


672* 


BNE 


Y»$I0S3O 


673*Yi$10SlD 


CLI 


lORET.C'Y* .RETURN ON FILE NOT AVAILABLE? 


bin* 


BNE 


Y1110S2D 


675* 


sR 


R8,R8 .FLAG FOR FILE NOT AVAILABLE 


676* 


BR 


R9 


677*Y$tI0S20 


MVC 


0Ma(LI0M2 I,1CM2 .FjLE NOT AVAILABLE 


678* 


MVC 


2AJI0TLI2J, = Y»Q«LI0M2«i») 


679* 


MVC 


0MA*0I0M2-I0M2,20» .lOFILE 


680« 


8 


TERM 


6ei*YHI0STR 


DC 


C'0123t)56789A8COEFX« 


682«I0H1 


DC 


X'lODAlSOllC 


683* 


DC 


C'iNvALIO FILE I/O • 


68«»«0I0M1C 


DC 


CL5* • .RIB STATUS 


68540I0M1A 


DC 


CL?1« • .FILE NAME 


686«D10M1B 


DC 


CL17' • .FILE KEY 


687* 


DC 


C'CALL ISO* 


688« 


DC 


xMDiao2aooo' 


689*LI0M1 


EQU 


♦-I0M1 


690«I0M2 


DC 


X'lODAlBOllC* 


691«D:0m2 


DC 


CL21* • .FILE NAME 


692* 


DC 


C'FILE NOT AVAILABLE' 


693* 


DC 


XMD1002D0Da» 


69^♦LI0M2 


EQU 


♦-I0H2 


695*Y«*I0s30 


MVC 


I0STS,?A«PSC 


696* 


TR 


10STS,Y»iI0STR .TRANSLATE TO PRINTABLE CHAR 


697* 


MVC 


0MA(LI0M1 » ,I0M1 .FILE NOT AVAILABLE 


698* 


MVC 


0MA*0I0MlA-I0MU21l,I0FILE 


699* 


mVC 


0MA*DI0M1B-I0MU16I,I0KCy 


700* 


MVC 


0MA*DI0M1C-I0MU'*),10STS 


701* 


MVC 


2AI(0TL(21 ,-Y«a«LlOMl*<tl 


702* 


B 


SNAP 


703 * 






704 ««*««««««««««« 


TABLE f'AsTER 1/0 


705 * 






706 T«BLfMT 


YS4GET a 1 


707** 






708»* 




GET 


709** 






71G«GTABLEMT 


MVC 


lOKEYCe ) .KlABLEMT .SAVE KEY 


711* 


MVI 


I0kEY*8,C'G' .TYPE OF I/O 


712* 


ZGnCALL GET,(tf IL.,RtFIL.,KCFlL. 1 | 


713* 


DS 


CH 


Tit* 


LA 


15,TABL£MT 


715* 


ST 


15,PLIST*<**(1-1 J 


716* 


LA 


15,RTABL£MT 


717* 


ST 


lh,PLlSl^>tfl2-H 


718* 


LA 


IS.KTABLEMT 


719* 


ST 


15,PLIST*H»(3-1 1 


720* 


01 


PLlST+t^iS-n ,X'60' 



c 



o 
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721* 
722* 
723* 
72it» 
725* 
726* 

727 * 

728 •* 

729 ♦ 
7JQ VE 
73I** 
732«* 
733** 
73m«GV 
735* 
736* 
737* 
738* 
739* 
7i«Q« 
7«tl* 
7<»2» 
7M3-* 
7<»<t* 
7'»5* 
7i»6* 
7M7* 
7'»8* 
7'«9-» 
750* 

751 * 

752 *« 

753 ♦ 
75m pa 
755** 
75b«* 
757** 
758«GP 
759* 
760* 
761* 
762* 
763* 
761 ♦ 
765* 
766* 
7b7* 
768* 
769* 
770* 
771* 
772* 
773* 
77<|-» 

775 * 

776 *» 

777 ♦ 

778 »C 
779,* 
780«* 



I.PLIST 
15,:v(6ti » 

IttlS 

(fGET.l .INCREMENT 
I0FILE«2C» .TABLEM 
jOSTATUS .CHECK 1 

«««««««««•«« VENDOR MASTER 1/0 

NDORM YSSGET 5 



LA 

L 

BALR 

Al 

MVC 
B 



10 COUNT 
T*8 .SAVE 
/O STATUS 



FILE 



GET 

ENDORM MVC I0KEY(5) .KVLNOORM 

MVI I0KEY*5,C'G* .TYP 
Z6»CALL GET,«tFIL.,R£Fl 

DS OH 

L* IS.VENDORM 

ST 15,PLIST«4#I1-H 

LA IS.RVENDORM 

ST 15,PLIST»M«(2-n 

LA IS.KVENOORM 

ST 15,PLIST*4«( 3-U 

01 PLIST*it«j3-l) ,X'80' 

LA I.PLIST 

L 15,rv«6ET) 

BALR IM.IS 

AI MGET.l .INCREMENT 

MVC lOFlLE {2ijl .WLNDOR 

B lOSTATUS .CHECK I 



.SAVE KEY 
E Of I/O 
L.,KCFIL. I 



»««««««««««« PERSONNEL HASTER 
YWOLL Y5JGET i« 
GET 



10 COUNT 
M«8 .SAVE 
/O STATUS 

I/O 



FILE 



AYROLL MVC lOKEYCH), 

HVI IOKEY*«»,C 
7G«CALL GET,(tF 

DS DH 

LA IS.PAYROL 

ST IS.PLIST* 

LA IS.RPAVRO 

ST 15,PLIST« 

LA IS.KPAYRC 

ST 15,PLIST« 

01 PLIST*"**! 

LA l.PLIST 

L 15,=W(6ET 

BALR m.lS 

A I KGET.l .1 

MVC I0FILE(2D 

B lOSTATUS 



KPAVROLl 
•G* .TYP 
IL.,R£F1 



.SAVE KEY 
E OF I/O 
L.,KCFIL.» 



LL 

«»*«2-l) 
LL 
«»«(3-n 

3-l),X'8C 

) 



10 COUNT 
L*8 .SAVE FILE 
•CHECK I/C STATUS 



NCREMENT 
} ,PA YROL 



♦ «,♦«»«♦**♦*• ACCOUNTS PAYABLE MASTER I/O 



CTPAY Y»$GET 15 



GET 



V. 
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781** 

782«G»CCTPAt 

783* 

781* 

785« 

786* 

787« 

788* 

789* 

790* 

791* 

792* 

793* 

79H* 

795* 

796 + 

797* 

798* 

799 ACCTPftt 

800** 

80i«* 

802«* 

8D3*U*CC1PA» 

805» 

806* 

807« 

808* 

809* 

8I0« 

811« 

812* 

813* 

811* 

815* 

816* 

817* 

818* 

819* 

820 ACCTPAT 

821** 

822** 

823** 

82<»*PACCTPAr 

825* 

826* 

827* 

828* 

829* 

830* 

831* 

832* 

833* 

Bin* 

835* 

836* 

837* 

838* 

839 ACCIPAV 

ai<o** 



«VC lOKEYdSJ .KACCTPAY .SAVE KET 

MVI I0KEr*15,C«G« .TyPE of I/O 

ZG«CALL 6ET,(£,FIL.,R£.FIL.,KtFIL.» 

OS QH 

LA IS.ACCTPAY 

ST 15,PLlST*q«(i-ll 

LA IS.RACCTPAY 

ST 15,PLIST«4«(2-1» 

LA 15, KACCTPAY 

ST 15,PLIST«M*(3-1I 

01 PLIST*"**! 3-l»,X'feO« 

LA l.PLIST 

L 15,=V«GEtJ 

BALR lil.lB 

AI HGET.l .INCRtHENl 10 COUNT 

MVC I0FILE«2CI,ACCTPAY*8 .SAVE FILE 

B lOSTATUS .CHECK l/Q STATUS 

Yt$GETUP 15 

6ETUP 

M«C I0KEYU5I .KACCTPAY .SAVE KEY 

MVI I0KEY*15,C'U' .TyPE OF I/O 

ZGACALL 5ETUP,(tFlL.,RtFIL. .KtFIL .) 

OS UH 

LA 15,ACCTPAY 

ST IS.PLISl.^^Cl-l) 

LA IS.RACCTPAY 

ST 15,PLIST*it*C2-l ) 

LA 15,KACC1PAV 

ST 15,PLIST*'«»(3-1I 

01 PLIST*»i«»3-l) ,X'80' 

LA l.PLIST 

L 15,=V(GE1UP| 

BALR lil.lS 

AI KGETUP.l .INCREMENT 10 COUNT 

WVC I0FILE(2c».ACCTPAY*8 .SAVE FILE 

B jOSTATUS .CHECK I/O STATUS 

YSjPUT 15 

PUT 

MVC lOKEYIlSJ .KACCTPAY .SAVE KEY 

MVI I0KEV*15,C*P' .TyPE OF I/O 

2GBCALL PUT.UF IL.,RtFlL.) 

DS OH 

LA IS.ACCTPAY 

ST 15,PLIST*<»*(l-n 

LA 15,RACCTPAY 

ST 15,PLrSU^•(^-l» 

01 PLIST*t*(2-l» ,X 'eo* 

LA l.PLIST 

L 15,-VIPUII 

BALR m,15 

AI (fPUT.l .INCREMENT 10 

MVC I0FILEC2Q),ACCTPAY«8 

B lOSTATUS .CHECK I/c 

YtilNSRT 15 



c 



COUNT 

.SAVE 

STATUS 



FILE 



o 



Figure C-10. APCHKS Action Program Processing a Dialog Transaction with Delayed Internal 
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o 



8Ml-»* 




INSERT 


8»»2«« 






8««3*IACCTPAY 


MVC 


I0KEV<15» .KACCTPAY .SAVE KEY 


8<m« 


MWI 


i0KEv«i5,c'i' .Type of i/o 


815* 


ZGSCALL INSERT, (CFIL. , RCFIL . ) | 


ai*b* 


OS 


GH 


8M7* 


L* 


IS.ACCTPAY 


6t8-< 


SI 


15,PLlST«t«ti-l) 


8i*9* 


LA 


IS.RACCTPAY 


850* 


ST 


15,PL1ST«4«(2-1 ) 


851* 


01 


PLIST*1»(2-1 ) ,X'8Q' 


852* 


LA 


I.PLIST 


8554 


L 


1S,:VIINSERTI 


BSH* 


BALR 


m,16 


856 + 


AI 


SINSERT,! .INCREMENT 10 COUNT 


856 + 


MVC 


ICriLE (20) ,ACCTPAY-»8 .SAVE FILE 


857* 


B 


lOSTATUS .CHECK I/C STATUS 


858 


YMNOW QATE-TIME | 


859** 






86C«*******«»«*»*« 


DATE AND TIME STAMP « «i*»«» *♦#♦*♦»*♦««*♦•♦*♦»*» »•««♦*♦• 


861-t* 






862*D«YTIf*E 


ORG 


« 


863* 


GETIME S 1 


861* 


DS 


OH 


865« 


SR 


Itl 


86fc* 


S¥C 


7 


867* 


ST 


RO.WORkI .date-qtymmdo* 


868* 


UNPK 


UORKl***!? t lUORKKm 


869* 


MVC 


YYMM00(6) ,W0RK1*5 


870* 


01 


VYMMD0*5,X'FQ' .FIX SIGN 


871* 


ST 


Rl.UGRKl .TIME-OHHMMSS* 


872* 


UNPK 


U0RK1*M (7 ) .yORKlltl 


873* 


MVC 


HHMHSSI6) ,U0RK1*5 


e?"!* 


01 


HHMMSS«S,X'FG* .FIX SIGN 


875* 


BR 


R7 .RETURN REGISTER 


876 


y$$Rj 


RIGHT JUSTIFY 


877 + « 






87g4«««»«*«««««<i«4i 


RIGHT JUSTIFY **•*♦*• «««^*^ ««•»*•*«»»♦♦♦**♦»**♦*♦»•♦•*♦• 


879** 






880** 






881*« 




RO - FIELD LENGTH 


882** 




Rl r FIELD ADDRESS 


883** 




R15 - RETURN STATUS 


BBt** 






885+RJl 


LA 


RQ.l .SET LENGTH 


886* 


B 


RJ 


887*RJ2 


LA 


rO,2 .SET LENGTH 


888* 


B 


RJ 


889+RJ3 


LA 


R0,3 .SET LENGTH 


890* 


B 


KJ 


891-.RJM 


LA 


R0,<» .SET LENGTH 


892* 


B 


RJ 


893+RJb 


LA 


R0,5 .SET LENGTH 


89i»* 


B 


RJ 


895+RJ6 


LA 


R0,6 .SET LENGTH 


896* 


B 


RJ 


897+RJ7 


LA 


R0,7 .SET LENGTH 


898* 


B 


RJ 


899+RJ8 


LA 


R0,8 .SET LENGTH 


900* 


B 


RJ 
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90URJ9 

902* 

903*RJX0 

90^♦ 

905+RJll 

906* 

9a7*RJ 

908* 

909* 

910* 

911« 

912* 

913* 

911* 

915* 

916 

917«* 

918* ♦»•*»* 

9X9«« 

92a-»D*TCHK 

921* 

922+DATCHK 

923* 

92«»* 

925* 

926* 

927* 

928* 

929* 

930* 

931 + 

9 32* 

933* 

93«»* 

935* 

936* 

937* 

938* 

939* 

9«(0*DV0UT 

9«ti* 

9«t2* 

913 

9«tM«* 

9M5««*»«»* 

9i»6** 

9'»7«H0VCIN 

9«(8* 

949* 

950* 

951* 

952* 

953* 

95<»* 

955* 

956* 

957* 

958* 

959* 

960* 



LA R0,9 .SET LENGTH 

B RJ 

LA RO.IO .SET LENGTH 

B RJ 

LA RQ.ll .SET LENGTH 

B RJ 

ST R7,RJSAVE .SAVE RFTUHN ADDRESS 

LA R13,SAtfE .PROGRAM SA«C AREA 

DC OYIOI 

EXTRN MODRjl .RIGHT JUSTIFY MODULE 

L R15,rA(M0DRJl ) 

BALR R11,R15 .BRANCH TO RJ 

L r7,RJSAwE .RESTORE RETURN ADDRESS 

LTR RIS.RIS .SET CONDITION CODE FOR ERRORS 

BR R7 .RETURN TO CALL 

rSSOATE DATE VALIDATION 

«««««««« DATE VALIDATION «««««««««««««*«««««««** «»*««»*«*««««#«^4i 

YM MVl yORKl««l ,C 'O* .PLUG DAY z 1 

KVI K0RK1»5,CM" 

ST R7,DVSAVE .SAVE RETURN ADDRESS 

LA Rl.yORKl 

BAL R7,RJ6 .TEST FOR NUMERIC 

BNZ DVOUT 

LTR R7,R7 .SET CONDITION CODE 

CLC WORKltZ 1 ,=C'7a' .UNDER LOW YEAR? 

BL DVOUT 

CLC U0RKH2I ,:C'99' .OVER HIGH YEAR? 

BH DVOUT 

CLC W0RKi»2C2 ) ,-C*Dl' .UNDER LO M MONTH? 

BL DVOUT 

CLC U0rKI«2(2 I ,-CM2' .OVER HIGH MONTH 

BH DVOUT 

CLC WORK!*!* 12 I ,-C "Ql' .UNDER LOU DAY? 

BL DVOUT 

CLC W0RK1*M (^ ) ,-C '31' .OVER HIGH DaY? 

BH DVOUT 

SR R7,R7 .DATE qK 

LTR R7,R7 .SET CONDITION CODE 

L RT.DVSAVE .RESTORE RETURN ADDRESS 

BR R7 
Y$»MV1N INPUT SCREEN FORMATING 

«««««•«« HOVE IMA DATA TO SCREEN WORK AREA 

ST HO, SCREEN* .SCREEN NUMBER 

MVC lOKE Ytl > tSCREENK .SCREEN NUMBER 

MVI iOKEY*'»,C'G« .GET 

MVI lOFILE.C • 

MVC I0FILE«UI91,I0FILE .CLEAR TO SPACES 

MVC lOF ILE{ lil ,:C'SCREEN FORMAT' .FILE NAME 

ZGKCALL MSGIN.lSCRNUM.lNtMSG) 

DS OH 

LA 15,SCRNUM 

ST 15,PLIST«i**lI-l I 

LA IS.INJMSG 

ST IS.PLIST+H^iZ-l) 

01 PLIST*"**!?-!) ,X'bG« 

LA l.PLIST 



c 



x»^y^ 
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V61* 


L 


lb,:V(fiibINj 




962* 


BALR 


IH.ls 




963* 


LA 


R9,ABTERM .1/0 ERROR ADDRESS 




<)bH* 


B 


lOSTATUS .CHECK I/O STATUS 




965 


YilMWOUT OUTPUT SCREEN FORMAT | 




966«* 








<ffy7 ******* ******** 


MOVE DATA FROM SCREEN WORK AREA TO OMA 




968«* 








969«M0»E0UT 


ST 


RO, SCREEN* .SCREEN NUMBER 




970* 


MVC 


lOKEyC* ) , SCREENk .SCREEN NUMBER 




971* 


MWI 


10KEY*t,C'P' .PUT 




972* 


HWl 


lOFlLE.C ' 




97 3* 


MVC 


I0FILE*1( 19I,10FILE .CLEAR TO SPACES 




97«»* 


MWC 


I0F1LE«U>,;C 'SCREEN FORMAT* .FILE NAME 




975* 


ZGHCALL MS60UT, (SCRNUH.OUTIMSG.PDATA » .SCREEN AND DATA | 




976* 


OS 


DH 




977* 


LA 


IStSCRNUM 




978* 


ST 


15,PLIST«'+*(1-1) 




979* 


LA 


15,0UT«mSG 




980* 


ST 


15,PLIST«»»»{2-1 ) 




981* 


LA 


IS.PDATA 




982* 


ST 


15,PLIST«'4«(3-1 1 




983* 


01 


PLIST*"**! 3-1 1 .X'bO' 




98H* 


LA 


1 ,PLIST 




985* 


L 


15,-V(HSG0UT) 




986* 


BALR 


iM.lS 




987* 


B 


YltMOOlU 




988*H0V£0UTS 


ST 


RO.SCREENII 




989* 


MWC 


lOKEYI'* » .ScREtNK .SCREEN NUMBER 




990* 


MWl 


IOK£Y«'«,C'P' .PUT 




991* 


MWl 


lOFILE.C • 




992* 


MVC 


l0FILE«U19»,I0FILE .CLEAR TO SPACES 




993* 


MVC 


lOFILE ( 13 1 ,-C*SCREEN FORMAT* .FILE NAME 




99q* 


ZGKCALL MSGOUT, ( SCRNUMI .SCREEN ONLY (NO DATA! | 




-995* 


OS 


CH 




996* 


LA 


IS.SCRNUM 




997* 


ST 


IS.PLISl,^*! 1-1 1 




998* 


01 


PLIST*'i*t 1-1 1 ,X*60* 




999* 


LA 


1 .PLIST 




1000* 


L 


15, ;V (MSbOUTI 




IDDl* 


BALR 


IM.IJ, 




1D02*YS»M0G1C 


LA 


R9,AbTERM .1/0 ERROR ADDRESS 




1003* 


B 


lOSTAIUS .CHECK I /C STATUS 




100<4 APCHKS 


YJiSNAP SNAP DU"P 1 




10D5** 








lODb* ****** ******** 


SNAP DUMP OF ACTION PROGRAM ♦«#*•**•*»«♦♦♦»***«♦••♦*♦•• 




1007«* 








iao8*SNAPn 


ORG 


» 




10Q9* ZGUCftLL SNAP,(Z&lfOPId,L^^,ZAllI^'lH,EI ,WORK,EW,ZAKOMH,CO,CN*H. ,YHE» | 




1010* 


DS 


Cm 




1011* 


LA 


l5,ZA«0PIB 




1012* 


ST 


15,PLISTti4«( 1-1 ) 




1013* 


LA 


15, EP 




lom* 


ST 


1S,PLISI«M»(2-1) 




1015* 


LA 


15,ZAIlIMh 




1016* 


ST 


1 5,PL ISl^M-^i i-I ) 




1017* 


LA 


15, E I 


i 1018* 


ST 


15,PLIS1-H4*H«-1 ) 


1 1019* 


LA 


15,«CRK 




1 1020* 


ST 


15,PLlST*'<»lb-l 1 



r 
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' 1021* 
1022« 
1023* 

1025* 
1026* 
1027* 
1028* 
1029* 
1030* 
1031* 
1032« 
1033* 
103«»» 
1035* 

1036 **♦«♦• 

1037 * 

1038 ****** 
1039 

lOf^O*** *•*♦ 
lOtl** 
10M2******* 
10*i3*TE.RM 

10M5* 

IQHb* 

ia«t7««BTER« 

lOilS* 

10«»9«SNAP 

1Q50+SNAP 

1051* 

1052* 

l053* 

105<t* 

1055* 

1056* 

1057* 

1058* 

1059* 

1060* 

1061* 

1062* 

1063* 

iObH* 

1065* 

1066* 

1067* 

1068* 

1069* 

1070* 

1071* 

1072* 

1073* 

107<l« 

1075* 

1076* 

1077* 

1078* 

1079* 

1D80*F1NISH 



L» 15, EW 

ST 15,PLIST«'»*16-1 » 

L* 16,ZA«0MH 

ST 15,PLIST*'4«(7-1) 

LA 15, EO 

ST 15,PL1ST*M«(8-1 ) 

LA IS.APCHKS 

ST IS.PLISl^M^jg-l J 

LA 15,yt»E 

ST 15,PLIST*4«(ia-l) 

Ol pLIST*"**! 10-1 1 ,X«8C 

LA 1,PL1ST 

L 15,-V{SNAPI 

BALR 14,15 

BR R7 .RETURN StGISTER 

TERMINATION 

YSSTERH 

PROGRAM lERMlNATlON « 

cli isnap.c'n' .rEqulst normal tepmination uith snap? 

SNAP .YLS 

ISNAP.C'S' .REQUEST ABNORMAL TERMINAlION WITH SNAP? 
FINISH .NO-NORMAL TERMINATION 
ZA«PSINU,C*S' .TERMINATE WITH SNAP OUMP 
FINISH 
M 



>««*«« <!«««««« ««*«*«*<r««4i«^««*49««« 



BE 
CLI 

BNE 

MVI 

B 

GET I ME 



OS 
LA 
SVC 
ST 



OH 

1,1 

7 

Rl.ETIMt 



ST RI,ETIMt 

ZG8CALL SNAP,C2Al(DPiB,EP,ZAtlIMH,EI,W0RK,EW,ZAir0MH,C0,YiiB,TSSEI 

DS GH 



DS GH 

LA 15,ZA»DPI6 

ST IS.PLIST^^si 1-1 

LA 15, EP 

ST 15,PLIST*M«(2-1 

LA 15,2A(IIMH 

ST 15,PLIST*'4»(3-1 

LA 15, EI 

ST 15,PLIST*4*(4-1 

LA 15,yORK 

ST 15,PLIST«4»(5-1 

LA 15, EU 

ST 15,PLIST4i»»<6-l 

LA 15,2AII0MH 

ST 1S,PLIST*4*(7-1 

LA 15, EO 

ST 15,PL1ST««»*J8-1 

LA IS.YSSB 

ST 15,PLIST*4*I9-1 

LA IS.YSSE 

ST 15,PLIST*"»*tiQ-.. 

01 PLIST*4»C1D-1 I ,X'80* 

LA l.PLIST 

L 15,=V(sNAP) 

BALR 1«I,15 

GETIME M 



o 
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o 



1081*F1 

1082* 

1083* 

l08«»* 

1085* 

1086« 

108T* 

1088* 

1090 

ia91*EM 

1092* 

1093* 

109»» 

1095*tM 

1096* 

1097* 

1098 

1099+EM 

1100* 

1101* 

1102 

1103*EM 

110«»* 

1105 

1106 

1107 

n08*EK 

1109* 

1110* 

nil 

1112+EM 
1113* 

nil* 

1115 

1116*E« 

1117* 

1118* 

1119 

1120*EH 

1121* 

1122* 

1123 ♦* 

112't * 

1125 

112b 

1127 

1128 

1129 

1 130 

1131 

X132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

ii'»a 



NiSH 



Ac 
TA 

VE 
PA 
BL 

* 

♦ 
MS 



MS 



SGI 



SG2 



S63 



SGI 



SG5 



SG6 



S&7 



SG8 



CTPAY 
bLEHT 
NDORM 
YHOLL 
ANKS 



OS 

LA 

SVC 

ST 

2GII 

DS 

L 

BAL 

YSS 

NVC 

HVC 

B 

t*$ 

MVC 

MVC 

8 

YSj 

NVC 

MVC 

B 

Y»i 

MVC 

HVC 

MVC 

B 

Y5$ 

MVC 

MVC 

B 

Y*$ 

MVC 

MVC 

e 

YS5 
MVC 
MVC 
B 

Y4i 
MVC 
MVC 
B 
*♦♦♦ 

DC 
DC 
DC 
DC 
DC 




1 
7 
P 

CALL 

1 

R 1 

MSG 


z 

T 
MSG 



z 
1 

MSG 


z 

MSG 

Z 



MSG 



z 

T 

MSG 



z 

T 
MSG 



z 

T 

MSG 



z 

T 

C 
C 

c 
c 

c 

C 



H 
.1 

LET 
RET 
H 

5,:V 
4. IS 
1 

MA(L 
A«fOT 
ERM 
2 

MA(L 
AffOT 
ERM 
3 

MA (L 
AdOT 
ERM 
H.N 
MA(L 
A»Ot 
OHA* 
TERM 
5 

MA (L 
A«Ot 
ERM 
6 

MA (L 
A»OT 
ERM 
7 

MA(L 
A«OT 
ERM 
8 

MA tL 
AKOT 
ERM 
«•«• 
ONST 
«««« 
•ACC 
•TAB 
•VEN 
•PAY 
L80' 



IMS .ENDING TIME 

URN .RETURN CONTROL TO IMS 

(RETURN! 



MSGl ) ,MSG1 

L «2» ,-YiQ*LMSGl*'4) 



MSG2 ) ,1SG2 

L I 2 J ,-Yt 3*LMSG2*4 > 



MSG3) ,MSG3 

L t 2 ) , -Y(Q»LMSGi*'4 ( 



MSG4 I .MSGM 

LC2 ) ,:YlJ♦LMSG^♦<^ » 

mija-msg** ( 1 si .KAcCTPAY 



MSGh ) ,MS&5 

L f 2 ) , -r (0«LHSG5< M ) 



MSCb ) ,MSG6 
L(2i,rY(Q«Lf'SGb-m) 



MSG7 ) ,«SG7 

L I 2 ) , =r I O + LMSG?*"*! 



MSGo ) ,MSG8 

L (2 ) , ZY ( 0*LMS68-«4 1 

AM b 

TPAl SCCOUNIS PAYABLE * 

LEM7 SLCURIT Y/COOE S • 

OOHH VLNDOR MASTER ' 

ROLL PAYROLL fASTEW ' 



«««««•««*««* MESSAGES 
Gi 



DC X 'lOCAl 82 1 IC 

DC C 'PLEASE USE "TRANSMjT 

DC X '1010021000. 

Sbl EQU •-MS&1 

G2 DC X'lOGAlbLllC 

DC C'THE «CCOuaS PAYABLE 

DC C'PLEASL CC\14CI ISO* 



UNPROT DISPL" KEY TO RETRANSMIT' 



CONTROL RECORD CAN«40T SE FOUND. • 



o 
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1111 




DC 


X«lDl00200Da* 




ll'»2 


L«S62 


EQU 


♦-MSG2 




1143 


HSG3 


DC 


X'IOOAOQqQ' 




lln"* 




DC 


C»A/P BATCH « • 




lli*S 


H3A 


DC 


CL4« • BATCH « 




1146 


H3B 


DC 


X»40212D206120206I2Q20' DATE 




1147 




DC 


CL5« • 




1148 


M3C 


DC 


CL3' • n OF CHECKS 




1149 




DC 


C« CHECKS TOTALING *• 




1150 


M30 


DC 


X '4 0206 820202 06820 2 12 048202 06 0' 




1151 




DC 


x'looaoooQ' 




1152 


LMSG3 


EQU 


♦-MSG3 




1153 


0K3A 


EQU 


M3A-MSG3 




1154 


DI136 


EQU 


K3B-MSG3 




1155 


DH3C 


EQU 


M3C-MSG3 




1156 


DH3D 


EQU 


M3D-MSG3 




1157 


MS64 


DC 


X 'lODAlBDUC' 




1158 


M4A 


DC 


CL15* • 




1159 




DC 


C'=THIS CHECK CANNOT BE FOUND. PLEASE 


CORRECT AND RETRY* 


1160 




DC 


X«1D1D0200D0' 




1161 


LHSt4 


EQU 


«-«SG4 




1162 


MSG5 


DC 


X'lDDAieOllC 




1163 




DC 


C'ACTIVITY FOR THE PREVIOUS cHfCK IS 


NOT COMPLETE* 


1164 




DC 


X '1D10020000' 




1165 


LMSG5 


EQU 


•-HSG5 




1166 


NSG6 


DC 


X MOOAieoiic' 




1167 




DC 


C'THIS CHECK IS ALREADY IN OUR FILE. 


1 


1168 




DC 


C'PLEASE CORRECT AND RETRY' 




1169 




DC 


X'1D1002C0DQ' 




117a 


LMSG6 


EQU 


«-MS66 




1171 


MSG7 


DC 


X 'jooAiauuc' 




1172 




DC 


C'THE CURSOR JAS NOT IN THE EXPECTED 


POSITION. ' 


1173 




DC 


C'PLEASE CORRECT AND RETRY' 




1174 




DC 


X'1U1002CQC3' 




1175 


LMSG7 


EQU 


*-MS67 




1176 


MSG8 


DC 


x'looAaoooic' 




1177 




DC 


C'THIS ACTION HAS BEEN TERMINATED B>' 


OPERATOR REQUEST* 


1178 




DC 


X'1D10C200CJ' 




1179 


LHS08 


EQU 


«-HSG8 




1180 


M569 


DC 


x'lc 




1181 




DC 


C'lTEMS TOTAL r« 




1182 


M9A 


DC 


X '4020202 0202 021 2 04B 2 02060' 




1183 




DC 


X'lD' 




1184 


LMSG9 


EQU 


*-MSG9 




1185 


0H9A 


EQU 


M9A-MSG9 




1186 


MSGn 


DC 


x'ic« 




1187 




DC 


C'CASH NOT z Q' 




1188 




DC 


X'lD' 




1189 


LMSGIO 


EQU 


•-MSG10 




1190 


HSGll 


DC 


X'lC 




1191 




DC 


C'ACCRUAL NOT : D' 




1192 




DC 


X 'ID* 




1193 


LMSGll 


EQU 


»-HSGll 




1194 


HS&12 


DC 


X'lC 




1195 




DC 


C'VOID CHECK REQUIRES OVERRIDE CHECK 


NUMBER' 


1196 




DC 


X'lD' 




1197 


LHSGI2 


EQU 


»-MS612 




1198 




PRINT 


GEN 




1199 




tSSPTB .PROGRAM INFORMAION bLOCK 
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V^y 



120Q***»*** *•***•*♦*»*•♦♦*•*'*•*»***»*••***•******** •♦•*•**♦♦*************** 


1201** 


LITERAL POOL • 


1202* *♦♦♦*♦*•««*»♦«*♦«*♦♦*♦♦**♦♦*♦***♦*♦**♦***•***•*•***♦*♦♦******* ♦*♦*♦**** 1 


1203* 


LTORG 


120II* 


:V(GET» 


120S* 


-VCGETUPj 


1206* 


rVJPUTI 


1207* 


rVUNSERU 


1208* 


-ACMODRJl » 


1209* 


-WtMSGIM 


1210* 


:iV(MSGOUT) 


12n* 


-V«SNAP » 


1212* 


= W(RETUfiN > 


1213* 


-Y(a*LtllMl«4 1 


121'4 + 


rC'AP' 


1215* 


-Y(D*1MA1 1 


1216* 


-C'2BATCH' 


1217* 


-t (0*LMS63*4 ) 


1218* 


rY(0*IMA3» 


1219* 


:C'AC* 


1220* 


-C'APITMS* 


1221* 


-H'm* 


1222* 


rC'APITS • 


1223* 


-Y(0*LI0HZ«i4) 


122H-* 


xY«Q*L10rl*4) 


122S* 


:C«7D' 


1226* 


=C'99' 


1227* 


-C'Ol • 


1228* 


-C*12' 


1229* 


:C*31 ' 


1230* 


:YtO«LHSbl*m 


1231* 


-YtO^LMSb?*"*! 


1232* 


-Y(0*LMSG'4*'»» 


123J* 


rY{0*LMSC5*4) 


123^* 


:Y10-»LMSG6*M 1 


1235* 


-Y^0*L^'S07*^ » 


1236* 


:Y«0*LfSGa«M » 


1237* 


rC'APCHK • 


1238* 


rC'ISC 


1239* 


-C 


12«tO* 


zCADO* 


12'4l* 


= P'l • 


1242* 


rC'OCO" 


12t3* 


rC'DDDOa* 


124H* 


zP'D* 


1215* 


^C'OCl' 


12«»6« 


-C'SCREEN FORMAT* 


12«»7*Yi4C 


EQU • .End of PROGRAH 


j 1369 UORK 


YSSUORK .WORK AREA 


' 1 Z7Q*** ********************** *************************^*********^** ********* 1 


1371*» 


WORK AREA * 


1372 *****«*«•**************•**************«*«*********<'*'*** *********^******* 1 


1373*WORK 


DSECT 


137<I*STIM» 


DS A .START TIME {MILLISECONDS » 


1375*ET1M» 


DS A .END TIME (MILLISECONDS) 


137fa*»GET 


DS H .NUMBER OF GET 


1377*»6E1UP 


OS H . GETUP 


1378«IPUT 


DS H . PUT 


1379*»1NSERT 


DS H . INSERT 


138a*S«VE 


OS 18F .PROGRAM SAVE AREA 
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ijai*PtisT 

1582*UH0 

1383+UORKl 

138«»*P*SSKET 

1385+IOFlLE 

X386*I0KE:t 

1387»I0STS 

1388«I0RET 

1389«ERR 

i3»0*vyMH0D 

i39l«HHMMSS 

1392 RJSAVE 

1393 DVSAVE 

1394 TRAILS 

1395 TRAILSl 

1396 TRAIL$2 
1397 
1398*« 

1399«»»*»**** 
1<»00«* 
l'»Dl*SCRNUM 
l«»02*SCRtENt 
mD3«SCREENy 
l«»D>»»MAxnL 
1M05** 

1<«06****«**** 
110?** 
m08*U0ATA 
l'«D9»0UTiMSG 
l'«10*FILL 
1«H1«IN1HS6 
1*»12 ♦ 

1*13 ••*«««•♦ 
I'*!'* • 
1«»15 USTART 
1«H6 UTRAN 
im? USNAP 
mi8 IHAl 
lill9 UAOD 
1<»20 UCHG 

1421 UEMO 

1422 UlyPE 

1423 UCHECK 

1424 UTRANI 

1425 IMA2 

1426 UVENDOR 

1427 0TRAN2 

1428 IHA3 
l'»29 ULEGEND 

1430 UNAHE 

1431 UAUORl 

1432 UA00R2 

1433 UCITY 
l'»34 U2IP 

1435 UAMOUNT 

1436 UDAIE 

1437 UOVLRIDE 

1438 UTRAN3 

1439 LUOATA 
14j,a USTOP 



OS 

OS 

OS 

EOU 

DS 

OS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

OS 

OS 

YSSSH 



4A . 
CL3 
2D . 
WORK 
CL20 
CL20 
CLt 
CLl 
CLl 
CL6 
CL6 
A 
A 

CL26 
A 
A 
ORK 



PARAMETER LIST FOR "CALLS" 

.USER INITIALS 

WORK FIELD 

1,5 .SECURITY RECORD FILE KEY 

.LAST FILE I/O 

• LAST FILE 1/0 KEY 
.LAST FILE I/O STATUS 
.FILE NOT AVAILABLE-RETURN 
.ERROR FLAG 
.DATE 
.TIME 



•SDMPS WORK AREA 



«««*4t* SDMPS WORK AREA «**•««*«»*«*««««««««*«*«»«««««*««**«»*** 



DS D .SCREEN NUMBER 

EQu SCRNuM«4,4 

DS CL180 .SCREEN; yORK 

EQU SCREENW.i .,>1AXIMUM 

***««* SDMPS 1/0 AREAS 



AREA 
INPUT 



TEXT LENGTH 



Egu 

EQU 

DS 

EQU 



EOU 

DS 

DS 

EOU 

DS 

DS 

OS 

DS 

DS 

DS 

EQU 

DS 

DS 

EQU 

DS 

OS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

EQU 

OS 



* .OUTPul MCbSAGE DATA 
CLl .OUTPUT FILL CHARACTER 
» .INPUI MESSAGE DATA 

UNPROTECTED UATA 



CL5 
CLl 

«-USTAR T 

CLl 

CLl 

CLl 

CLl 

CL5 

CLl 

*-USTART 

CL5 

CLl 

*-USTAR T 

CL25 

CL26 

CL?5 

CL25 

CL25 

CL5 

CL13 

CL6 

CLS 

CLl 

4-UOA T i -i 

CLl 



TRANSACTION CODE 
SNAP CODE 

ADD 

CHANGE 

END 

CHECK TYPE 

CHECK NUMBER 



WENDOR CODE 



CHECK LEGEND 

PAYEE NAME 

PAYEE ADDRESS LINE 1 

PAYEE ADDRESS LINE 2 

PAYEE ClTy AND STATE 

PAYEE ZIP CODE 

CHECK AMOUNT 

CHECK DATE (MMDDYYI 

OVERRIDE CHECK NUMBER 
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x^' 



mil 


* 








m^a 


«4«««««*«^«^«4 


PROlECTtD REPLACEMENl 


DATA 


liC^J 


» 








ItMi* 


PDAIA 


EOU 


» 




1415 


PSTART 


EOU 


» 




i<tt& 


PAUD 


DS 


CLl 




mi*? 


PCH6 


DS 


CLl 




1<4I*6 


PENO 


DS 


CLl 




l<»«t9 


PCHCCK 


DS 


CLl 




1M5Q 


PVENOOR 


DS 


CLl 




msi 


PLE&ENO 


DS 


CLl 




m52 


PNAME 


DS 


CLl 




m53 


PADORl 


DS 


CLl 




l'*5'* 


PAO0R2 


DS 


CLl 




ms5 


PCIIY 


DS 


CLl 




litSb 


PZIP 


DS 


CLl 




ms? 


PAMOUNT 


DS 


CLl 




1158 


PDATE 


DS 


CLl 




ms9 


POVERIOE 


OS 


CLl 




IffeO 


PMSbl 


DS 


CL8Q 




1<»61 


LPOATA 


EQU 


•-PSTART 




lt62 


PSTOP 


DS 


CLl 




1463 


««;>«««^»« ^««««««««4,«4i«*«««««9«:«i;>«««««t««»a* ««««««««««««««««««*# «»«<<««««« 1 


IMbH 


« 




RECORD ARTAS 




m65 


♦ *♦»♦*♦«««♦«♦«»»»#•<.»«»«•. »4»» ♦««»««««♦«««•*»«««♦«♦«*« *«♦«♦«««»<!«*•« ♦*♦*»! 


lifSb 




Y$$5Y1D1 


.SFCuRITY RECORD 


IfJbT** 








li^ba* •*»««*♦*♦*••«■> 


TABLE HASTLk RECORD 




m69*« 








J«»70»KTflbLEMT 


DS 


CL6 




l«l71*RTABLEHT 


DS 


CLSO 




1<»72«TABSTS 


EQU 


RTABLEHT«Q6,1 STATUS 




1«»73*L1M1T 


EQU 


RTABLEMI«15,1 PASSUORD LIMIT | 


1«|7«(-»TERHTAB 


EQU 


RTABLEHT«16 TERMINAL 


FIELDS 


1175 


* 








1476 


#««««*4i« 


AP002 


VENDOR HASlLH 




l«t77 


* 








1M78 


KVEMOORM 


DS 


CL5 




l'»79 


RVENOORH 


DS 


CL199 




1480 


VKNAKE 


EOU 


RVEND0RM-»5,2fa 


NAME 


1481 


VKADORl 


EOU 


PVENOORM«31,25 


ADDRESS 1 


ii^ea 


VKADDR2 


EOU 


RVEND0RM«57,25 


ADDRESS 2 


1183 


VMCITY 


EQU 


RVEND0RH«83.25 


CITY 


itei* 


VH21P 


EQU 


RVEND0RM«1Q9,5 


ZIP CODE 


ites 


* 








msb 


♦^*«**** 


PEOIO 


PERSONNEL MASTER 




l«t87 


* 








1488 


KPAYROLL 


DS 


CL5 




1«|89 


RPAVROLL 


DS 


CL12I 




1490 


PMNAME 


EQU 


RPAYR0LL*12,2 6 


NAME 


l'»91 


PMADORl 


EQU 


RPAYR0LL«11,25 


ADDRESS 


1192 


PHClTV 


EQU 


RPAYrOLL«7D,25 


CITt 


1193 


PH2IP 


EQU 


RPAYR0LL*99,S 


ZIP CODE 


l«»91 


PnBRU 


EOU 


RPAYROLL*2DO,3 


BRANCH OF WORK 


1495 


* 








l'»9fa 


*««««««•««*««« 


ACCOUNTS PAYABLE 




1«»97 


« 








1198 


KACCTPAlf 


DS 


CL15 




1199 


RACCTPAY 


DS 


CLlbS 
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o 



150Q 


* 








— ^ 


1501 


* 


APlOO 


HEADER 






1502 


* 










1503 


APAHT 


EQU 


RACCTPAY«29,5 






150H 


HACCTPAy 


OS 


CL165 






1505 


APHRIO 


EQU 


HACCTPAY, 2 






1506 


APHREPT 


EQU 


HACCTPAY«16,5 


PD? 


REPORT TOTAL 


1507 


APHBATCH 


EQU 


HACCTPAY*21,S 


P02 


BATCH TOTAL 


1508 


aphchkci 


EQU 


HACCTPAY*26,5 




CHECK COUNTER 


1509 


APHIYPt 


EQU 


HACCtPAY«31,1 




CHECK TYPE 


1510 


APHCHECK 


EOU 


HACCTPaY*32,5 




Check number 


1511 


APHDATE 


EQU 


HACCTPAY«37,6 




CHECK DATE 


1512 


APHWENDR 


EQU 


HACCTPA Y«43,5 




CHECK VENDOR 


1513 


APHITHT 


EQU 


HACCTP*Y»53,b 


PD2 


ITEM TOTAL 


1514 


APHITHC 


EQU 


HACCTPAY-.5e,3 




ITEM COUNT 


1515 


APHAMT 


EQU 


HACCTPAy-148,5 


PD2 


CHECK AMT 


1516 


APHf^AMt 


EOU 


HACCtPAY*61 ,26 




NAME 


1517 


APHLEGND 


EQU 


HACCTPA Y«87,26 




LEGEND 


1518 


APHPRNT 


EOU 


HACCTP*Y*113,1 




PRINT 


1519 


APHBATHN 


EOU 


HACCtPAY«114,3 




BATCH NUMBER 


1520 


APHCHKS 


EOU 


HACCTPAY+117, J 




NUMBER OF CHECKS 


1521 


APHVODS 


EOU 


HACCTPAY* 12.J,3 




NUMBER OF WOIOS 


1522 


APHERRS 


EQU 


HACCtPAY*123,3 




NUMBER OF ERROR PASSES 


1523 


APHITHS 


EQU 


HACCTPAY+126,4 




NUMBER OF ITEMS 


152«» 


APHOLD 


EQU 


HACCTPAY*13a,5 


PD2 


OLD CHECK AMOUNT 


1525 


APHCASH 


EQU 


HACCTPAY*135,5 




CASH TOTAL 


1526 


APHACCR 


EQU 


HACCTPAY-.140,5 




ACCRUAL TOTAL 


1527 


APHCRR 


EQU 


HACCTPA Y*145,1 




ERROR CODE 


1528 


APHAOC 


EOU 


HACCTPA Y*146, 1 




ADD OR CHANbE 


1529 


APHOONE 


EQU 


HACCTPA Y-«147,l 




COMPLETION 


1530 


* 










1531 


• ««9*«4i« 


APn3 


CHECK 






1532 


* 










1533 


CACCTpAY 


OS 


CL165 






1534 


APCHID 


EQU 


CACCTP«Y,2 




"AC" 


1535 


APClYPf 


EQU 


CACCTPAY*2,1 




TYPE 


1536 


ApCCHECK 


EOU 


CACCTPAY*3,5 




CHECK NUMBER 


1537 


APCIDATE 


EOU 


CACCTPAY*16,4 


PDD 


TRANSACTION DATE 


1538 


APCDATE 


EOU 


CACCTPAY«2D,'4 


PDQ 


DATE 


1539 


ApCWENDR 


EQU 


CACCTPAY»24,5 




VENDOR 


i5<4a 


APCAHT 


EQU 


CACCTPaY«29,5 


P02 


AMOUNT 


1541 


APCNAME 


EOU 


CACC1PAY«34,26 




NAME 


1542 


ApCADDRi 


EOU 


CACCTPAY-»60,25 




ADDRESS 1 


154 3 


APCADDR2 


EOU 


CACCTPAY*85,25 




ADDRESS 2 


1544 


APCCITY 


EOU 


CACCTPAY«110,26 




CITY 


1545 


APC2IP 


EQu 


CACCTPAY*136,3 


PDD 


7IP CODE 


1546 


APCLEGNu 


EOU 


CACCTPAt-1139,25 




LEGEND 


154 7 


APCPRM 


EOU 


CACCTPAY«164,1 




PRINT 


1548 


OMA 


YSSOMA 2568 




.OUTPUT MESSGE ARE« 


1549< 


EW 


EQu 


» .END OF WORK 


AREA 




1621 


CDA 


Y»iCDA 




•CONTINUITY DATA AREA 


1622'* 4>«*«*«*»4>*«««*««««'««<>««»««««**«««««««4c««««««4i*«««»«««««4'«*»««44<«4i*4i«««*| 


1623«* 




CONTINUITY UATA 


AREA 


« 


1624 ♦**♦*••*•♦*♦•*•♦«♦«♦**»*»*»*«*•***•♦»««*»•*♦«****«***•«*♦*»*•»* ••*«♦»♦•« 1 


1625-1 


CDA 


DSECT 








1626* 


OS 


GH 






1627 




END 
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LINE 



SOURCE STATEMENT 



OS/3 ftSM 



APITMS START D 

««»»»♦♦,««»♦*«♦••*»*•*»••*»»»*»•••*• •**•♦• *m *********'********* ********* 

• AUTHOR : R L LEGNAPQ 
4. DATE : 26 MARCH 196Q 

« SITE : GAY L TAYLOR I NC. , W INS TON-SALE M ,NC ,2 71 02 

4. PURPOSE: TO ENTER AND VERIFY ITEM CHARGES FROM AP CHECKS 

• CHANGE LOG: 
mt.»ti* ********************************************************* ********* 



Y»$START 
EQU • . 



2 
3 

M 

5 

b 

7 

S 

9 
10 

12*t»»B 
13«* 
in* ^* ************ 

IS** 

16*R0 EQU 

17«R1 EQU 

18+R2 EQU 

19+R3 EQU 

2Q*R«» EQU 

2l*R5 EQU 

22*Rfc EQU 

23+R7 EQU 

2^♦R8 EQU 

25«R9 EQU 

2b'»RlU EQU 

27*R11 EQU 

28«R12 EQU 

29*R13 EQU 

30«R1H EQU 

31*R15 EQU 
32»* 
^■i* ************** 

31 + * 

35* USING 

36* USING 

37* USING 

38* USING 

39+ USING 

UO* USING 

HI** 

1^2*************** 

«t3** 



.STARTING CONVENTIONS 



.START OF PROGRAM 



REGISTER EQUATES 



nn* 

MS* 
<46« 
<*7* 
i»8« 
i»9 + 

50* 
51* 
52« 
53* 
SH* 
55* 
Sb* 
S7* 
&8* 
59 + 
bP* 



.PIB COVER 
.IMA COVES 
.WORK COVER 
•DMA COVER 
.CDA COVER 

.INTERNAL ROUTINE LINKAGE 
.1/0 - NORMAL RETURN ADDRESS 
.1/0 - ERROR RETURN ADDRESS 
.PROGRAM COVER 83 

COVER 

COVER 



.PROGRAM 
.PROGRAM 



«2 
111 




1 
2 
3 

5 

b 

7 

8 

9 

10 

11 

12 

13 

l"* 

15 



ESTABLISH PROGRAM COVERING 

• ,R12,R11 ,R10 .PROGRAM CODE 

ZA»0Pie,R2 .PIB 

ZA»IMH,rt3 .IMA 

WORK.Rit .yORK 

ZAKOMH.RS .OHA 

CDA.Rb .CDA 

ESTABLISH IMS INTERFACE 



STH 

LR 
LM 
LA 
«;T 

ST 

LR 

LR 

LA 

LA 

LR 

LA 

LA 

GEtIHE 

DS 

LA 

SVC 



RlM ,R12,121R1 J) .STORE REG IN CALLS* SAVE AREA 
R12tRl5 .ADDRESS OF THIS PROGRAM 
R2,Rb,Q(fil) .ACTIVATION AREAS FROM PARAM 
Rll.SAVE .THIS PROGRAM SAVE AREA 
Rll,8t,R13J .PUT THIS SAVE INTO CALLS* SAVE 
RIS.HJ.RU) .PUT CALLS* SAVE INTO THIS SAVE 
R13,R11 .REG 13 - THIS SAVE AREA 
R11,R12 .SECOND PROGRAM COVER 
Rll ,1 (Rll I 
R11,HD9&«R11» 
RlO.Rll .THIRD 
Rin.l (RIU ) 
R10,'«095(R13) 
M 



PROGRAM COVER 



GH 

1>I 

7 
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6i* 

63 

b<t 

65 

66 

67* 

77* 

78 

79 

81** 

82«* 



ST R1,STIM4 .STARTUP TIME 

DROP R6 

PRINT 6CN 

BAL R7,DAYTlnE 



.NO CD* 

.GET DATE-TImE 



YitTRAlL A 



Si** 




84*««« «««•»«««*«« 


85* 


MVC 


86* 


MVC 


87* 


LA 


88* 


BAL 


89* 


CLI 


90* 


BNE 


91* 


MVl 


92* 


MVC 


93* 


MWC 


9'«* 


PACK 


95* 


CWB 


96* 


LA 


97*V»4CCI1Q 


LA 


98* 


BCT 


99* 


CLC 


100* 


BE 


101* 


HVC 


l02* 


CLC 


103* 


BNH 


10'»*V**0Q?0 


MVC 


105* 


MWC 


106* 


B 


107*Y»1M1 


DC 


108* 


DC 


109* 


DC 


iia*LYi\Mi 


EOU 


lll*Ytib03C 


ORG 


113 


MWC 


111 


CLC 


US 


BNH 


116 


CLC 


117 


BE 


118 10020 


EOU 


119 


CLC 


120 


BNH 


121 


YSSIN 


122* 


LA 


123* 


BAL 


12«» L0030 


MWI 


125 


MVI 


126 


MVC 


127 


MVI 


128 


HVI 


129 


CLC 


130 


BNE 



PRINT OFF 

pRiNT ON 

MVC PASSKEY(5I .^c 'APcHK' 

YS»SECUR .PASSUQRO SECURITY 

CHECK SECURITY FOR OPEN APPLICATION * 

ASSUMES KEY IN FIELD "PASSKEY" « 

kTABlEmT( 3) ,=C'T80' 

ktablemt*3cb), passkey 

r9,y4ig020 .no find address 
rs.gtabllmt .get security record 

TABSTS.C • .RECORD ACTIVE? 

Y*10G2C .NO 

UORKl.X'CQ* .SETUP TO CV6 

yORKI*l (7 ) ,uORK 1 

H0RK1-.8C2 l.ifAIISTID*? .TERMINAL ID 

W0RK1*6{2 » ,.r<&RKl*8l2J , 

Rl.UORKl .TERMINAL FIELD COUNTER 

R7,lERMTAB-'4 .BEGINNING OF TERMINAL FIELDS 

fi7,'4lR7J .N'txT TERMINAL FIELDS 

RI.YJICOIO .COUNT DOiJN TO THIS TERftlf^AL 

G(3,R7»,:C« • .OPEN? 

YJJ0Q20 .NO 

WH0(3>,aiR7» .SAVE USER INITIALS 

3{1,R7) .LIMIT .OPEN BUT OVER LIMIT (SET COWNJ 

YHD33D .NO 

CMA (LYiiMlJ.YiSMl .APPLICATION NOT OPEN 

ZAKOTLIZI ,-Y(0*L YtlMI ♦<*) .MESSAGE LENGTH 

TERM 

X '10CA180I1C* 

C 'APPLICATION NOT OPEN' 

X'1DI00200C3' 

»-Yi»Ml 

* 

K ACCTPAY( 151, BLANKS 

2A«ITL»2» ,-Yt IMAl-USI ARTJ 

LQD20 

IPR0TI5) ,=C'A P* 

EMS61 USE UNPROT 

« 

ZA«ITLI2I,:YCUACCT1-USTART*U DATA ENTERED? 

L0030 NO 

12 .GET INPUT DATA 

R0,12 .SCREEN NUMBER 

r8,M0WE1N .60 TO INPUT SCREEN ROUTINE 

FILL.C • UNPROTECTED FILL CHARACTER 

PSTART.C • 

PSTART*l(PSTOP_PSTART-iJ,PSTART CLEAR PROT REPLACE 

USTOP.X'FF- 

PSTOP.X'FF' 

IMA«m(5J ,=C'APRNT' .PRINT? 

LOPtC .YES PRINT CHECK 
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o 



c 



131 


***»* 






VJITRAIL B 


132 




MWC 


KACCTPAY421,zC'AC' 




133 




MWI 


KACCTPAY+2,C'N* 




131 




KVC 


KACCTPAY*3<5) ,IMA»lO 


CHECK NUMBER 


135 




Ctl 


1MA«16,C*V 


VOID CHECK? 


13b 




BNE 


L0D35 


NO 


137 




Mtfl 


KACCTPAy*2.C*V' 




138 


L0035 


B 


L061C 




139 


LDOIO 


MVC 


KACCTPAY12) ,=C*AP • 


GET HEADER 


HO 




LA 


R9,EMSG2 




l'«l 




BAL 


RS.GACCTPAY 




1«(2 




MVC 


ACCTPAYH(165»,RAcCIPAY 


STORE HEADER 


113 


m» *i**p ** *m**** *<* ******** «««**^«tf*^*m ************************** ****** I 


IHH 


♦ 




BUILD BAsE SCREEN 




l«tS 


««««»»««««««*«»«•«««»«»««««««««««»«»»««««*«««««««»««««««««»««»*««««« 1 


Itb 


* 








117 


* 


CHECK 


DATA 




118 


♦ 








119 




CLl 


HTYPt ,C 'N' 


NEW CHECK? 


150 




BE 


L0G5D 


YES 


151 




MVC 


PTYPE (1 ) ,HTYPE 




152 


L005Q 


MVC 


PCHECK<5> .HCHECK 




153 




MVC 


PCAMT (mj ,-Xt4020 6B2D202D6B2G212o1B2c20 6D' i 


151 




ED 


PCAMl (111 .HAMOUNT 




155 




MVC 


PCNAME(25) triNAME 




156 


* 








157 


* 


LINE 


NUMBERS 




158 


* 








159 




LA 


R13,PL1N«1 


FIRST LINE » POSITION 


160 




LA 


R6,2D 


COUNTER 


161 




PACK 


WORKl (2 ) .HITMCNT I 3) 




162 


LCObO 


UNPK 


0(3, RID 1 ,U0WK 1 tZ i 


MOVE INTO LINE « DOSniON 


163 




01 


2(R1Q) ,X'FG' 


FIX SIGN 


161 




AP 


yORKU2) ,rP"l • 


NEXT ITEM 


165 




LA 


R10,PLLINE(,R10! 


NEXT LINE 


166 




BCT 


Rb,L006D 




167 




CLC 


2AIIITL(2I ,:Y(UACCT1-USTART»1) VERIFY DATA? | 


168 




BNL 


L0120 


YES 


169 




CLI 


HACTION.C 'C 


CHANGE? 


170 




BE 


LOOSD 


YES 


171 


« 








172 


4i«4«««9« 


ADO SCREEN 




173 


« 








171 


** *** 






VSSTRAIL 


175 




MVC 


UDESPTl (26),HLEGEND 




176 




B 


L9000 


SCREEN OUT 


177 


* 








178 


m* «««« «* 


CHANGE SCREEN iGET ITEMS FOR 


DISPLAY) 


179 


« 








160 


LQoea 


LA 


R6,2Q 


LINE COUNTER 


181 




LA 


RlD.UACCTl 


FIRST LINE 


182 








YliTPAIL E 


183H 




PRINT 


OFF 




193< 




PRINT 


ON 




191 




MVC 


KACCTPAYl 15 > .BLANKS 




195 




MVC 


KACCTPAYI2),-C'A1 • 




196 




MVC 


KACCTPAY*2lfal ,HTYPE 




197 




MVC 


KACCTPAY*B«3),HnMCNT 




198 




MVI 


POSITION, C'G* 




199 




LA 


R9,EMSG3 





o 
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2C0 

201 LOD90 

202 

203 

20t 

205 

206 

20 7 

208 

2C9 

210 

211 

212 LOIGD 

213 

21«* 

215 

216 

217 «««««« 

218 • 

219 »«♦<.*• 

220 L012a 
221 

222 

2?3» 

233* 

23'* 

235 

236 

237 

238 LD130 

2 39 

2<»0 

2Hl* 

251* 

252 

253 

25«» 

255 

256 LC1J2 

257 

258 

259 

260 LOmO 

261 » 

262 ♦ 

263 » 
26<l 
265* 
275* 
276 
277 ♦ 
278 
279 
280 
281 
282 
283 
28i> 
285 
286 * 



BAL 

LA 

BAL 

MVC 

CLC 

bne: 

MVC 

UNPK 

CP 

BNL 

MVI 

01 

KVC 

MVC 

LA 

8CT 

B 

LA 
L* 



K8,SaCC 

ft9,EMSG 

ftS.NACC 

ACCTPAY 

RACCTP* 

L9C0C 

0(8, RIO 

DAmT( 10 

AIAMT (5 

LQIOO 

DAMT4R1 

0AMT«9« 

DDESPTl 

DEMPit, 

R lO.LiLL 

R6,LC09 

L9aoo 

VERIFY 

R6,2C 
RlD.pLI 



TPAY 

"» 

TPAY 

I ( 165) .RACCTPA Y 

V*2(b) .HTYPE 

J, AlACCT 

,R1C» , AI AMT (SI 

1 ,-P'C« 

0) ,C'-' 

RIOI.X'FO* 

30, RIG » .AIDESCPT 

RIOI.AIEMP 

INEI.RIDJ 



LINE ITEMS 



SET START OF FILE 

READ MEXT AP ITEM 
MOVE TO ITEM AREA 

SAME Check? 

FORMAT SCREEN AND OUT 



Nul 



PRINT 

PRINT 

ST 

LA 

MVC 

MVC 

CLC 

BE 

PRINT 
PRINT 
MVC 
CLI 

BNE 
MVC 
EQU 
CLC 
BNE 
MVC 
EQU 



OFF 

ON 

RlQ, PROLINE 

RlO.UACCIl 

BRCH(M» .UACCTI 

DESCPTH(30),UDESPTi 

0(ULLINE,RIG) .BLANKS 

L0320 



OFF 

ON 

LAS 

DXM 

LOl 

REV 

» 

0(M 

LOl 

DC* 



T(l »,UXMIT(R1D» 
IT(R10I ,C*R' 
32 
IEUH»,DXMIT(R10J 

,R10) .BLANKS 

•♦0 

,R10 i ,BRCH 



FORMAT SCREEN AND OUT 

LINE COUNTER 

YJ5TRAIL F 



PROTECTED POINTER 
UNPROTECTED POINTER 



THIS LINE BLANK? 
YES-CHECK FOR ERRORS 

Y$*TPAIL G 



SAVE LAST ITEM FLAG 
REVIEW? 
NO 
SAVE REVIEU REQUEST 

NO BRANCH? 

MOVE HOLD BRANCH 



CHECK ACCOUNT NUMBER 



PRINT OFF 

pRlNT ON 

MVC KACCTMST(8I,0(R10) 

ACCOUNT MASTER FILE 

MVC KACCOUNT{8I,0(R1o> 

LA R8,LC150 

BAL R9,6ACCIHST 

MVI ERR.C'Y" 

L R9, PROLINE 

01 DCACCTIRy » ,X'C1' 

MVI D8ACCT(R9 I ,X» IC 

B L0200 

BRANCH MASTER FILE 



YttTRAIL H 



HjT ACCOUNT MASTER 



ACCT MST ERROR CODE 
CHECK AMOUNt 
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c 



287 LOlbO 


CLI 


oiRio.ca* 


BRANCH ACCOUNT? 


288 


BNE 


LQ180 


NO, GENERAL LEOGFR ACCOUNT 


289 


MWC 


KBRANCHMi 3I,1(R10) 




290 


MVC 


BRCHIM » ,G(Riu ) 


SAVE ACCOUNT CODE 


291 


L* 


RS.LOlbU 


GET BRANCH 


292 


BAL 


R9,GBRANCHM 




293 


MVl 


ERR.C'Y" 




291 


L 


R9, PROLINE 




295 


01 


DCACCT(R9 ) ,X'C2' 


BRANCH ERROR CODE 


296 


MVl 


D8ACCT«R9> ,XMC' 




297 * 


CHART 


OF ACCOUNTS FILE 




298 LOlfcO 


MVC 


KACC0UNTt4),-C'0D0r' 


BRANCH ACCOUNT 


299 L016Q 


EQU 


« 




3DQ 


LA 


r8,L019U 




3C1 


BAL 


RS.GACCOUNT 


GET CHART OF ACCOUNTS 


302 


MVI 


ERR.C'Y' 




303 


L 


R9, PROLINE 




304 


01 


DCACCTfR9) .X'C*' 


ACCOUNT ERROR CODE 


305 


MWl 


DBACCTIR9I,XMC* 




306 


B 


L020D 


CHECK AMOUNT 


307 L0190 


MVC 


INCOMEl 1» .CAINC 




308 


MWC 


EXPENSdJ ,CAtXP 




309 


L 


R9, PROLINE 




310 


MVC 


DPC0A(1,R9I,CAC0* 


CASH/ACCRUAL CODE 


311 ♦ 








312 ♦ 


AMOUNT 




313 * 








31«» LD2aO 


MVC 


b(0RRl»5«lQI,DAMT IRIOJ 


SAVE FIELD 


315 


LA 


R1,W0RK1*5 




316 






YSiTRAIL I 


317* 


PRINT 


OFF 




327* 


PRINT 


ON 




328 


BAL 


R7,RJ1D 




329 


BZ 


L0220 




330 


MWl 


ERR.C'Y* 




331 


L 


R9, PROLINE 




332 


MVI 


DBAMl JR9» ,XMC' 




333 LD2^0 


PACK 


UORKl (Si ,UbRK 1*619) 




33M 


CLI 


CACOA.C'C 


CASH ACCOUNT 


335 


BE 


L02MC 




336 


AP 


HACCR(5) ,W0Rk1(5I 




337 


B 


L026C 




338 L02i«n 


AP 


HCASHI5J ,U0RK1<5I 




339 L0260 


EQU 


« 




3<»0 ♦ 








3«»1 • 


DESCRIPTION 




3«»2 • 








3'«3 






YIITRAIL J 


3'««»* 


PRINT 


CFF 




ZSi** 


PRINT 


ON 




355 


CLC 


DDE SP n 30, KIQ), BLANKS 




356 


BNE 


La265 




357 


HVC 


D0ESPT«3b,Riai,0ESCPTH 


DUP LAST DESCRIPTION 


358 L0265 


MVC 


DESCPTHI30I,0 0ESPTjR10) 


SAVE LAST DESCRIPTION 


359 « 








360 • 


EXPENSE/INCOME Ef«PLOVEE NUMBER 




361 ♦ 








362 LC27a 


L 


R9, PROLINE 




363 


CLI 


INCOME, C • 


INCOME ACCOUNT? 


36«t 


BE 


LQ28D 


NO 


365 


CLC 


DEMP(M ,fil CI .liLANKS 


ANY E^'PLOYEE »? 



Figure C-1 1. APITMS Action Program Processing a Dialog (Part 5 of 29) 



UP-9207 Rev. 2 



C45 



Basic Assembly Language (BAL) Action Programming Examples 



366 
367 
368 
369 
370 
371 
372 
373 
37«» 
375 
376 
377 
378 
379 
380 
381 
382 
383 
38* 
385 
386 
387 
388 

38' 

39Q 

391 

392 

393 

39 * 

395 

396 

39 7 

398 

399 

"♦DO 

HOI 

102 

4G3 

lot* 

tlH* 

tl5 

m6 

117 

M18 

m9 

'♦20 

•♦21 

>\2Z 

'•23 

424 

425 

426 

427 + 

437* 

438 

4 39 

440 

441 

44Z 

443 

444 

445 



LQ2faQ 
L029T 

LD292 
L0298 

LOSuO 



L03ia 



L0315 

* 



BNE La29D 

01 0CEHP(R9) ,X'D4» 

B L0298 

EClU * 

CLC DEMP<4, RIO), BLANKS 

BE L0315 

EQu » 

MVC KPAYR0LL14 ) ,JEMP(R10) 

NVI KPAYR0LL«4,C'0' 

LA R3.L03ao 

BAL R9,GPAyR0LL 

L R9,PR0LIhE 

01 DCEHP(R9» ,X'D1' 

B L0298 

mVI ERR.C'Y" 

L R9, PROLINE 

MVI DBEMPIR91 ,X'1C' 

B L0315 

CLl INCOME, C* ' 

BNE L0315 

MVC KTABLEMT(8», BLANKS 

MWC KTABLEHT(3J,rC>T10' 

NWC KTABLEHT*3I3 J .FMCAL 

LA RB.L0310 

BAL R9,GTAEL£M1 

L R9, PROLINE 

01 DCEMplR9» ,X'D2' 

B L0296 

CLl IHEXP.C* • 

BNE L0315 

L R9, PROLINE 

01 DCEMPIP9) ,X'D4' 

B L329e 

EQU * 

SETUP rOR NEXT LINE 



PRINT OFF 

PRINT ON 

LA RIO.ULLINEC ,RlD» 

L R9, PROLINE 

LA r9,PLLINE ( ,R9 J 

ST R9, PROLINE 

CLl LAET.C'Y' 

BE L332D 

8CT R6,L013G 



YES 

INCCMF AND 

FLAG E(?ROR 



NO EMP « 



GT EMPLOYEE 

ENP NOT FOUND 
FLAG ERROR 



NO EMP <t 



INCOME ACCOUNT? 

YES-DO NOT NE.ED EXPENSE 



GET CLASSIFICATION 

CLAS NOT FOUND 

EPENSE CLASS? 
YES-QK 

NOT EXP EMP 
FLAG ERROR 



C*L 



o 



YSJTRAIL K 



NEXT UNPROTECT LINE 

NEXT PROTECT LINE 

LAST ITEM? 

YES 

NEXT LINE 



♦ ADD/UPDATE LiNt ITEHs 

LC320 EOU » 



LC325 



PRINT OFF 

PRINT ON 

LA R6,20 

LA RlO.PLlNlil 

ST RID, PROLINE 

LA RlD.uACCTl 

CLl ESR.C'y 

BE L900C 

MVC LAST«U ,DXM1T{R1C» 



YiiTRAIL L 



PROT DATA 
SAVE ADDRESS 

ANY ERRORS? 
FORMAT AND OUT 
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««««*«•* BUILD RECORD 

HWC KACCTP*Y(2» ,-C'AI • 

KVC K»CCTPAy*2l6J ,HTYPE 

MVC KACC7PAlf*8l3» .HITMCNT 

CLC QlULLINE.Riai .BLANKS 

BNE L0328 

MWI LAST.C'Y' 

B LOMOO 

MVl ACCTPAYl.C* • 

MVC ACCTPAYl«l(16«t I .ACCTP AYI 

MVC AIRIDt2) ,:C'AI« 

HWC AITYPC(6> ,HTYPE 

MVC AICN7«3» .HllMCNT 

MVC AIVENDORCS J .HVENDOR 

MVC A1ACCH8) ,C<R10» 

MVC WORK} ( 10» ,DA«T(RlDt 

LA Rl.UGRKl 

BAL fi7,RJ10 

B2 L033C 

MVI ERR.C'Y* 

L R9, PROLINE 

01 DBAMT(R9» ,XMO* 

B La331 

PACK AIAMT (B) ,WORKH IC I 

MVC AIEMPJt I ,DEMP (RIC ) 

MVC AIDESCPTt30l .ODESPKR 10» 

L K9, PROLINE 

MVC AICOA( 1 ) ,DPCo*<R9 I 

CLI HACTION.C'C 

BE L034D 



liitb *»*»*• 

uta 

i»«t9 

fSO 

«»5l 

«»52 

153 

ISt 

"♦SS LC328 

HSb 

<l58 

M59 

460 

461 

«»62 

«»63 

tbt 

«»65 

166 

U67 

M68 

<<69 

f70 LD3iO 

<»71 L0331 

'♦72 

«»73 

471 

«»75 

nib 

<477 • 

478 ♦»««,♦♦♦»*«♦»«* AOD RECORD 

479 • 

480 L0335 



ITEM? 
NO 
SET LAST ITEM 



CODE 



481 
462 
483 
484 
485 
486 
487 
488 
469 • 

490 *«•»*« 

491 ♦ 

492 L034Q 
493 

494 

496 

496* 

506* 

507 

508 L0360 

509 

510 

511 

512 



MVC A IBATCH ( 3 ) .HbATCH 

MVC KACCTPA Y» 165) ,ACC TPAY I 

LA f(8,LC39Q 

BAL R9,IACCTPAY 

MVl ZAUPLRl.C'O' 

MVI ERR.C'Y' 

L R9, PROLINE 

MVl 2<R9> ,X MC 

B L339G 

««««4i«ft« UPDATE RtCORD 

MVC AILRR<3 ) .HBATCH 

LA R8,L0380 

BAL P9,UACCTPAY 

PRINT OFF 

PhiNT ON 

B L0335 

MVl ZAUPLRI.C'O' 

L R9, PROLINE 

MVI 2IR9I,X'1C' 

MVI ERR.C'Y' 

8 LQ390 



CASH/ACCRUAL 

CHANGE? 

YES 



BA ICH « 



ROLLBACK UPDATES 



CORRECTION BATCH » 



YijTPAIL M 



ADDING ITEM ON CHANGE 
ROLLBACK UPDATES 
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r 

513 


L03SO 


w«c 


RACCTPAVU65J .ACCTPAYI 


sm 








YIJTRAIL N 


515* 


PRINT 


OFF 




525* 


PRINT 


ON 




526 




LA 


R9,LC360 




527 




BAL 


R8,PACCTPAV 




528 


* 








529 


* 


UPDATE HEADER DATA 




530 


* 








531 


L0390 


PACK 


W0RK1(2» ,HITHCNT(3I 




532 




AP 


tt0PKl«2),=P'l« 




533 




unpk 


HITMCNT t3J,UORKlC2l 




53'« 




01 


HITMCNT«2,X'FQ" 


FIX SIGN 


535 




AP 


HITMT0H5I ,AIAMT«5I 




53b 




PACK 


K0RK1(3» .HITEMSd » 




537 




AP 


y0RKl(3),:P'l • 




53fl 




UNPK 


HITEMSCII ,W0RK1 (3) 


NUMBER OF ITEMS 


539 




01 


HITEMS-»3,X'F0' 


FIX SIGN 


5'»0 




LA 


R10,ULLINE(,H10) 




511 




L 


R9, PROLINE 




512 




LA 


R9,PLLINE( ,R9J 




513 




ST 


R9, PROLINE 




511 




CLI 


LAST,C'Y' 


LAST ITEM 


515 




RC 


LOlOO 




516 




BCl 


R6,LC325 




517 


*«««««»««*«««««««««««« *9««»^«^»«»,^«i»«* «««««»«*«»«»«»«« «««««»«*«4i«««i* 1 


518 


« 


SETUP 


NEXT ACTION 




51V 


*»««««««««:»« «««««««««»«««•««#«««*««««««««•««««««*««««««« «««««««;*4i««« 1 


550 


LOlOO 


CLI 


ERR.C'V 




551 




BE 


L90QD 


FORMAT AND OUT 


552 








YttTRAlL 


553* 




PRINT 


OFF 




563« 




PRINT 


ON 




561 




HVI 


HERRCDE.C • 




565 




CP 


HITMT0T(5I ,HAH0UNTJ5) 




566 




BE 


L012D 




567 




01 


HERRCDE ,X*F1' 


ITEM TOTAL NOT : CHECK 


568 


LC120 


CP 


HCASH($1 ,iP»C* 




569 




BE 


LOllO 




570 




01 


HERRCDE ,X'F2' 


CSH NOT - G 


571 


LC11Q 


CP 


HACCR(5 \ ,-P'Z' 




572 




BE 


LQ16D 




573 




01 


HERRCDE ,X'F1* 


ACCRUAL NOT : 


671 


« 








575 


«•«««««« 


DETERMINE SUCCESSOR 




576 


* 








577 


L0l6a 


CLI 


LAST.C'V 


LAST ITEM? 


578 




BE 


Lai80 


YES 


5?^' 




KVI 


2««PSIMf>»C»0» 


laPtti mm iic« nw smtm \ 


SSO 




mc 


ibit?%iBihi,-t''kx-'ni'^'> 


i 


SSJ 




HVC 


SHA*«ltfe»«=C'^^PITS * 


mmskCTjon CQbE . ■"' 


S&2 




i*VC 


2Aeal'Lf?l,:.-H*i<i'' 


4ES6TK •'■ 


5S3 




B 


t052C 


' 4 


581 


LDiao 


CLI 


HERRcDE.C* • 




585 




BE 


L050D 




5«fr 




«¥1 


2»»P*IN0«C'S» 


B«I.»SC€ eRRQ»&»c<**»CCt CHCCIT^^M 


58? 




»1tC 


^*SPSIOlfeSsiC*APCKK&» 


'•^^^S 


588 

589 




MVC 


ZASS?152l»r¥{Q«L??S511 


»8l LtUbJH ' ■^^: 


OMA + KLHSGll J ,HS61 1 


APCKS TRANSACTION 


590 




MWC 


0MA»1*DM1 lA(i »,HT YPE 





c 



r 



Figure C-11. APITMS Action Program Processing a Dialog (Part 8 of 29) 



C-45 



UP-9207 Rev. 2 



Basic Assembly Language (BAL) Action Programming Examples 



O 



591 




MWC 


0MA«i|*DMllBI5l .HCHECK 




592 




MVC 


HITMCNT(3) .rC'ODl' 




593 




MVI 


HACTION.C'C 


CHANGE 


591 




HWl 


HCOMPL.C • 




595 




B 


LD520 




596 


« 








597 


« 








598 


* 








599 


L05Q0 


EQU 


« 




600 




AP 


H8AT0TC5» .HAMOUNT ( !i » 


ADD CHECK TO BaTCH TOTAL 


601 




CLl 


HACTION.C'C 


CHANGE? 


602 




BNE 


LO505 


NO 


603 




SP 


HBAT0T{5> ,H0LD(5> 


CORRECT FOR PREWIOUS AMOUNT 


60«» 


L05D5 


CLI 


REVIEU.C'R* 


REWIEW ITEMS? 


605 
607 




BNE 

mi 


10510 


NO 


i-AUPSINCC'D* 


octatcB itifti?}*«i s«cccs$i6« ' , ^ 


2AltPSlD(b),-C'APAUDT« 




608 




MWC 


0MA*«»ILMS612 J ,MSG12 


MESSAGE FOR APAUO 


609 




MWC 


0MA»«t«DM124(l ),HT YPE 


ChECk type 


61Q 




MWC 


0Mfl*M*DH12B(bl .HCHECK 


CHECK It 


611 




MWC 


2A<rOTLt2» ,xYC0»LKSG12*8) LENGTH | 


612 




B 


L0S15 




613 


LOblQ 


CLI 


HPRINT.C'N' 




61<t 




BNE 

ml 


L051b 
ZA*PMND»C»0' 


■ ,.. . -m 


t «,15 


tftsit 


616 




MVC 


2AHPSID lb ) ,-C'APCHKS" 




617 




MWC 


0M**'4 (6 1 .rC'APCKS • 


transaction code 


618 




MWC 


2A|,0TL«2) ,rH' IM" 


LENGTH 


619 


L0515 


CLI 


HACT lON.C 'A' 


ADD/ 


620 




BNE 


LDSle 




621 




PACK 


kiORKl (T 1 ,hChkS{ 31 


ADD 1 TO » OF CHECKS 


622 




AP 


WORKl t?) ,:PM • 




623 




UNPk 


HCHKS( ? 1 ,W0^K 1(2) 




62<» 




01 


HCHKS«2,X'Fa' 




625 


LCSl"? 


MVI 


HCGMPL.C'C" 


COMPLETE 


626 


LCS^O 


MWC 


K ACCTPAY ( IM .BLANKS 




627 




MWC 


K ACCTPAY(2I,=C'AP' 




628 




LA 


R9,EMSG2 




629 




BAL 


R8,UACCTPAY 




630 




MWC 


RACCTPATC IbSJ .ACCTPAYH | 


631 




LA 


R9,EMSG2 




6 32 




B^L 


RS.PACCTPAY 




63<t 


CLI 


7*fPSU»0,C*l»» 


SUCCESSOR? -'• ''^, 


BNE 


TERM 


YES-TERM 


6 35 


♦ 








63b 


•«•»*•♦•*♦**♦* 


» CHECK AMOUNT TRANSLATION | 


6 37 


« 








638 


* 








639 


L0 6CO 


nwC 


KACCTPAYC 161, BLANKS 


SETUP CHECK PRINT 


610 




MWC 


KACCTPAY12»,-C'AC' 




6'H 




MWC 


KACCTPAY*2e6» ,HTYPE 




64 2 


L0610 


LA 


R9,EMSGS 


NOT FOUND 


6«I3 




BAL 


RB.GACCTPAY 


GET CHECK 


btH 




MWC 


ACCTPAYCJ l6S» .RACCTPaV MOWe TO CHECK AREA | 


605 








Y$iTRAlL P 


616H 


» 


PRINT 


OFF 




656^ 


► 


PRINT 


ON 




657 




CLI 


CPRINT.C'N* 


NO PRINT? 


658 




BE 


L0510 




659 




CP 


CAMOUNT (b) ,:P»Q' 


NEGATIVE OR ZERO CHECK? 
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660 

661 

662 

663 

664 

665 

666 

66 7 

668 

669 

670 

671 

672 

673 

67<» 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

70 3 

704 

705 

7D6 

707 

708 

709 

710 

711 

712 

713 

714 

715* 

716* 

717 

718 

719 

720 



NMtRA 
»LP1 
«LP2 
ION 

10620 



L063Q 



L0640 
L0660 

L06e0 



« 



9NH 

B 

DC 

EXTRN 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

DC 

DC 

DC 

DC 

DS 

EflU 

ZAP 

L 

BALR 

LTR 

BN2 

HWC 

MWC 

MWC 

MVC 

MVC 

MWC 

MVC 

UNPK 

MVC 

MVC 

ED 

MVC 

CLI 

BNE 

Mvl 

CLC 

BE 

MVC 

MVC 

MVI 

B 

MVC 

MVC 

CP 

BE 

UNPK 

EOU 

MVI 

MVI 

MVC 

MVC 

MVI 

MVI 

MVC 

MVI 

T»»OuT 

L* 

BAL 

B 



LD510 

L062D 

0V(Q1 

CKGD50 

NMERA 

ALPl 

ALP2 

IDN 

PL8'0' AMOUNT 

CL50' • LINE 1 

CL50' • tINE ? 

C'2' 

OF 

NMERA (8 i ,CAM0UNT«5I 

R15,:^ACCKGD5QI 

Klt.ftlS 

R15,R15 

EMSG7 ERRORS 

PAYlOtSOi ,ALP1 

PAY20I5Q) ,ALP2 

LECEN00(25),CLEGEND 

«ENOORO(5),CVEnDoR 

CHECK0C5> ,KACCTPAY*3 

NAME0<26» ,CNAME 

AODR10t25 I.CAODRl 

yORKl(7j ,CDATE(4» 

DATE0(6 ) .WORK 1*1 

yORKi 114 1 ,-X'5C206B2D202D6b20 21204B20 2D60' 

U0RK1(I4> .CAHQUNT 

AMOUNTO «1 31 ,aORKl»l 

AM0UNT0*12,C'** » FROM EDIT 

L063D NO-LEAVE IT 

AM0UNT0«12,C* • BLANK IT 

CADDR2(25) .BLANKS ADDRESS 2? 

L0640 NO 

A0DR20<25 » ,CADDR2 

ciTiro(?5» .cciTr 

C1TY0«18,C' • 

L0660 

ADDR20I25),CCITY 

CITY0(25» .BLANKS 

C2IPt3l,:p'a« ZIP CODE? 

L068C 

CITY0»i9i5»,CZIP«3J 



FORM FEEDdOP OF PA6EI 
TRANSACTION CODE 



CnY0*25,X*JC • 
Cn Y0-i26,X 'FF • 
UTRAN(6) .rC'APCKS ' 
UTRAN«6(4 I .BLANKS 
UTHAN* lO.X'FF • 
PSTART.C : ' 
PSTART*! (itl.PSTART 
FILL.C* • 

13 
R0,13 .SCREEN NUMBER 
RS.MOVEOUT .SCREEN AND DATA 
TERM 

♦****•*♦*♦••■»*♦*•••••♦*♦♦»•♦•♦«« •«««»**«W«««**«.»»*«««i 
OUTPUT SCRELN 
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721 L93G0 


EQu 


» 


722 




YllTPAIL Q 


723* 


PRINT 


OFF 


733* 


PRINT 


ON 


7 31 


YSIOUT 12 1 


735* 


LA 


RO.IZ .SCREEN NUMBER 


736* 


BAL 


K8,M0VE0uT .SCREEN AND DATA 


737 




YIITRAIL R 


738* 


PRINT 


OFF 


7t8* 


PRINT 


ON 


719 


B 


TERM 


750 


YJlIOSTS .1/0 STATUS j 


752 ♦**•*♦•♦*•*♦*♦*•♦****♦***♦*♦****•*•*************•*****'********* ********* 1 


753** 




INTERNAL ROUTINES * 


75i»»»*«*«»»»««*^** 


^#*,tm* ****************************************** *^******* 


755«* 






TSb* ************** 


CHECK FILE I/O STATUS 


757«* 






7S8*I0S1*TUS 


ORG 


* 


759* 


CLl 


ZA«PSC*1,0 .SUCCESSFUL? 


760* 


BNE 


Y«$I0S05 .NO 


761* 


MVI 


lOKEYtC • .CLEAR KEY 


762* 


MVC 


lOKEY*! (lll.IOKEY 


763* 


BR 


R8 


76«l«r»S10SQ5 


CLI 


ZAIIPSC*!,! .INVALID KEY? 


765* 


BER 


R9 


766* 


CLI 


2A«PDSC*1,5 .FILE NOT DEFINED? 


767* 


BE 


YJSIOSIO 


768* 


CLI 


ZA*PDSC*l,fe .FILE CLOSED? 


769* 


BNE 


Y»$I0S3Q 


770«.y«S10SlD 


CLI 


lORET.C'Y' .RETURN ON FILE NOT AVAILABLE? 


771« 


BNE 


YUI0S20 


772* 


SR 


R8,R8 .flag for file NOT AVAILABLE 


773* 


BR 


R9 


77«I«Y»*I0S20 


«WC 


0MA<LIQM2J ,I0M2 .FjLE NOT AVAILABLE 


775« 


MVC 


ZAI(01LC2> ,=Y(04LI0M2*'tl 


776* 


MVC 


0MA*0I0M2-I0M2,2Q),ICFILE 


777* 


B 


TErM 


778*Yj»10STH 


DC 


C •0l23i»5fc789ABCDEFX« 


779*I0Mi 


DC 


XMDDAIBCjUC* 


780* 


DC 


C'lNvALlD FILE I/O • 


781*010M1C 


DC 


CL5' • .PiB STATUS 


782*D10M1A 


DC 


CL21« • .FILE NAME 


783*010M1B 


DC 


CL17' • .FILE KEY 


78«»« 


DC 


C'CALL ISO' 


785* 


DC 


X*1D10D2C;0C0' 


786«L10H1 


EQU 


•-I0M1 


787«10M2 


DC 


X '1D0A18011C' 


788*D10m2 


DC 


CL21' • .FILE NAME 


789* 


DC 


C'FILE NOT AVAILABLE' 


790* 


DC 


x'lDionaoQOo* 


791*L10M? 


EQU 


•-I0H2 


792*Y$»I0S30 


MVC 


iosts,za«psc 


793* 


TR 


lOSTS.YlilOSTR .TRANSLATE TO PRINTABLE CHAR 


79«t« 


MVC 


OMA(LIOM1 »,I0M1 .FILE NOT AVAILABLE 


795* 


HWC 


0MA-»DI0M1A-I0M1(2 1I,I0F1LE 


796* 


MVC 


OMA«DIOM1B-IOM1U6I,10KEY 


797* 


MVC 


OMA*DIOM1C-10MH»«>,IOSTS 


798* 


MVC 


2A«0tLI2»,:Y(G*LI0M1*<»> 


79?* 


B 


SNAP 
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rStMVIN 



80Q 

801** 

8 02 ♦**♦»♦•••♦**•♦« 

803«* 

SDH+MOVEIN 

805* 



•GET IMA DATA 



ST 

KVC 
NVI 
MVl 
HVC 

MVC 



806* 

807* 

808* 

8C9* 

810* 

811* 

812* 

813* 

81'** 

815* 

816* 

817* 

818* 

819* 

820* 

821* 

822 

823** 

62H *************** 

B2S** 

826*M0WEOUT 

827* 



MOVt IMA DATA TO SCREEN WORK AREA 

RO.SCREENK .SCREEN NUMBER 

lOKEyC*) , SCREEN* .SCREEN NUMBER 

lOKEt*<» ,C'G' .GET 

lOFlLEfC • 

I0FILE*1I191 .lOFILE .CLEAR TO SPACES 

lOFILE IliJ ,=C'SCREEN FORMAT* .FILE NAME 



ZGHCALL MSGIN, ISCHIUM, INIMSG, 



OS 

LA 

ST 

LA 

ST 

01 

LA 

L 

BALR 

LA 

B 



CH 

IS.SCRNUM 

15,PLIST*1«(1-1 I 

IS.INIMSG 

15,PLIST*'«»(2-1 I 

PLIST*'««(2-1 » ,X'8Q» 

l.PLIST 

15,=V(MSGIN) 

R9,ABTERM .1/0 ERROR ADDRESS 
lOSTATUS .CHECK I/O STATUS 



YSiMVOUT 



•PUT OMA DATA 



MOVE DATA FROM SCREEN WORK AREA TO OMA 



828* 

829* 

830* 

831* 

832* 

833* 

83<»* 

835* 

836* 

837* 

838* 

839* 

8tQ* 

8tl* 

812* 

8"t3* 

BUH* 

8«I5*H0«E0UTS 

8tt6* 

8M7* 

8>«8« 

8'»9* 

850* 

851* 

852* 

853* 

85M* 

855* 

8S6* 

857* 

858* 

e59*Y>tM00l0 



ST RO, SCREEN* .SCREEN NUMBER 

MVC lOKEyl'** iSCREENK . SCR EE N NUMBER 

MVI iOKEV«M,C'P' .PUI 

MVl lOFILE.C ' 

MVC I0F1LE*1119 J .lOFILE .CLEAR TO SPACES 

MVC IOFILE( 13 » .rC'SCREEN FORMAT* .FILE NAME 

ZG8CSLL MSGOUT , ( SCRNUM.OUTJMSG.PDAtA ) .SCREEN AND DATA 

OS OH 

LA 15,SCRNUM 

ST 15,PLIS1*'4«« 1-n 

LA 16,0uT»MSG 

ST 15,PLlST*M*<a-l) 

LA IS.POATA 

ST 15,PLIST4<«*(3-1) 

01 PLIST*'<»( 3-1 I ,X»8Q' 

LA l.PLIST 

L ISt^nvCMSGOUT) 

BALR l»»,lb 

B YitHOOlO 

ST Ra.SCREENK 

MVC lOKEY(M) .SCREENS .SCREEN NUMBER 

MVI IOKEY*<»,C'P' .PUT 

MVI lOFlLE.C • 

MVC I0FILE«U 191 .loFlLE .CLEAR TO SPACES 

MVC lOFILEI 12»,-C'SCREEN FORMAT" .FILE NAME 



2G«CALL MS60UT, (SCRNUMI 

OS DH 

LA IS.SCRNUK 

ST 15,PLIST«t»t 1-1) 

01 PLIST*«i*« 1-1 > ,X«60' 

LA l.PLIST 

L 15,-V<HS&0UT» 

BALR I'*, 15 

LA R9,ABTERM .1/0 ERROR 



.SCREEN ONLY INO DATA! 



ADDRESS 



Figure C-11. APITMS Action Program Processing a Dialog (Part 12 of 29) 
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860* 

861 ACCTPAT 

862** 

863** 

sen** 

865*G«CCTPAt 

866* 

867* 

868* 

869* 

870* 

871* 

872* 

873* 

87«l* 

875» 

876* 

877* 

878* 

879* 

880* 

881* 

882 ACC1PAY 

883** 

88<l** 

885*» 

886*NACCTPAY 

887* 

888* 

889* 

890* 

891* 

892* 

893* 

89<»* 

895* 

896* 

897* 

898* 

899* 

900* 

901 ACClPaY 

902«« 

903** 

90<»** 

905*UACCTPAY 

906* 

907* 

908* 

909* 

910* 

911* 

912* 

913* 

9m* 

915* 

916* 

917* 

918* 

919* 



B lOSTATUS .CHECK 1/0 STATUS 
Y$»GET 15 

GET 

NVC 10KEY<15» .KACCTPAY .SAVE KEY 

MVl I0KEY*15,C'(i' .TYPe of I/O 

7GI(CALL GET,C£,F U.,Rt,FlL.,KtFIL. > 

OS OH 

LA 15.ACCTPAY 

ST IS.PLIST^iJ^d-l) 

L» IB.RACCTPAY 

ST 15,PLrST«i|»«2-l J 

LA 15, KACCTPAY 

ST 15,PL1ST*'««C3-U 

01 PLIST*"**! 3-1 ) ,X'80' 

LA I.PLIST 

L 15,=\((GEtI 

BALR li^.lS 

AI KGET.l .INCREMENT 10 COUNT 

MVC 10FILE«2c)t*CCTPAY*8 .SAWE FILE 

B lOSTATUS .CHECK I/O STATUS 

YSjREAD 15 

READ <SECUENTIAL GETI 

MWC I0KEY(15) .KACCTPAY .SAVE KEY 

MVl 10KEY*15,C'N" .TyPE OF I/O 

2G((CALL GET,ltFIL.,H£FIL.» 

DS 

LA 

ST 

I A 

ST 

01 

LA 

L 

BALR 

AI «GET,1 .INCREMENT 10 COUNT 

MVC lOFILEfZC I ,ACCTPA Y*8 .SAVE FILE 

B IOSTaTUS .CHECK I/O STATUS 



■1 I 



OH 

IS.ACCTPAY 

15,PL1ST«I4»J1 

IS.RACCTPAY 

15,PLIST*4«(2-1) 

PLIST*M*t2-l» ,X'(iO* 

I.PLIST 

15,=V(&ETI 

It, 15 

•GET.l .INCREMENT 10 

lOFILEfZC I .ACCTPA Y*8 

IOSTaTUS .CHECK I/O 



Y»JGETUP 15 



GETUP 



MVC lOKEYC 151 .KACCTPAY .SAVE I 

MVI I0KEY*15,C'U' .TyPL OF I/l 

ZG«CALL GETUP, tCFIL.,RCFlL. ,KCF 
DS OH 



.SAVE KEY 
- - - 

TL.) 



DS 
LA 
ST 
LA 
ST 
LA 
ST 
01 
LA 
L 



OH 

IS.ACCTPAY 

IS.PLIST*"**!!-!) 

IS.RACCTPAY 

15,PLIST*<«»(2-1I 

1 c _ K nrriD « ¥ 



15, KACCTPAY 

15,PLIST«<»«I3-1 I 

PLISl*'»*t3-l ) ,X»6D' 

I.PLIST 
L 15,rvtGETUP) 

BALR 11,15 
AI HGETUP.l .INCREMENT 10 COUNT 



Figure C-11. APITMS Action Program Processing a Dialog (Part 13 of 29) 
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920* 

921* 

922 ACClPav 

923*» 

92H«* 

925** 

926*P*CCTP*y 

927* 

928* 

929* 

930* 

931* 

932* 

933* 

93«l* 

935* 

936* 

937* 

938* 

939* 

9<*0« 

9«»1 ACCIPAY 

9M2** 

9«t3** 

9t<l«* 

9t5*lACCTPAy 

9tb* 

9i*7* 

9it8* 

9'»9« 

950* 

951* 

952* 

953* 

95'»* 

955* 

956* 

957* 

958* 

959* 

960 ACCTPAV 

961** 

962** 

963** 

96'»*SACCTPAY 

965* 

966* 

967* 

968* 

969* 

970* 

971* 

972* 

973* 

97«»* 

975* 

976* 

977* 

978* 

979* 



HVC I0riLEI2u)iACCTPAV«8 .SAVE FILf 

B jOSTATUS .CHECK I /o STATUS 

VSJPUT 15 

PUT 

MVC I0KtV(15>,KACCTPAY .SAVE KEY 

MVI I0KEV-»1S,C*P' .TyPE OF I/O 

ZGHCALL PUT.ttf IL.,R£FIL.) 

DS OH 

LA jS.ACCTPAY 

ST IS.PLIST^tJSil 

LA IS.RACCTPAy 

ST 15,PLIST*M««2 

01 PLIST»t*t2-l) 

LA I.PLIST 

L 15,:V(PUJ) 

BALR It, 15 

AI «PUT,1 .INCREMENT lO 

MVC I0FILE(2g»,ACCTPAY*8 

B iOSTATUS .check I/O 

Y»iIMSf<T 15 



-1» 
-1) 



COUNT 

• SAVE 

STATUS 



FILE 



INSERT 

MVC IOKEY (1 5» .KACCTPA Y .SAVE KEY 

MVI I0KEY*16,C'I' .TyPE OF I/O 

ZG«CALL INSERT , (tFlL. ,RCFIL . I 

DS CM 

LA IS.ACCTPAY 

ST 1 5,PLIST*Hft( 1-1 1 

LA IS.RACCTPAY 

ST 15,PLIST^M»C2-1 ) 

01 PLIST*"**!?-! » ,X'bC« 

LA l.PLIST 

L 15, rV( INSERT) 

BALR m,15 

Al DINSERT,! .INCREMENT 10 COUNT 

MVC I0FILE(2C ) ,ACCTPAY«8 .SAVE FILE 

B IOSTATUS .CHECK 1/0 STATUS 

VSSSETLK 15 

SET SEQUENTIAL MODE BY SPECIFIED KEY 

MVC lOKEYdSI .KACCTPAY .SAVE KEY 

MVI I0KEY«1S,C'S' .TyPE OF I/O 

ZG«CALL SETL,«LF1L. , POSITION ,KtF IL . » 

DS 

LA 

ST 

LA 

ST 

LA 

ST 

01 

LA 

L 

BALR 

MVC 

B 



^^SK-*- 



OH 

I5,ACCTPAY 

15,PLlST«t«Cl-lJ 

15, POSITION 

15,PLIST«q«C2-lJ 

15,KACCTPAY 

15,PLIST«M*|3-1 J 

PLIST*«l*(3-l J ,X*8Q' 

l.PLIST 

l5,rv(SETL) 

m,15 

I0FILE«2D) ,ACCTPAY«8 .SAVE FILE 

lOsTATUS .CHECK I/O STATUS 



Figure C-1 1. APITMS Action Program Processing a Dialog (Part 14 of 29) 
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c 



980 ACCTPAY 

98X + * 

962** 

983** 

98^♦E;»CCTpAY 

985* 

986* 

987* 

988* 

989« 

990 + 

991* 

992* 

993* 
9944* 

995* 

996 ACCOUNT 
997** 
998** 
999 + « 
1Q00*GACC0UNT 

1002* 
1003* 
100<l* 
1005* 
10G6* 
1007* 
1008* 
1009* 
lOIO* 
1011* 
1012* 
1Q13* 

lain* 

1015* 

1016* 

1Q17 BRAMCHM 

1018*« 

1019«* 

1020** 

1021«GBRANCHM 

1022* 

1023* 

102«»* 

1025* 

1026* 

1027* 

1028* 

1029* 

1U30* 

1031* 

1032* 

1033* 

1034* 

1035* 

1036* 

1037* 

1038 ACCTMST 

1039*« 

IPtO** 



YSSESCTL 15 



SET RANDOM MODE 

MVC lOKEYdb) .KACCTPAY .SAVE KEY 

MVl 10KEY*1S,C'£' .TYPE or I/O 

2G»CALL ESETL,(CF1L.J 

0$, DH 

LA 15, ACCTPAY 

ST IS.PLIST*!**!!-!} 

Ol pLlST*<(*l 1-U ,X"80' 

LA I.PLIST 

L 15,=VtESETL» 

BALR 1M,15 

MWC I 0F1LE»2D» ,ACCTPAY«8 .SAVE FILE 

B lOsTATUS .CHECK I/O STATUS 

YSSGET 8 

GET 

MVC lOKEY (8 ) .KACCOUNT .SAVE KEY 

MVI I0kEY«8,C*G' .type of I/O 

2G|)CALL 6ET,{CFIL.,RtFIL.,K£.FIL.) 

DS OH 

LA 15, ACCOUNT 

ST 15,PLIST*M*{i - 1 ) 

LA IS.RACCOUNT 

ST 15,PLIST♦^*(^-l 1 

LA IS.KACCOuNT 

ST 15,PLIST»<(o(3-n 

01 PLiST-»f»t 3-1 ) ,X*60' 

LA l.PLIST 

L 15,-V{&ET) 

BALR I^.IS 

AI »GET,1 .INCREMENT 10 COUNT 

MWC I0FILE»2d I .ACC0UNT*8 .SAVE FILE 

B lOSTATUS .CHECK i/C STATUS 

Y*SGET 3 

GET 

MVC I0KEYC3 > .KBHANCHM .SAVE KEY 

MVI I0kEY*3,C*6* .type of I/O 

ZGoCALL GET , t tFIL. ,RtF lL.,KtFIL. J 

DS 

LA 

ST 

LA ■ 

ST 

LA 

ST 

ni 

LA 
L 

BALR 

AI HGET.l .INCREMENT 10 COUNT 

MVC lOFILE I2GI ,tsRANCHM*6 .SAVE FILE 

B lOSTATUS .CHECK I/C STATUS 

Y$iGE I 



OH 

IS.BRANCHM 

15,PLIST*<4«(1-1 I 

iS.RBRANCHM 

1 5,PL1ST*4*(2-1 ) 

15,KBRANCHM 

16,PLIST*U*J3-1) 

PLlST*i(#|3-l) ,X«80' 

l.PLIST 

15,:v(Gt1 ) 

m.is 

HGET.l .INCREMENT 10 
lOFILE I2GI ,tsRANCHM*6 
lOSTATUS .CHECK I/C 
8 

GET 



c 



Figure C-H. APITMS Action Program Processing a Dialog (Part 15 of 29) 
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10it2*GACCTHS( 
lOHb* 

lot?* 

1050* 

1051* 

1052* 

1053* 

IDS'** 

1065* 

1056* 

1057* 

1058* 

1059 PAYROLL 

1060** 

1061** 

1062** 

1063*GPAYR0tL 

106'»* 

1065* 

1066* 

1067* 

1068* 

1069* 

1070* 

1071* 

1072* 

1073* 

107II* 

1075* 

1076* 

1077* 

1078* 

l079* 

1080 TABLEHT 

1081*» 

1082** 

1083** 

108«t*GTAbLEMT 

1085* 

1086* 

1087* 

1088« 

1089* 

1090* 

1091* 

1092* 

1093* 

109«»* 

1095* 

1096* 

1097* 

1098* 

1099* 

HOP* 



HVC lOKEt (8) .KACCTMST .SAVE KEY 

MWl 10kCY*6,C*G' .type of I/O 

ZGkCALL GET,(f.FIL.,RCFlL.,K{.FIL.» 

OS CH 

LA IS.ACCTMST 

ST IS.PLIST^^^d-l 1 

LA 15,RACCTHST 

ST 15,PLISf •.'*»t2-n 

LA 15,KACCTMST 

ST 15,PLlST«4*(3-n 

01 PLIST*«»( 3-1 1 ,X«6Q' 

LA I.PLIST 

L 1 5,-V(GLl ) 

BALR 14,15 

AI KGET.l .INCREMENT 10 COUNT 

MVC lOFlLE (<;0) ,ACCTMST*8 .SAVE FILC 

B IOSTaTUS .check I/O STATUS 

Y$$GET t 

GET 

WWC 10KEY(M),KP*YR0LL .SAVE KEY 

MVI IOKEY*«l,C'G' .TYPE OF I/O 

ZGKCALL GET,«{.FIL.,RtFlL.,KtFIL.) 

OS OH 

LA 15, PAYROLL 

ST 15,PLIST,'»*{l-n 

LA 15,RPAYR0LL 

ST 15,PLIST«*»«<2-1 I 

LA 15,KPAVR0LL 

ST 15,PLIST«'««C3-n 

01 rLIST*<t«( 3-11 .X'tJO* 

LA 1,PL1ST 

L 15,=V(GET» 

BALR m,15 

AI 1(6ET,1 .INCREMENT 10 COUNT 

MVC I0FILEI2U> tPAYR0LL*8 .SAVE FILE 

B IOSTaTUS -cH^CK I/O STATUS 

YSSGET 8 

GET 

MVC lOKEY(R) .KTABLEMT .SAVE KEY 

MVI I0KEY*8,C'G' .TYPE OF I/O 

2G«CALL GET,ltF IL.,RtFIL.,K(.FlL. I 

OS Dh 

LA IS.TABLEMT 

ST 15,PLIST«H»(1-1 ) 

LA IS.RTABLEMT 

ST 15,PLIST*4*(2-1) 

LA 15, KTABLEMT 

ST 15,PLIST*4«13-1 J 

01 PLlST^f^lS-l » ,X'80' 

LA 1,PL1ST 

L 15,-V(GETJ 

BALR 11,15 

AI «GET,1 .INCREMENT 10 COUNT 

MVC I0FILE«2C>.TABLEMT*8 .SAVE FUF 

B IOSTaTUS .CHECK I/O STATUS 



Figure C-1 1. APITMS Action Program Processing a Dialog (Part 16 of 29) 



C-56 



UP-9207 Rev. 2 



Basic Assembly Language (BAL) Action Programming Examples 



llOi 
1102** 

n05*D*YTIHE 

llOb* 

1107* 

U08« 

1109* 

1110* 

1111« 

U12» 

U13* 

11154 

111b* 

1117* 

1118* 

1119 

1120** 

1 121«*«*«**« 

1122** 

1123*« 

112H»* 

1125*» 

1126** 

1127** 

1128+RJl 

1129* 

1130+RJ2 

1131* 

1132*RJi 

1133* 

1131«RJ'* 

113S* 

113b*RJb 

1137* 

1138*RJ6 

1139* 

imo*Rj/ 
iiti* 

ll'«2*RJb 

ll«t3* 

lll»'»*RJ9 

ll'«5* 

111b*RJlC 

ll«t7* 

im8*RJU 

11M9* 

1150*RJ 

1151* 

1152* 

1153* 

115<»« 

1155* 

115b* 

1157 + 

1158* 

1159 tPITMS 



rsiNou 



.DftTE/TIME 



*«««««« DATE AND TIME STAMP «*#»»*♦♦*»»#»♦•♦»*•♦••*♦••«••*•♦*•* 

ORG « 
6ETIME S 
DS CH 



SR 

SVC 

ST 



1,1 
7 



HQ.UORKl .DATE-OtYHMDO* 
UNPK U0RK1*<» (7 1 ,iJORK 1 (4) 
HVC YYMMD0C6I ,W0RK1*S 

01 YYMHDD«S,X'Fa • .FIX SIGN 

ST ftl.UOPHl .1 IME-GHH^-MSS* 

UNPK yORKl*<« 1 7 J .idORKl ( "4 » 
HVC HHMHSSI6> ,W0WK1*S 

01 HHHMSS«5,X'Fa • .FIX SIGN 

BR R7 .RETURN REGISTER 

YSSRJ 



.RIGHT JUSTIFY 



««««««* RIGHT JUSTIFY «•«»»»»•<,♦<,»(•♦, •»»*«*•»♦«•»»««»•»«•»•♦**»• 



RQ : FIELD LENGTH 
Rl : FIELD ADDRESS 
R15 z RETURN STATUS 

LA R0,1 .SET LENGTH 

B Rj 

LA Ra,2 .SET LLnGTH 

B RJ 

LA R0,3 .SET LENGTH 

B RJ 

LA RO.'I .SET LLNblH 

B RJ 

LA Ra,5 .SET LLNGTH 

B RJ 

LA RD,6 .SET LlnGTh 

B RJ 

LA Ra,7 .SET LENGTH 

B RJ 

LA Ra,8 .SET LLNGTH 

B R J 

LA RO.V .SET LENGTH 

B RJ 

LA RD.IO .SET LENGTH 

B RJ 

LA Ra,U .SET LLNGTH 

B RJ 

ST R7,RJSAVL .SAVE RETURN AOORfSS 

LA R13,SAVE .FHOGR»M '.AVE ARE* 

DC OY(OJ 

ExTRfj HoDRji .fiiGHi Justify module 

L R 15 ,-A t MOOR Ji I 

BALR R14,R15 .BPANCh 10 rtu 

L r7,RJSAVE .^LSTOPE RETURN ADDRESS 

LTR R15,R15 .S^T CCNCITION CODE FOR ERRORS 

BR R7 .RETURN TO CALL 

YSISNAP .SNAP DUMP 



r 



Figure C-11. APITMS Action Program Processing a Dialog (Part 17 of 29) 
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1160«» 




1161 ♦*•*«**•* ****** 


116?«* 




1163-»SNAPI1 


ORG 


116M* ZGkCALL SN 


1165* 


DS 


1166* 


LA 


1X67« 


ST 


Xi68« 


LA 


1169* 


ST 


1170* 


LA 


1171* 


ST 


1172* 


LA 


1173* 


ST 


I IT** 


LA 


1175* 


ST 


1176* 


LA 


1177* 


ST 


1178* 


LA 


1179* 


ST 


1180* 


LA 


1181* 


ST 


1182* 


LA 


1183* 


ST 


U8t* 


LA 


1185* 


ST 


1186* 


01 


1187* 


LA 


1188* 


L 


1189* 


BALR 


1190* 


BR 


1191 


YS»TE 


11 92* ♦*»•**♦• ****** 


1193** 




1191******** 


«««««*« 


1195*TERM 


CLI 


1196* 


BE 


1197* 


CLI 


1198* 


BNE 


H99*«BTERM 


HVI 


1200* 


B 


1201+SNAP 


GETIM 


1202*SNAP 


DS 


1203* 


LA 


120'«* 


SVC 


1205* 


ST 


1206* 


2G«CAL 


1207* 


DS 


1208* 


LA 


1209* 


ST 


1210* 


LA 


1211* 


ST 


1212* 


LA 


1213* 


ST 


121'»* 


LA 


1215* 


ST 


1216* 


LA 


1217* 


ST 


1218* 


LA 



««««*««« SNAP DUMP OF ACTIOKt P'OGftAM **«««♦♦•*♦»«»***•*»♦•«»»*♦* 



AP,(2Al)DPIB,LP,2AllIMH,El,W0RK,El.,2A«0MH,E0,£NAM.,Y5»Et 

GM 

IS.ZAUDPIB 

15,PLIST*'»*(l-n 

15, EP 

15,PLIST*M«I2-1» 

15,2A»1MH 

15,PLIST**»*(3-1» 

15, El 

I5,PLIST«<»«m-l » 

15, WORK 

15,PLIST*'»*C5-1> 

15. EU 

15,PLIST*'»*<6-1 J 

15,ZA»0HH 

15,PLIST*M»J7-1 I 

15, EO 

15,PLIST*<»*(8-I J 

15,ApnMS 

15,PLIST*'»*I9-1» 

15,Y»SE 

15,PLIST*'4*(1Q-U 

PL1ST*M»{ ID-i » ,X«80' 

1 ,PLIST 

15,rvlSNAP» 

l'»,15 

R7 .RETURN REGISTER 
R« .PROGRAM TERMINATION 

PROGRAM TERMINATION « 

****************** ***************«**m**iiim^ *************** 

ISNAP,C*N' .REQUEST NORMAL TERMINATION WITH SNAP? 

SNAP .YES 

1SNAP,C*S' .REQUEST ABNORMAL TERMINATION WITH SNAP? 

FINISH .NO-NORMAL TERMINATION 

2A«PSIN0,C'S' .TERMINATE WITH SNAP DUMP 

FINISH 
E M 

QM 

1.1 

7 

Rl.ETIKS 
L SNAP,l2AlfDPia,EP,?A«IMH,EI .WORK ,Ey .ZAIIOMH ,E0 , Y$SB , Y»SE I 

CM 

15,ZA«0P1B 

1S,PLIST*4*«1-1 

15, CP 

15,PLlST*'4«i2-l 

15,ZA»IMH 

15,PLIST*»4«C3-1 

15, El 

15,PLlST*')*m-l 

IS.UGRK 

15,PLIST**»*(5-1 

IS.Ew 



Figure C-11. APITMS Action Program Processing a Dialog (Part 18 of 29) 
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c 






1219-» 

122Q + 

1221* 

1222* 

1223* 

122m 

1225* 

1226* 

1227* 

1228* 

1229* 

l230* 

1231* 

1232+FI 

1233«FI 

123'«« 

1235* 

1236* 

1237* 

1238* 

1239* 

12HQ* 

1212 

12H3+EM 

12'»«»* 

X2M5* 

12'»6 

12<t7»EW 

1218* 

i2t9» 

1250 

1251+EM 

1252* 

1253* 

1251 

1255«EH 

1256* 

1257* 

1258 

1259*EM 

1260-I 

1261 + 

1262 

1263+EM 

126««* 

1265* 

1266 

1267*EM 

1268* 

1269* 

1270 •* 

1271 • 

1272 ♦* 

1273 AC 
l27«» AC 

1275 BR 

1276 AC 

1277 PA 

1278 TA 

1279 BL 



NISH 
NISH 



SGI 



SG? 



S63 



S6«» 



S65 



SG7 



SGIO 



CTPAY 
COUNT 
Af«CHM 
CTMST 
YROLL 
SLEHT 
A\KS 



ST 
LA 
ST 

LA 
ST 
LA 
ST 

LA 
ST 

01 
LA 

L 

BALP 

GETIM 

DS 

LA 

SWC 

ST 

ZGIICA 

DS 

L 

BALR 

Y$$MS 

MVC 

MWC 

B 

YilMS 

MVC 

MVC 

B 

Y$$MS 

MWC 

MVC 

B 

V$IMS 

MWC 

MWC 

B 

YS»MS 

MVC 

MVC 

B 

YSJMS 

MWC 

MWC 

B 

YSSMS 

MWC 

MWC 

B 

DC 
DC 
DC 
DC 
DC 
DC 
DC 



15, PL 
15, ZA 
15, PL 
15, EO 
15, PL 
15, Y» 
15, PL 
15, Yi 
15, PL 
PLIST 
1,PLI 
15, XV 
It, 16 
£ H 
DH 

1 ,1 

7 

R1,ET 
LL RET 

DH 

15, = V 
14,15 

G 1 
OMA«L 
ZANOT 
TERM 

G 2 
OMA(L 
2AK0T 
TERM 

6 3 
OMA (L 
ZAItOT 
TERM 

G M 
OMAIL 
ZAkOt 
TERM 

G 5 
OMA(L 
ZA«OT 
TERM 

6 7 
OMA <L 
ZA»Ot 
TERM 

G 10 
OMA(L 
ZA»OT 
TERM 

CONST 

C 'ACC 
C'aCc 
CERA 
C 'ACC 
C'PAY 
C'TAB 
CL80' 



IST«4*(6-1 ) 
dOMH 
IST«<t»( 7-1 » 

IST«4*(8-1 ) 

IB 

IST*t*t9-l I 

*E 

IST*i**t JO-1 J 

♦ M*< lC-1 ) ,X .PC" 

ST 

(SNAP) 



IMl .E-iDlNG TIME 

URN .RETURN CONTROL TO IMS 

rvJRETURN) 



MSGl J ,HSG1 

Lf2» ,-Y{a*LMS61*m 



MSG2 I ,MSG2 

LJi) ,-YlQ*LKSG2««t) 



MSGi»,MSG3 

Le2» ,:Y(a*LMSG3*'»l 



MSG^ J ,MSG*t 

H2» ,-Y( J*LHSG4*<») 



MSG5 » ,MSG5 

L«2J ,rYtO*LHSG5*M ) 



MSG7) ,MSG7 

L(2» ,-Y<a*LMSG7«iH 



MSGIO) ,MSG1U 
L<2»,=Y(3*LMSG10»'») 

^if*itm»9*******m* ****** ^***m**************m*m^*m**»* 

ANTS 

*«************************^***^*^*****^*^*^*^*^*^*^ 

TPAy ACCOUNTS PAYABLE 

OUNT CHART OF ACCOUNTS 

NCHM BRANCH MASTER 

TMST ACCOUNT SUMMARY MST 

ROLL PAYROLL MASTER 

LEMT SECURITY AND CODE 






Figure C-1 1. APITMS Action Program Processing a Dialog (Part 19 of 29) 
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1280 


MSGl 


DC 


X 'lOCAlSOllC 


1281 




DC 


C'USE "TRAN UNPROT DISPL"* 


1282 




DC 


X'1D1DC2DQ03* 


128 3 


LMSOl 


CQU 


*-MSGl 


128M 


« 






1285 


MS&2 


DC 


X •100AJ8011C' 


1286 




DC 


CAP HEADER NOT FOUND. CONTACT ISD' 


1287 




DC 


X'1D100200DJ« 


1288 


LMSG2 


EQU 


■»-HSG2 


1289 


* 






1290 


MSGi 


DC 


X •10DA18C11C' 


1291 




DC 


CAP SETLL LRROR* 


1292 




DC 


X'1D1002GDC3* 


1293 


LMSG3 


EQU 


•-HS63 


129i» 


* 






1295 


MSGM 


DC 


XM0CIA18011C 


1296 




DC 


CITEM NOT FOUNti* 


1297 




DC 


X'1010D200Da' 


1298 


LHSGt 


EQU 


»-MSGf 


1299 


« 






1300 


MSG5 


DC 


xMOOAiaoiic' 


1301 




DC 


CCHECK NOT FOUND* 


1302 




DC 


X'1D1002DQ0J' 


1303 


LMSG5 


EQU 


»-MS&5 


l30^ 


* 






1305 


MS67 


DC 


X'lOOAlSLllC 


1306 




DC 


CCHECK AMOUNT CANNOT BE TRANSLATED" 


1307 




DC 


X*1D1002DOOO' 


13o8 


LMSG7 


EQU 


•-HS&7 


1309 


« 






1310 


MSGIO 


DC 


x'lOQAieanc 


1311 




DC 


CAP ITEMS' 


1312 




DC 


XMDlOD2CQCa' 


1313 


tMSGlO 


EQU 


*-MSG10 


1311 


« 






1315 


MSGll 


DC 


CAPCKS • 


1316 




DC 


X'3F3F> 


1317 




DC 


CX' CHANGE 


1318 




DC 


X'3F3F' 


1319 


MIIa 


DC 


X'D5* 


1320 




DC 


X'JF • 


1321 


HI lb 


DC 


CLB* • 


1322 




DC 


X '3FC5' 


1323 


LHSGll 


EQU 


■> -MSGll 


132<« 


DMllA 


EQU 


MllA-MSGU 


1325 


DHliB 


EQU 


HUB-HSGll 


1326 


♦ 






1327 


nSG12 


DC 


CAPAUD • 


1328 




DC 


CL3' ' 


1329 




DC 


X'3F • 


1330 


M12A 


DC 


CLf • CHECK TYPE 


1331 




DC 


X*3F' 


1332 


M12b 


DC 


CL5' • CHECK « 


1333 




DC 


X'3F' 


133H 




DC 


CL2' • 


1335 


LMSG12 


EOu 


*-MSG12 


1336 


Df«12» 


EQU 


M12A-MSG12 


1337 


OMIZB 


EQU 


M12B-MSGi2 


1338 


* 






1339 




PRINT 


CEN 



) 



Figure C-U. APITMS Action Program Processing a Dialog {Part 20 of 29) 
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i3«»a 


YiiPIB 




.PROGRAM INFORMATION BLOCK 


13*«l**»*»*#«***«»»***#***«*<i»«*9» «****•»*•»*«♦*«♦**■!>»**■»<.*««**•* »**«****«**«| 


13M2** 


LITtRAL POOL 


* 


13M3***«»«« 


*^ *^*m** ************************************ ********************* \ 


13«K»* 


L70R6 






13«I5* 


rC 


'COOO* 




13<»6« 


= * 


CKGDSDI 




13«»7* 


rv 


rHSGIN) 




13il8« 


= V 


IMSGOUl 1 




1319* 


= ¥ 


GETi 




1350* 


-V 


GETliPI 




1351* 


= V 


tPUT> 




1352* 


::V 


INSERl I 




1353* 


= V 


SETl) 




1351* 


::V 


ESETLI 




1355* 


= A 


MODRJl 1 




1356* 


:v 


SNAP ) 




1357* 


-V 


RETURN I 




13b8* 


= r 


0*LY11M)*H I 




1359* 


= Y 


IMA1-USTART> 




1360« 


-Y 


UACCTl-UST ART* 1 » 




1361* 


-C 


AC 




1362* 


zC 


'AP' 




1363* 


-X 


'«»D20faB2o2o2o6B202l2D4B2D2CfeQ« | 


136*»* 


-C 


'Al' 




1365* 


-C 


APUMS' 




1366* 


:C 


'APITS • 




1367* 


-H 


'If 




1368* 


:C 


'APCHKb • 




1369* 


rv 


0«LMSGli»a ) 




1370* 


::C" 


APAUDl • 




1371* 


= Y 


0«LMSGl?»e ) 




1372* 


rC 


• apcks ' 




1373* 


rx 


5C206e2C2U206B20212Qtfa2D2D60 • | 


137«t« 


ZY 


n4LI0M?*4 J 




1375* 


ry 


n*LIOHl ♦M) 




1376* 


= Y 


0»L''.S.Gl"t ) 




1377* 


ry 


Q*LMSG2«'4 ) 




1378* 


:Y 


0«L«SG3<M) 




1379 + 


:Y 


0«LMSG'*«'« ) 




1380* 


:Y 


n*LHS.G5*H) 




1381* 


rY 


0«LHSG7«M 1 




1382* 


zi 


0*LMS& 10*M 1 




1383* 


zC 


APCHK' 




nsM* 


:C 


T80' 




1385* 


:C" 


« 




1386* 


:C" 


A P" 




1387* 


:C 


'APRNT • 




1388 + 


-P' 


1' 




13R9* 


rp 


0' 




1390* 


:C 


TIO' 




139I* 


zC 


CCI* 




1392* 


:C 


SCKCEN fOi^MAT* 




1393»YJ»E 


EOU * . 


END UF Pt^QGRAM 




1516 WORK 


y$*UOHK 




.WORK AREA 


I 51 7* *♦*«*♦♦•*♦•*♦«♦•*< 


»»0»v9*»*******«********************m******* ********* j 


1518** 


UOF 


K AREA 


* 


l%l<i* ****** ************ 


*m ******»« ********* 


t,*******ti********0*m***** ********* 



f 



Figure C-11, APITMS Action Program Processing a Dialog (Part 21 of 29) 
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152O*U0RK 

152l*STIM$ 

1522»E11«» 

15?3*»GEi 

152'»*IIGETUP 

1525««PUT 

1526*»INSERT 

1527*SAVE 

1528«PIIST 

lS29«yH0 

1530+UoRKl 

153l*P*SSKE» 

1532*I0F1LE 

1533«10Ktr 

1535«I0RET 
1536*ER« 
1537*YTMMD0 
1538*HHMMSS 
1539 RJSAVE 
EXPENS 
INCOME 
PROLINE 
POSITION 
L«ST 
BRCH 
DESCPTH 
REVIEW 
TRAILS 
TRAILtl 
TRAILS2 



1510 

151(1 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 YSiSyORK 

1552** 

1553*«»«**»«««»*«*» 

1554*» 

1555*SCRNUM 

1556*SCREENII 

1557+SCSEENU 

1558*HAXITL 

1559«» 

1560* ♦♦**•• •»♦***•* 

1561«* 

1562+UDAtA 

1563*0UT»MSG 

1564*FILL 

1565*IN1MSG 

1566 « 

1567 «*«««**«««*««« 

1568 * 

1569 USTART EQU » 

1570 UTRAN DS CL5 

1571 USNAP DS CLl 

1572 USLINE EQU * 

1573 IMAl ECU • 

1574 UACCTl OS CL8 

1575 UAMTl DS CLIO 

1576 UDESPTl DS CL30 

1577 UEMPl OS CL4 

1578 UXMITI DS CL2 

1579 ULLINE EQU •-UACCT1 



OSECT 

DS A .START TIME <HI LLlSEcONOS I 

DS A .END TIME C MILLI SEC ONDS» 

DS H .NUMBER OF GET 

DS H . SETUP 

DS H . PUT 

DS H . INSERT 

DS 18F .PROGRAM SAVE AREA 

DS 4A .PARAMETER LIST FOR "CALLS" 

DS CL3 .USER INITIALS 

DS 2D .yORK FIELD 

EQU bORKl.S .SECURITY RECORD FILE KEY 

DS CL20 .LAST FILE I/O 

DS CL20 .LAST FILE I/O KEY 

OS CL4 .LAST FILE I/O STATUS 

OS CLl .FILE NOT AVAILABLE-RETURN 

DS CLl .ERROR FLAG 

DS CL6 .DATE 

DS CL6 .TIME 

DS A 

DS CLl 

DS CLl 

DS A 

DS CLl 

DS CLl 

DS CLt 

OS CL30 

DS CLl 

OS CL25D 

OS A 

OS A 



.SOMPS WORK SPAtE 
SOMPS UURK AREA **•«**««**«««««•««««««««««*•»«««««««»««« 



DS 
EQU 
DS 
EQU 



EQU 
EQU 
DS 
EQU 



D .SCREEN NUMBER 

SCRNUM«4,4 

CLieO .SCREEN WORK 

SCREENW,? .MAXIMUM 

SDMPS I/O AREAS 



AREA 

INPUT 



TEXT LENGTH 



• .OUTPUT MESSAGE DATA 
CLl .OUTPUT FILL CHARACTER 

* .INPUT MESSAGE DATA 

UNPROTECTED DATA 






.TRANSACTION CODE 

.SNAP CODE 

.START OF LINE ITEM UNPROT 

.ACCOUNT NUMBER 

.AMOUNT 

•DESCRIPTION 

.EMPLOYEE NUMBER 

.TRANSMIT POSITION 

.END OF LINE ITEM UNPROT 



Figure C-11. APITMS Action Program Processing a Dialog (Part 22 of 29) 
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) 



1580 


UACCT2 


OS 


CL8 


.ACCOUNT NUMBER 




1581 


UAMT2 


OS 


CL13 


•AMOUNT 




1582 


UDESPT2 


OS 


CL?Q 


.OESCPIPTION 




1583 


UEMP2 


DS 


CLM 


•EMPLOYEE NUMBER 




ISSH 


UXMIT2 


DS 


CL2 


.TRANSMIT POSITION 




1585 


U/SCCT3 


OS 


CLS 


•ACCOUNT NUMBER 




1586 


UAMIJ 


OS 


CLIO 


•AMOUNT 




1587 


UDESPT3 


DS 


CL30 


.DESCRIPTION 




1588 


UEMP3 


DS 


CLM 


.EMPLOYEE NUMBER 




1589 


UXMIT3 


DS 


CL2 


•TRANSMIT POSITION 




1590 


UACCTM 


DS 


CLS 


.ACCOUNT NUMBER 




1691 


UAMTt 


DS 


CLIG 


.AMOUNT 




1592 


UDtbPTM 


DS 


CL30 


•DESCRIPTION 




1593 


UEUP"* 


DS 


cm 


.EMPLOYEE NUMBER 




159<t 


UXMIT"* 


as 


CL2 


.TRANSMIT POSITION 




1595 


UACCT5 


DS 


CLa 


.ACCOUNT NUMBER 




1596 


UAMT5 


OS 


CLIO 


.AMOUNT 




1597 


UDESPT 5 


DS 


CL3D 


.OE SCRIPTICN 




1598 


UEMP5 


DS 


CL4 


.EMPLOYEE NUMBER 




1599 


UXM1T5 


DS 


CL? 


.TRANSMIT POSITION 




1600 


UACCt6 


OS 


CLS 


.ACCOUNT NUMBER 




1601 


UAHT6 


DS 


CLIO 


.AMOUNT 




1602 


UDCSPTb 


DS 


CL30 


•DESCRIPTION 




1603 


UEMP6 


OS 


CL4 


•EMPLOYEE NUMBER 




16C4 


UXMlTfa 


DS 


CL2 


•TRANSMIT POSITION 




1605 


UACCT7 


DS 


CL8 


.ACCOUNT NUMBER 




1606 


UAM17 


DS 


CLIO 


.AMOUNT 




1607 


UDLbPT? 


OS 


CL30 


.DESCRIPTION 




1608 


UEMP7 


DS 


cm 


.EMPLOYEE NUMBER 




1609 


UXM1T7 


OS 


CL2 


.TRANSMIT POSITION 




1610 


UACCT8 


DS 


CL& 


.ACCOUNT NUMBER 




1611 


UAM18 


DS 


CLIO 


.AMOUNT 




1612 


UDESPT8 


DS 


CL3a 


.DESCRIPTION 




1613 


UEMPS 


DS 


cm 


.EMPLOYEE NUMBER 




16m 


UXMiTP 


DS 


CL2 


.TRANSMIT POSITION 




1616 


UACCT9 


DS 


CL8 


.ACCOUNT NUMBER 




1616 


UAMT9 


DS 


CLIO 


.AMOUNT 




1617 


UDESPT9 


DS 


CL30 


.DESCRIPTION 




1618 


UEMP9 


DS 


CL"* 


.EMPLOYEE NUMBER 




1619 


UXMIT9 


DS 


CL2 


•TRAKSMIT POSITION 




1620 


UACCTIQ 


DS 


CL8 


•ACCOUNT NUMBER 




1621 


UAMTIO 


DS 


CLIO 


•AMOUNT 




1622 


UDESPTIQ 


DS 


CL30 


•DESCRIPTION 




1623 


UEHPIO 


DS 


CLt 


.EMPLOYEE NUMBER 




162'4 


UXMITIO 


DS 


CL2 


.TRANSMIT POSITION 




1625 


UACCTIl 


DS 


CLS 


•ACCOUNT NUMBER 




1626 


UAMlll 


DS 


CLIO 


•AMOUNT 




1627 


UDESPTll 


DS 


CL30 


.DESCRIPTION 




1628 


UEMPll 


DS 


CLM 


•EMPLOYEE NUMBER 




1629 


UXMlTll 


DS 


CL2 


.TRANSMIT POSITION 




1630 


UACCTI2 


DS 


CL8 


.ACCOUNT NUMBER 




1631 


UANT12 


DS 


CLIO 


.AMOUNT 




1632 


UDESPT12 


DS 


CL30 


•DESCRIPTION 




1633 


UEMP12 


DS 


cm 


•EMPLOYEE NUMBER 




16 3H 


UXH1T12 


DS 


CL2 


.TRANSMIT POSITION 




1635 


UACCT13 


DS 


CL8 


.ACCCUNT NUMBER 




1636 


UAMT13 


DS 


CLIO 


.AMOUNT 




1637 


UDESPT13 


OS 


CL30 


.DESCRIPTION 




1638 


UEMP13 


DS 


cm 


.EMPLOYEE NUMBER 




1639 


UXHITI 3 


DS 


CL2 


.TRANSMIT POSITION 





c 



Figure C-U. APITTVIS Action Program Processing a Dialog (Part 23 of 29) 
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161*0 


UACCT11 


DS 


C18 


.ACCOUNT NUMBER 


1611 


UAMTll 


OS 


CLIO 


•AHOUNT 


1642 


UDESPTll 


DS 


CL30 


.DESCRIPTION 


1613 


UEMP11 


OS 


CL1 


.EMPLOYEE NUMBER 


1611 


UXHIT11 


DS 


CL2 


.TRANSMIT POSITION 


1615 


U«CCT15 


DS 


CL8 


.ACCOUNT NUMBER 


1616 


UAM115 


DS 


CLIO 


•AMOUNT 


1617 


UDESPT15 


DS 


CL30 


.DESCRIPTION 


1618 


UEMP15 


DS 


CL1 


.EMPLOYEE NUMBER 


1619 


UXMIT15 


DS 


CL2 


.TRANSMIT POSITION 


1650 


UACCT16 


OS 


CL8 


.ACCOUNT NUMBER 


1651 


U«Hn6 


DS 


CLIO 


.AMOUNT 


1652 


UDESPT16 


DS 


CL30 


.DESCRIPTION 


1653 


UEHP16 


DS 


CL4 


.EMPLOYEE NUMBER 


1651 


UXM1TI6 


DS 


CL2 


.TRANSMIT POSITION 


1655 


UACCT17 


DS 


CL8 


.ACCOUNT NUMBER 


1656 


UAMT17 


DS 


CLIO 


.AMOUNT 


1657 


UDESPT17 


DS 


CL3a 


.DESCRIPTION 


1658 


UEMP17 


DS 


CL1 


.EMPLOYEE NUMBER 


1659 


UXHITl 7 


DS 


CL2 


.TRANSMIT POSITION 


1660 


UACCT18 


DS 


CL8 


.ACCOUNT NUMBER 


1661 


UAMT18 


DS 


CLIO 


.AMOUNT 


1662 


UDESPH8 


DS 


CL30 


.DESCRIPTION 


1663 


UEHP18 


DS 


CL1 


.EMPLOYEE NUMBER 


1661 


UXNITia 


DS 


CL2 


•TRANSMIT POSITION 


1665 


UACCT19 


DS 


CLe 


.ACCOUNT NUMBER 


1666 


UAH119 


OS 


CLIO 


.AMOUNT 


166 7 


UDESPT19 


DS 


CL3Q 


.DESCRIPTION 


1668 


UEMP19 


DS 


CLI 


.EMPLOYEE NUMBER 


1669 


UXHITl 9 


DS 


CL2 


.TRANSMIT POSITION 


1670 


UACCT2Q 


DS 


CL8 


.ACCOUNT NUMBER 


1671 


UAM12C 


DS 


CLIO 


.AMOUNT 


1672 


UDESPT20 


DS 


CL30 


.DESCRIPTION 


1673 


UEMP2D 


DS 


CLI 


.EMPLOYEE NUMBER 


1671 


UXHIT2Q 


DS 


CL2 


.TRANSMIT POSITION 


1675 


DAMT 


EOU 


UAf.Tl-USLlNt 


.DISPLACEMENT OF AMOUNT 


1676 


DDESPT 


EQU 


UOESPTl-USLINE 


.DISPLACEMENT OF DESCRIPTION 


1677 


DEMP 


EQU 


UEMPl-USL INL 


.DISPLACEMENT OF FMPLOYEE « 


1678 


DXMIT 


EQU 


UXMITl-UbLlNL 


.DISPLACEMENT OF TRANSMIT 


1679 


usrop 


DS 


CLI 




1680 


* 








1681 


*<>«;»«««»«««««■» 


PROTECTED REPLACEMENT 




1682 


* 








1683 


PDATA 


EOU 


e 




1681 


PSTART 


EOU 


* 




1685 


PSLINE 


EOU 


« 


.STAWT OF LINE ITEM 


1686 


PLINBI 


DS 


CL3 


.LINE NUMBER 


1687 


PCACCTl 


DS 


CLI 


.ACCOUNT ERROR CODE 


1688 


PBACCTl 


DS 


CLI 


.ACCOUNT BLINKER 


1689 


PCOAl 


DS 


CLI 


.CiSH/ACCRUAL 


1690 


PBAMTl 


DS 


CLI 


.AMOUNT BLINKER 


1691 


PBDESPl 


DS 


CLI 


•DESCRIPTION BLINKER 


1692 


PC£MP] 


OS 


CLl 


.EMPLOYEE ERROR CODE 


1693 


PREMPl 


OS 


CLI 


.EMPLOYEE BLINKER 


1691 


PELINE 


EQU 


* 


.END OF LINE ITEM 


1695 


PLLINE 


EQU 


PELINE -PSL1-4L 




1696 


PLlNd? 


DS 


CL3 


.LINE NUMBER 


1697 


PCAtCT2 


DS 


CLI 


•ACCOUNT ERROR CODE 


1698 


PBACCT2 


DS 


CLI 


.ACCOUNT BLINKER 


1699 


PC0A2 


DS 


CLI 


.CASH/ACCRUAL 



o 



Figure C-11. API7MS Action Program Processing a Dialog (Part 24 of 29) 
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1700 


PBAMT2 


OS 


CLl 


•AMOUNT BLINrEP 




1701 


PBDLSP2 


DS 


CLl 


.DESCRIPTION BLINKFR 




1702 


PCCMP2 


OS 


CLl 


•EMPLOYEE ERROR CODE 




1703 


PBEMP2 


DS 


CLl 


•EMPLOYEE RLINKER 




17014 


PLINIf3 


DS 


CL3 


•LINE NUMBER 




1705 


PCACCT3 


DS 


CLl 


•ACCOUNT ERROR CODE 




1706 


PBACCTS 


DS 


CLl 


•ACCOUNT BLINKER 




1707 


PC0a3 


DS 


CLl 


•CASH/«CCPUAL 




i7Da 


P6ANT3 


DS 


CLl 


•AMOUNT BLINKER 




17C9 


PBQt.SP3 


DS 


CLl 


•DESCRIPTION BLINKER 




171Q 


PCLMP3 


DS 


CLl 


•EMPLOYEE ERROR COPE 




1711 


PBtMP3 


DS 


CLl 


•EMPLOYEE BLINKER 




1712 


PI INIIM 


DS 


CL3 


•LINE NUMBER 




1713 


PCACCTM 


DS 


CLl 


•ACCOUNT ERROR CODE 




17m 


PBACCT4 


DS 


CLl 


• ACCOUNT FiL INKER 




1715 


PCOA^ 


DS 


CLJ 


•CASH/ACCRUAL 




1716 


PBAMTii 


DS 


CLl 


•AMOUNT BLINKEP 




1717 


PBOLSpl 


DS 


CLl 


• DESCRIPTION BLINKER 




1718 


PCfMP"* 


DS 


CLl 


•EMPLOYEE ERROR CODE 




1719 


PBEMptt 


DS 


CLl 


•EMPLOYEE BLINKER 




1720 


PL1NK5 


DS 


CL3 


•LINE NUMBER 




17Z1 


PCACCT5 


OS 


CLl 


.ACCOUNT ERROR CODE 




1722 


PBACCT5 


DS 


CLl 


•ACCOUNT BLINKER 




1723 


PC0A5 


DS 


CLl 


.CASH/ACCRUAL 




172* 


PBAMT5 


OS 


CLl 


.AMOUNT BLINKER 




1725 


PBDESP5 


DS 


CLl 


.DESCRIPTION BLINKER 




1726 


PCEHP5 


DS 


CLl 


.EMPLOYEE ERROR CODE 




1727 


PBEMPS 


DS 


CLl 


.EMPLOYEE BLINKER 




1723 


PLINII6 


DS 


CL3 


.LINE NUMBER 




1729 


PCACCT6 


DS 


CLl 


•ACCOUNT ERROR CODE 




1730 


PBACCT6 


OS 


CLl 


.ACCOUNT BLINKER 




1731 


PC0A6 


DS 


CLl 


.CASH/ACCRUAL 




1732 


PBAMT6 


OS 


CLl 


.AMOUNT BLINKER 




1733 


PB0ESP6 


DS 


CLl 


.DESCRIPTION BLINKER 




173i» 


PCEMP6 


DS 


CLl 


.EMPLOYEE ERROR CODE 




1735 


PBEHP6 


DS 


CLl 


.EMPLOYEE BLINKER 




1736 


PLlNt7 


OS 


CL3 


.LINE NUMBER 




1737 


PCACCT7 


DS 


CLl 


•ACCOUNT ERROR CODE 




1738 


PBACCT7 


OS 


CLl 


•ACCOUNT Blinker 




1739 


PC0A7 


OS 


CLl 


.CASH/ACCRUAL 




17<»0 


PBAMT7 


DS 


CLl 


.AMOUNT BLINKER 




17«H 


PBDESP7 


OS 


CLl 


.DESCRIPTION BLINKER 




17^2 


PCEHP7 


OS 


CLl 


.EMPLOYEE ERROR CODE 




1713 


PBEMP7 


DS 


CLl 


.EMPLOYEE BLINKER 




imn 


PLlN»8 


DS 


CL3 


.LINE NUMBER 




1715 


PCACCT8 


DS 


CLl 


.ACCOUNT ERROR CODE 




17U6 


PBACCT8 


OS 


CLl 


.ACCOUNT bl Inker 




i7«l7 


PC0A8 


DS 


CLl 


.CASH/ACCRUAL 




i7»«8 


PBAMT8 


OS 


CLl 


.AMOUNT BLINKER 




17«»9 


pbdesps 


05 


CLl 


.DESCRIPTION BLINKER 




1750 


PCEHP8 


DS 


CLl 


.EMPLOYEE ERROR CODE 




1751 


PBEMP8 


DS 


CLl 


.EMPLOYEE BLINKER 




1752 


PLIN»9 


DS 


CL3 


.LINE NUMBER 




1753 


PCACCT9 


DS 


CLl 


.ACCOUNT ERROR COOE 




1751 


PBACCT9 


OS 


CLl 


.ACCOUNT BLINKER 




1755 


PC0A9 


DS 


CLl 


.CASH/ACCRUAL 




1756 


PBAMT9 


DS 


CLl 


.AMOUNT BLINKER 




1757 


PB0tSP9 


DS 


CLl 


.DESCRIPTION BLINKER 




1758 


PCEHP9 


DS 


CLl 


.EMPLOYEE ERROR CODE 




1759 


PBEHP9 


OS 


CLl 


.EMPLOYEE BLINKER 
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1760 


PLlNKlD 


OS 


CL3 


1761 


PCACCUO 


OS 


CLl 


1762 


PBACCTIQ 


OS 


CLl 


1763 


PCOAIO 


OS 


CLl 


176«» 


PE AMTIO 


OS 


CLl 


1765 


PBOESPID 


OS 


CLl 


1766 


PCEMPIU 


OS 


CLl 


1767 


PBEMPIQ 


OS 


CLl 


1763 


PLIN«11 


OS 


CL3 


1769 


PCACCTll 


OS 


CLl 


1770 


PBACCTll 


OS 


CLl 


1771 


PCOAII 


DS 


CLl 


1772 


PBAMTll 


OS 


CLl 


1773 


PBOESPll 


DS 


CLl 


177H 


PCEMPl 1 


DS 


CLl 


1775 


PBEMPl 1 


OS 


CLl 


1776 


PLIN812 


DS 


CL3 


1777 


PCACCT12 


DS 


CLl 


1778 


PBACCT12 


DS 


CLl 


1779 


PC0A12 


OS 


CLl 


1780 


PBAMT12 


OS 


CLl 


1781 


PB0ESP12 


OS 


CLl 


1782 


PCeMP12 


DS 


CLl 


1783 


PBtMPl2 


DS 


CLl 


1781 


PLINi«13 


DS 


CL3 


1785 


PCACCT13 


DS 


CLl 


1786 


PBACCTU 


DS 


CLl 


1787 


PC0A13 


DS 


CLl 


1788 


PBAMT13 


DS 


CLl 


1739 


P8DESP13 


DS 


CLl 


17 -JO 


>-^CE«P13 


DS 


CLl 


1791 


?BEMP13 


DS 


CLl 


1792 


PLIM»1«» 


OS 


CL3 


1793 


PCACCU'4 


DS 


CLl 


179'« 


PBACCTm 


DS 


CLl 


1795 


pcQAm 


OS 


CLl 


1796 


PBAMT14 


DS 


CLl 


1797 


PBOESPIM 


DS 


CLl 


1798 


PCLMPIH 


OS 


CLl 


1799 


PBCnPm 


OS 


CLl 


1800 


PLIM(15 


DS 


CL3 


1801 


PCAcnis 


DS 


CLl 


1802 


PBACCT15 


DS 


CLl 


1803 


PC0A15 


DS 


CLl 


IBOH 


PBAHT15 


DS 


CLl 


1805 


PBDESPIS 


DS 


CLl 


1806 


PCEMPIS 


OS 


CLl 


180 7 


PBEmPIS 


OS 


CLl 


1808 


PL IN If I 6 


OS 


CL3 


1809 


PCACCT16 


DS 


CLl 


1810 


PBACCT16 


DS 


CLl 


1811 


PC0A16 


DS 


CLl 


1812 


PBAMT16 


DS 


CLl 


1813 


PBDESpU 


DS 


CLl 


18m 


PCEHP16 


DS 


CLl 


1815 


PBEMP16 


OS 


CLl 


1816 


PLINK17 


DS 


CL3 


1817 


PCACCT17 


DS 


CLl 


1818 


PBACCT17 


DS 


CLl 


1819 


PC0A17 


OS 


CLl 



.LINE NUMBER 
•ACCOUNT ERROR CODE 

• ACCOUNT BLINKER 
•CASH/ACCRUAL 
•AMOUNT BLINKER * 
.DESCRIPTION BLINKER 
•EMPLOYEE ERROR CODE 
.EMPLOYEE PLINKER 
•LINE NUMBER 
.ACCOUNT ERROR CODE 
.ACCOUNT BUNKER 
•CASH/ACCRUAL 
.AMOUNT BLINKER 
•DESCRIPTION BLINKER 
.EMPLOYEE ERROR CODE 
.EMPLOYEE BLINKER 
•LINE NUMBER 
•ACCOUNT ERROR CODE 
•ACCOUNT BLINKER 
•CASH/ACCRUAL 
.AMOUNT BLINKER 

• DESCRIPTION BL INKER 
.EMPLOYEE ERROR CODE 
•EMPLOYEE BLINKER 
.LINE NUMBER 
•ACCOUNT ERROR GOOF 
•ACCOUNT BLINKER 
.CASH/ACCRUAL 
.AMOUNT BLINKER 
•DESCRIPTION BLINKER 
•EMPLOYEE ERROR CODE 
•EMPLOYEE BLINKER 
.LINE NUMBER 
•ACCOUNT ERROR CODE 
.ACCOUNT BLINKER 
•CASH/ACCRUAL 
.AMOUNT BLINKER 
•DESCRIPTION BLINKER 
.EMPLOYEE ERROR CODE 
.EMPLOYEE BLINKER 
•LINL MUMPER 
•ACCOUNT ERROR CODE 
•ACCOUNT BLINKER 
•CASH/ACCRUAL 
.AMOUNT BLINKER 

• DESCRIPTION BL INKER 
.EMPLOYEE ERROR CODE 
.EMPLOYEE BLINKER 
.LINE NUMBER 
•ACCOUNT ERROR CODE 
•ACCOUNT BLINKER 
•CASH/ACCRUAL 
.AMOUNT BLINKER 
.DESCRIPTION BLINKER 
•EMPLOYEE ERROR CODE 
•EMPLOYEE BLINKER 
•LINE NUMBER 
.ACCOUNT ERROR CODE 
.ACCOUNT BLINKER 
.CASH/ACCRUAL 



o 
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o 

K..^' 



1823 


PBAMTl? 


OS 


CLl 




.AMOUNT BLINKER 


1821 


PBDESpl? 


OS 


CLl 




•DESCRIPTION BLINKER 


1822 


pce:mpi7 


DS 


CLl 




.EMPLOYEE ERROR CODE 


1823 


PBEMP17 


DS 


CLl 




.EMPLOYEE PLINKER 


182H 


PLlNSia 


OS 


CL3 




•LINt NUMBER 


1825 


PCACCT18 


DS 


CLl 




.ACCOUNT ERROR CODE 


1826 


PBACCT18 


DS 


CLl 




.ACCOUNT BLINKER 


1827 


PC0A18 


DS 


CLl 




.CASH/ACCRUAL 


1828 


PBAMT18 


DS 


CLl 




•AMOUNT BLINKER 


1829 


PBOESPie 


DS 


CLl 




.DESCRIPTION BLINKER 


1830 


PCEMP18 


DS 


CLl 




.EMPLOYEE ERROR CODE 


1831 


PBEMP18 


DS 


CLl 




.EMPLOYEE BLINKER 


1832 


PLIN»19 


DS 


CL3 




•LINE NUMBER 


1833 


PCACCT19 


DS 


CLl 




.ACCOUNT ERROR CODE 


183H 


PBACCT19 


OS 


CLl 




.ACCOUNT BLINKER 


1835 


PC0A19 


DS 


CLl 




•CASH/ACCRUAL 


183b 


PBAMT19 


DS 


CLl 




.AMOUNT BLINKER 


1837 


PBDESP19 


DS 


CLl 




•DESCRIPTION BLINKER 


1838 


PCEMP19 


DS 


CLl 




.EMPLOYEE ERROR CODE 


1839 


PBEMP19 


DS 


CLl 




.EMPLOYEE BLINKER 


1840 


PLINIf20 


OS 


CL3 




.LINE NUMBER 


1841 


PCACCT20 


DS 


CLl 




.ACCOUNT ERROR CODE 


18M2 


PBACCT2D 


DS 


CLl 




.ACCOUNT BLINKER 


1843 


PC0A2Q 


DS 


CLl 




.CASH/ACCRUAL 


1644 


PBAMT20 


DS 


CLl 




.AMOUNT BLINKER 


1845 


PBDESP2D 


DS 


CLl 




.DESCRIPTION BLINKER 


184b 


PCEMP2a 


DS 


CLl 




.EMPLOYEE ERROR CODE 


1847 


PBEMP2Q 


DS 


CLl 




.EMPLOYEE BLINKER 


1848 


OCACCT 


EQu 


PCACCTl 


-PLlNm 


.DISPLACEMENT OF ACCT ERR CODE 


1849 


DBACCT 


EQU 


PBACClI 


-PLIN* 1 


.DISPLACEMENT OF ACCy BLINKER 


1850 


DPCOA 


EOU 


PCOAl-PLlNOl 


.DISPLACEMENT OF CASH/ACCRUAL 


1851 


DBAMT 


EQu 


PBAMTl- 


PLIN«1 


.DISPLACEMENT OF AMOUNT BLINKER 


1852 


DbDESPT 


EQU 


P30ESP1 


-PLINK 1 


.DISPLACEMENT OF DESCPT BLINKER 


1853 


DCEMP 


EOU 


PCEMPl- 


PLINtrl 


.DISPLACEMENT OF EMP ERR CODE 


1854 


DBEMP 


EQU 


PBEMPl- 


PLINUI 


.DISPLACEMENT OF EMP BLINKER 


1855 


PTYPE 


OS 


CLl 




.CHECK TYPE 


185b 


PCHECK 


OS 


CL5 




.CHECK NUMBER 


1857 


PCAMT 


DS 


CL14 




.CHECK AMOUNT 


1858 


PCNAME 


OS 


CL26 




.CHECK PAYEE 


1859 


PSTOP 


OS 


CLl 






1860 


* 










1861 


* 




CHECK PRINT FORMAT 




1862 


* 










1863 


PAno 


EQU 


PSTART* 


5,50 




1864 


PAY20 


EQU 


PAVlo*50.5G 




1865 


LEGENDO 


EOU 


PAY20*50,2S 




1866 


VENDORO 


EQU 


LEGENDO 


♦ 25, i 




1867 


CHECKC 


EOU 


VEnDORo 


♦5,5 




1868 


NAMED 


EQU 


CHECKC* 


S,26 




1869 


ADDRIO 


EQU 


NAME0*26,2S 




1870 


DATEO 


EQU 


ADDRIO* 


25,6 




1871 


AMOliNTO 


EOU 


DATE0*6 


,13 




1872 


•ADDR20 


EOU 


AMOUNTO 


♦1 3,2S 




1873 


CITyO 


EQU 


6DDR20-* 


25,2b 




1874 


«««««««««««*«* *»*«««*««««««« «««««««««»«««««««««»««««*««»««*««» «««««««*«] 


1875 


* 




RECORD 


AREAS 




1876 


««««*««« «««««««»9««»A«««^«a« *»*«**«««<>«««««»«**#*««»»*«««*»«*««««* «««*•! 
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/''""■-■. 



1877 




YSSSVIOI 




.SECURITY RECORD 


1878** 










1 879* ♦♦•»*» ♦•»♦♦»•* 


TABLE MASTER RECORD 




1880 


► • 










1881 


►KTABLEMT 


OS 


CL8 






1882+RTABLEMl 


OS 


CL80 






1883«TABSTS 


ECU 


RTABLEMT*08,1 STATUS 




ie8<»*LIMIT 


EQU 


RTABLEMT*I5,1 PASSUORD LIMIT | 


I885*TERMTftl} 


EQU 


RTABLEHI*lb TERMINAL 


FIELDS 


1886 


* 










1387 


««:»9«««««S«««« 


ACCOUNTS PAYABLE 




1888 


* 










1889 


RACCTPAV 


OS 


CL15 




.KEY 


1890 


RACCTPA* 


DS 


CLlfcS 




.RECORD 


1891 


* 










1892 


* 


APIOG 


HEADER 






1893 


* 










189«t 


ACCTPAVH 


DS 


CL165 






1895 


HBATOT 


EQU 


ACCTFAYH«21,S 




BATCH TOTAL 


189fa 


HCHKCNT 


EQU 


ACCTPAYH«26,5 




NEXT CHECK COUNTER 


1897 


HTYPE 


E3U 


ACCTPAyH*31,l 




CHECK TYPE 


1898 


HCHECk 


EQU 


ACC1pAYH«32,S 




CHECK NUMRER 


1899 


H0A1E 


EQU 


ACCTPAYH«37,fa 




Check date 


1900 


HVENDOR 


EQU 


ACCTPAYH*<*3,b 




CHECK WENDOR 


1901 


HAMOUnT 


EQU 


ACCTPAYH*i4a,b 


PU2 


CHECK AMOUNT 


1902 


HITMTOT 


EQU 


ACCTPAYH*53,S 


PU2 


CHECK ITEM TOTAL 


1903 


HIIMCNT 


EQU 


ACCTPAYH*5e,5 




CHECK ITEM COUNT 


190^ 


HNAHE 


EQU 


ACCTPAYH*61,20 




PAYEE 


1905 


HlEGEnO 


EQU 


ACCTPAYH*87,2b 




LEGEND 


1906 


HPRINT 


EQU 


ACCTPAYH*n3,l 




CHECK PRINT 


1907 


HBAFCH 


EQU 


ACCTPAYri«im,3 




BATCH NUMBER 


1908 


HCHKS 


EQU 


ACCTPAYH*ll 7,3 




NUMBER OF CHECKS 


19o9 


HITEMS 


EQU 


ACCTPAYH«12b,M 




ITEM COUNT 


1910 


HOLD 


EQU 


ACCTPAYH*13a,5 


PD2 


OLD CHECK AMOUNT 


1911 


HCASH 


EQU 


ACCTPAyH*13!>,b 


PD2 


CHECK CASH TOTAL 


1912 


HACCR 


EQU 


ACCTPAYH+lf+J.S 


Pd2 


ChECK accrual TOTAL 


1913 


HERWCOE 


EQU 


ACCTPAYH+lt^S.l 




CHECK ERROR CODE 


191i» 


HACTIqN 


EQU 


ACCTPAYH* mfa, 1 




CHECK ACTION CODE 


1915 


HCOMPL 


ECU 


ACCTPAYH«li»?,l 




Check completiom code 


1916 


* 










1917 


« 


APia3 


CHECK 






1918 


« 










1919 


Accip&yi. 


DS 


CLlb5 






1920 


CAHOUNT 


EQU 


ACCTPAYC-»2<),5 


PD? 


CHECK AMOUNT 


1921 


CDATE 


EQU 


ACCTPAYC«2D,4 






1922 


CVEnOoR 


EQU 


ACCTPAYC*2M,i 






1923 


CNAME 


EQU 


ACCTPAYC«3M,26 






192«» 


CADDRl 


EQU 


ACCTPAYC«faC,25 






1925 


CAUUR2 


EQU 


ACCTPAYC*85,25 






1926 


CCITY 


EQU 


ACCTPAYC«UJ,2t 






1927 


C7IP 


EQU 


ACCTPAYC*13b,3 


PDr 




1928 


CLE&ENO 


ECU 


ACCTPAYC+139,25 




1929 


CPRlNT 


EQU 


ACCTPAtC«164,l 






1930 


* 










1931 


« 


APIO"* 


ITEM 






1932 


* 











Figure C-11. APITMS Action Program Processing a Dialog (Part 28 of 29) 
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1933 ACCTPAtI 

1934 AIRID 

1935 AlTtPE 

1936 AICHECK 

1937 AlCNT 

1938 AIVENDOR 

1939 AIACCT 
19«|0 AIAMT 
19H1 AIEHP 
19<t2 AlDESCPl 
1913 AlBATCH 
19(t<4 AIERR 

1945 AlCOA 

1946 ♦ 

1947 ♦ 

1948 * 

1949 KACCTMST 

1950 RACCTMS1 

1951 AMSTS 

1952 « 

1953 * 

1954 ♦ 

1955 KBRANCHM 

1956 RBRANCHH 

1957 BHSIS 

1958 ♦ 

1959 ♦ 

1960 ♦ 

1961 KACCOUNi 

1962 RACCOUNl 

1963 CASTS 

1964 CACOA 

1965 CAEXP 

1966 CAINC 

1967 * 

1968 * 

1969 ♦ 

1970 KPAVROLL 

1971 RPAYROLL 

1972 PHSTS 

1973 PMCAt 

1974 • 

1975 * 

1976 * 



1977 TWSTS 

1978 TMEXP 

1979 OHA 
1980*EU 
2052 CDA 

2054«* 

2055****»»**» 

2056*C0A 

2057* 

2058 



OS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



CL165 
ACCTP 
ACCTP 
ACCTP 
ACCTP 
ACCTP 
ACCTP 
ACCTP 
ACCTP 
ACCTP 
ACCTP 
ACCTP 
ACCTP 



AYI* 
AYI* 
ATI* 
AYI* 
AYl* 
AVI* 
ATI* 
AY1« 
AYI* 
AYI« 
AYI* 
AYl* 



00,2 

02,1 

03,5 

08,3 

19. S 

2t ,8 

3?, 5 

53.4 

57,30 

87,3 

90,3 

93,1 



GLOQl ACCOUNT MASTER 

OS CL8 

OS CL80 

EQU RACCTMST«3,1 

SYQOD BRANCH MASTER 



OS 
OS 
EOu 



CL3 

CL25D 
RBRANCHM,! 



GLQ03 CHART OF ACCOUNTS 

OS CL8 

EQU RBRANCHM*5D,da 

EQU RACC0UNT*8,1 

EOu RACCOUNT*38,l 

EOu RACC0UNT*46,1 

EQU RACC0UNT*<l9,l 



.Record iO 
.check type 
.check number 
.item count 

.VENDOR 

.ACCOUNT NUMBER 
.AMOUNT 
.EMPLOYEE 
.DESCRIPTION 
.BATCH « 
.ERROR BATCH » 
.CASH OR ACCRUAL 



STATUS 



STATUS 



STATUS 

CASH OR ACCRUAL 
EXPENSE ACCOUNT 
INCOME ACCOUNT 



PEOIO PERSONNEL MASTER 

OS CL5 

DS CL421 

EQU RPAYROLL, 1 

EOU RPAYR0LL«172,1 

SY002 PERSONNEL CLASSIFICATION 



STATUS 
CLASSIFICATION 



EQU RTABLEMT«8,1 

EOU RTABLEKT*32,i 

YfiOMA 2568 

EQU • .END OF WORK AREA 

Y»»CDA 

CONTINUITY DATA AREA * 

DSECT 

DS OH 
END 



Figure C-H. APITMS Action Program Processing a Dialog (Part 29 of 29) 
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C.5. Sample IMS Configuration 






Figure C-12 is a sample IMS configuration of the SUPPLY, APCHKS, APITMS, and 
APAUDT action programs. Notice these programs are prepared to receive DICE 
sequences and therefore the EDIT=NONE parameter is specified in the ACTION 
sections of this configuration. 



NETWORK BATCH:N0 C0NFTD=C02 NAME:GTN1 P ASStfOH DrGTN 1 TERMS: 
GENERAL AUoITNl'MrSO CHRi/LIN-SO lNS/m1.G-2<« MAXCONT-3880 
OPTIONS CONTOUTrNO OLLOAO^MO FuPDATE-YES 

VES 

RESEND=NO 



1<4 



TOMF ILE:N0 TOHTRCL^NC 



OPCOM 

RECOVEHY=NO 
SNAPEO=NO 
SUBPROC=YES 
UNIQUE:;TRAN 
UNSOL=NO 
TIMEOUTS ACIION-60 
ST ATUS=3Q 
FILE BRANCHM F IL t T YPE : I S AM BLKSlZE:0bl2 LOCKrTR 

TYPEFLE-RANSEO uPDATFxYES HE CF ORMrF 1 XBLK PCYL0FL::?0 
RECSirL:?r,0 KEYLOC:lO K£YLlN:3 

10 AWEA IrBRANCHM HE Y A RG -b R A,\C HM W ORK 1 =BR ANC HM 
lOROUTzADORTR 10REG=8 «ORKS-YES 
INOARF A:KRAhCHM I\bS]ZE;25tj 
FILE TA8LEMT F I LE T YPE =1 SA 1 BLKSIZErutl? LOCKrTR 

TYPlFLL:RANSEC UPOATE-YLS St CFOR MrF I xBLK PCYL0FL-3a 
RtCbI?E-:jSO KEYLOC-C KEtLErg-8 

lOAhiEAlrTABLEMT K E Y ARG - 1 ABLE MT WORK 1 =T ABLE MT 
FILE SCRFIL F ILE TYPE =D AMR BLKSI2E:266D 1 ARE A IzSCRF IL READIOrYES 

RELATIVE =R SFEKAOR=SCRFIL URITElDrYES LOCK =UP 
FILE PAYROLL F 1 LE T YPE ^ISAM BLKSI2E=128C LOCKrTR 

TYPEFLErRANSEO UPDATErYES HE CF OR MrF I XBLK PCYL0FL:30 
RECSI7E-421 KEYLOCrb KEYLEN=S 

lOAREAlrPAYROLL KE Y ARG rp A YROLL UORK 1 rp A YROLL 
lOROUTrADORTR lOREGrS UORKSrYES 
FILE ACCOUNT F I LE T YPE r ISAM BLKSI2ErD512 LOCKrTR 

TYPEFLErRANSEO UPDATErYES RECFOR MrF I XRLK PCYLOFL'rlO 
RECSIZErOeO KEYLOCro KEYLEN-8 

lOAREA IrACCOUNT KE Y ARG rACCOUNT WORK 1 rACCOUNT 
lOROUTrAODRTR ICREGrS UORKSrYES 
FILE ACCTMST F ILE TYPE =ISAM BLKSI2Er0bl2 LOCKrTR 

TYPEFLErRANSEO UPDATErYES WE CFOR MrF i XBLK PCYLOFLr20 
RECSI2Er08D KEYLOCrO KEYLENrS 

ICARE4 ir ACCTMST KE YARGrfc CC TMST WORK 1 : ACC TM SI 
lOROUTrAODRTR lOREGrS WORKSrYES 
FILE ACCTPAY F I Lt T YPE r IS AM BLKSlZErlD22 LOCKrTR 

TYPEFLErRANSEO UPDATErYES RE CFOR MrF 1 XBLK PCYL0FLri40 
RECSIZErieS KEYLOCro KEYLENrlB 

lOAREAlrACCTPAY KE Y A R6 r A CC TP A Y WORK 1 rACCTP A Y 
. lOROUTrADDRTR lORELrfl wORKSryES 



Figure C-12. Sample IMS Configuration (Part 1 of 2) 
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Basic Assembly Language (BAL) Action Programming Examples 



FILE 



FILE 



TERMINAL 
1ERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TRANSACT 
TRANSACT 
TRANSACT 
TRANSACT 
ACTION 



ACTION 



ACTION 



ACT ION 



HRObRAH 
PROGRAM 
PROGRAM 
PROGRAM 



VENDORM 



TPANACT 



T^"Jtt 

TK0 7 

TM06 

T^u9 

TMO^ 

TMlC 

TM3S 

TMl] 

TH32 

TM12 

TMOl 

APCKS 

APITS 

APAUO 

SUPLY 

APITMS 



APAbOT 



APCHKS 



SUPPLY 



APITMS L 

APChKS E 

APAUDT t 

SUPPLT E 



FlLETYPErlSAM BLKSIZE-1Q2? LOCK^TR 

TYPEFLE-RANSEO uPDATE-YLS RE CF ORMzF I XBLK PCYL0FL=10 

RECSIZE-199 KEYLOCrO H£YLr>< = 5 

lOAkEA IrVENDORM KF Y A RG =« ENOORH WORK 1 -VENDO RH 

lORCUT-ADORTR lOREG^B hORKS-YES 

FILE TYPE=TSAM BLKSIZEriC22 LOCKrTP 

TYPEFLE-RANSEO UPDATE:YLS HE CF OR MrF 1 XBLK PCYL0FL::30 

RECb>IZE:165 KEYLOC-0 KEYLEM-15 

1 OARE Al-TPANACT K E Y ARC; T R AN ACT WORK 1 r TR AN A CT 

10ROUT=ADDRTR I0RE& = 8 W0RKS::YES 

MSRIAHY^NO 

MSRE anY::NO 

MS1ilAPY:N0 

MSkLADYtnO 

MSRCAPYiMO 
MSRl ady:no 



KASTERiYES 



CTIONr 
CTIONT 
CTIONr 
CTIONr 
E D I T rN 

files; 

FILES: 
IN SIZE 
ALLPNT 
EP IT rN 
FlLESr 
F1LLS= 
INSiZE 
ALLRNT 
EDIT =N 
FiLESr 
INSiZt 
ALLRNT 
ECIT:N 

fills; 

1 N S I Z E 
ALLRNT 
RE I:YE 
RE T:YE 
RE TzYE 

ret;ye 



APCHKS 
APITMS 
APAUDT 
SUPPLY 

ONE 

ACCOUN 

SCRFIL 

= STAN 

:nO B 

ONE 

ACCOUN 

TABLEM 

:STAN 

:im0 B 

ONE 

ACCTPA 

;STAN 

:N0 B 

ONE 

BRANCH 

;STAN 

-hO h 

S TYPE 

S TYPE 

S TYPE 

S TYPE 



T.ACCTMST ,ACCTPAY,BRANCHM,PAYROLL 

,T AbLEMT .VENDORM 

MAXSIZE;9«*72 0UTSI2E=2S63 yORK SI ZE =358<4 

YPASS:2 MAXUSERS:! 

T .ACCTPA Y, BRANCH M, SCRFIL .PAYROLL 

T tWENOORM 

MAXSIZEre96u 0UTSI2E;25b8 JORK SI ZE =3072 

YPASS;2 MAXUSERS:! 

Y.PAYROLL.SCRFIL.T ABLEMT .VENOORM 
MAXSIZE;7936 0UTSIZE=2568 WORK S I ?E ;20M 8 
YPASSrZ MAXUSERS:) 

M, TABLEMT, TkANAC T 

MAXSIZE:23U4 OUTSIZL^STAN yORK SI ?E :10?<4 

YPASS^b MAXUSEkS:! 

:SER 
:3NT 
rRNT 

:SER 



Figure C-12. Sample IMS Configuration (Part 2 of 2) 
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Appendix D 

Status Codes and Detailed Status Codes 



IMS returns a status code and sometimes both status and detailed status codes after 
each function call issued by your action program. IMS places these codes in the 
STATUS-CODE and DETAILED-STATUS-CODE fields of the program information 
block. Your action program then tests the contents of these program information block 
fields and performs routines to handle the conditions indicated by them. 

A successful execution of a function call issues a status code 0, and usually a detailed 
status code of 0. For status code 0, defined records and transaction buffers use the 
detailed status codes to return advisory information. (See Section 5.12 and 10.8.) 

Table D-1 shows the status codes and their meaning for sequential and random I/O 
fimctions issued to sequential, relative, indexed, and defined files. 

Table D-2 hsts the status code values returned to the program information block. 

Table D-3. shows the advisory information detailed status codes for the status code 0. 

Table D-4 shows detailed status codes IMS returns with invahd key status code 1. 

Table D-5 lists the detailed status codes for status code 2. 

Table D-6 describes detailed status codes IMS returns with status code 3 for invahd 
request errors. 

Table D-7 Usts the detailed status codes IMS returns with status code 4 for I/O errors. 

Table D-8 lists the detailed status codes IMS retvims with status code 5 for violation of 
data definition. 

Table D-9 lists detailed status codes returned by IMS with status code 6 for internal 
message control errors. 

Table D-10 explains detailed status codes returned with status code 7 for screen 
formatting errors. 
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Table D-1. Status Codes for I/O Function Calls 
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invalid record number 
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Invalid key 
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Invalid record lype 
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Forms overflow 
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X 






X 
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End of file (DAM files only)" 


2 


X 


X 




X 








X 










X 


X 


X 


X 


X 


X 


X 


X 


X 


X 












X 






Unallocated optional file 


2 






















X 








































Total cycle 


3 


X 


X 


X 


X 


X 
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X 
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X 


X 


X 


X 


X 
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X 


X 


X 


X 


X 


X 


Ifivafid rrrquest 


4 


X 


X 


X 


X 


X 


X 




X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 






i^O error 


6 















































X 


X 


X 


X 


X 








Violation of data definition 



* When using an indexed file via a SETL function and then consecutive GET functions 
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Table D-2. Values Returned in PIB Status Code after Function Calls 



status 

Code 

(Decimal) 


Status 

Code 

(Hexadecimal) 


Description 





00 


Successful 

Defined record (see Section 5.12) 
Transaction buffers (see Table D-3) 


1 


01 


Invalid key or record nimtber 

Defined files - predicted record type not correct 
Printer files - forms overflow 


2 


02 


End of data, empty set 


3 


03 


Invalid request 


4 


04 


I/O error 


5 


05 


Violation of data definition 


6 


06 


Internal message control error 


7 


07 


Screen format error 



Table D-3. Detailed Status Codes for Status Code 



Detailed 
Status Code 
(Decimal) 


Detailed 
Status Code 
(Hexadecimal) 
All Functions 


Description 





00 


Successful call 



1 
2 


Transaction 
buffers 

00 
01 
02 


No buffers allocated to the transaction prior to 
this successful call 

1 block of buffers allocated to the transaction 
prior to this successful call 

2 blocks of buffers allocated to the transaction 
prior to this successful call 




Defined files 

See Table D-1 and Sections 3.7 and 5.12 
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Table D-4. Detailed Status Codes for Invalid Key Errors - Status Code 1 



c 



Detai led Status 

Code 

(Decimal) 


Detailed 

Code 

(Hexadec 


Status 
mal) 


Description 


Meaning 


01 


01 




Invalid duplicate key 
count 


Internal error 

Named format cannot be 
found 

Duplicate key count value 
on random GET function is 
zero or exceeds number of 
duplicate keys 


225 


El 


No identifier supplied 


Insert an IDENTIFIER 
statement in the data 
definition 


226 


E2 


Identifier too long 


Identifier must be 1 to 30 
alphanumeric characters 


228 


E4 


Identifier out of 
range 


Value entered at terminal 
is not in range of VALUE 
clause specified in data 
definition 



Table D-5. Detailed Status Codes for Status Code 2 



Detai led 

Status 

Code 


Description 





End of data/end of load module 


# (record 
type) 


Defined records: 

First byte = Predicted record type 
Second byte = Delivered record type 



o 



c 
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Table D-6. Detailed Status Codes for Invalid Requests - Status Code 3 



Code 
(Decimal] 



Code 
(Hexadecimal) 



Description 



Meaning 



01 



Incorrect number of 
parameters 



The number of parameter addresses 
contained in a request parameter list is 
inconsistent with the function requested. 
This error can result from the failure of 
BAL action programs to set the sign bit in 
the final address word in a request 
parameter list as required by standard 
linkage conventions. 



02 



Function code out of 
legal range 



This error may occur when an action 
program inadvertently writes into the IMS 
link module that is linked to a serially 
reusable or sharable action program, or 
control passes improperly from an action 
program to IMS. 



03 



Incorrect parameter 
value 



The parameter list address passed to IMS 
on a request is 0, or an address 
contained in the parameter list is 0, or the 
actual value of a parameter is incorrect. 
This error can also occur when an I/O 
area for a DAM file was not half-word 
aligned. 



04 



Shared record not in use 
by this transaction 



This code does not apply to user action 
program requests. 



05 



File not defined 



Transaction buffer not 
allocated 



A logical or defined file named in a 
request to IMS is not configured or 
defined via the data definition processor. 

One of the addresses submitted in the list 
of transaction buffers to be released is 
not pointing to a buffer assigned to the 
transaction. 
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Table D-6. Detailed Status Codes for Invalid Requests - Status Code 3 (cont.) 



C; 



Code Code 

(Decimal] [Hexadecimal) Description 



Meaning 



06 



07 



08 



09 



10 



OA 



File not open 



The 2ZCLS master terminal command 
closed a logical file named in a request to 
IMS or data management closed a logical 
file as the result of an unrecoverable 
error. 



Function invalid for type 
of file 



The function specified in a request to IMS 
is not valid for the type of file named. For 
example, the action program issued a 
SETL function call for a nonindexed file. 



Record(s) not locked 



The action program issued an UNLOCK 
function when no locks existed. 



PUT or DELETE request 
not preceded by a 
GETUP request 



The function sequence for an update 
operation is not valid. 



C 



Illegal function requested 



The requested function is not consistent 
with the DTP or RIB parameters in the 
configuration. 



11 



OB 



File not assigned to this 
action 



The action program requested a logical 
file that was not named in the configured 
definition of the action making the 
request, or the preceding action did not 
name a defined file. 



continued 
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Table D-6. Detailed Status Codes for Invalid Requests - Status Code 3 (cont.) 



Code Code 

(Decimal) (Hexadecimal] Description 



12 



13 



■E*""™^-., 
\*_-> 



14 



15 



16 



17 



Meaning 



OC 



OD 



OE 



OF 



10 



11 



Required module not 
included in configuration 



Tiie action program requested a feature 
not included in the IMS load module at 
configuration time. 

Required module not in configuration. The 
activation of RESMEM was not specified 
in the IMS configuration. 

Screen format services not configured. 

No continuous output configured. 



Capacity exceeded on 
INSERT request 



An action program requested insertion of 
a record into a MIRAM of ISAM file, but 
insufficient space exists to contain the 
new record. 



Insufficient space in main User must allocate more main storage. 

The transaction buffer pool is exhausted. 
Returned if a contiguous block of space is 
not available. This error is also returned, 
if RESMEM parameters were overridden 
with 0. 



Update not permitted in 
configuration 



An action program requested an update 
function; but update was disallowed at 
configuration time. 



Update suppressed for 
files 



The requested update is not permitted 
because of an I/O error in the audit file. 



Trace file down 



File recovery is not operational; only file 
displays are allowed. 



continued 
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Table D-6. Detailed Status Codes for Invalid Requests - Status Code 3 {cont.J 

Code 

(Hexadecimal) Description Meaning 



Code 
(Decimal) 



18 



12 



Record was locked by 
another transaction 
(single-thread only) 



Under single-thread, an action program 
issued either a GETUP or INSERT request 
on a record; but this record was already 
locked by some other transaction. 



20 



14 



Work-area address 
invalid or SETLOAD was 
not issued before 
GETLOAD 



Check the order in which you issued 
SETLOAD and GETLOAD calls; make sure 
that work area is word aligned. 

Invalid request; save-area address invalid 
or SETLOAD was not issued before 
GETLOAD. 



21 



15 



Data buffer too small 
(less than 10 bytes) 



Make sure the value specified on the size 
parameter of the GETLOAD call is greater 
than 10. 



Invalid request; data buffer too small (less 
than 10 bytes). 



22 



16 



Another SETLOAD call 
was issued between the 
initial SETLOAD and the 
GETLOAD call 



Check that an additional SETLOAD call 
was not issued before the GETLOAD call. 



24 



18 



Busy status, PRINT 
function issued when 
printer file assigned to 
another terminal. 



Issue PRINT function when printer not 
busy. 



25 



19 



Invalid USER-ID password 
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Table D-7. Detailed Status Codes for I/O Errors - Status Code 4 



File Type 


Error Code 


Description 


MI RAM 


DHnn 


nn is the hexadecimal value of data management area 
error code contained in the first byte of the 
detailed status code. 

The second byte of detailed status code is error 
subcode interpretation. (See 3.6 and the System 
Messages Reference Manual, UP-8076 


DAM 


f iLename-C+2 


Is the value in the detailed status code. For 
interpretation, refer to Data Management User Guide, 
UP -8068. 


XX 


I/O error. XX is the error code (in binary) returned 
by the OS/3 loader, if DOWLINE LOAD is used. Note 
that these error codes are explained in the System 
Messages Reference Manual, UP-8076. 



Table D-8. Detailed Status Codes for Violation of Data Definition - Status Code 5 



'S^x . 



Detailed Status 


Detailed Status 




Code (Decimal) 


Code (Hexadecimal) 


Description 


* 


* 


Incorrect VALUE statement 

Inconsistent PIC clause 

Change not permitted 

Value missing for a MUST ADD item 



No detailed status code returned, but status code 5 can signify one of the above in the description list. 
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Table D-9. Detailed Status Codes for Internal Message Control Errors - Status Code 6 



Detailed Status 
Code 
(Decimal) 


Detailed Status 

Code 
(Hexadecimal) 


Description 


Meaning 


2 


05 


Destination terminal busy, 
on hold, or down 


Output-for- input queueing 
was: 

1. Destination terminal is 
in interactive mode. 

2. Destination tereminal 
has an input message on 
queue . 

3. ZZHLD or ZZDWN command 
was entered for 
destination terminal. 

4. Destination terminal 
is marked physically 
down to I CAM. 

5. IMS cannot allocate 
main storage buffer 
(multithread) only. 
INBUFSIZ specification 
inadequate. 


3 


03 


Destination terminal 
physically or logically 
down, message queued 


SEND function was issued 
for message switching. 
Message is queued at 
destination terminal and is 
retransmitted when terminal 
becomes operational. 


4 


04 


Invalid specification in 
output message header 

Invalid terminal name or 
type 


Invalid destination 
terminal -id or auxiliary- 
device- id; or AUX-FUNCTION 
field contains X'C3', 
X'F3', or X'F7' (not valid 
with SEND function). 


5 


05 


No I CAM network buffer 


Insufficient buffer space 
allocated in ICAM network 
definition. 


6 


06 


Disk error 


Output error occurred on 
attempt to write message to 
disk; error passed to IMS 

by ICAM. 
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Table D-9. Detailed Status Codes for Internal Message Control Errors - Status Code 6 (cont.) 



Detailed Status 
Code 
(Decimal) 


Detailed Status 

Code 
(Hexadecimal) 


Description 


Meaning 


7 


07 


Invalid length 
specification 


In delayed internal 
succession or output -for - 
input queue ing, output 
message length was larger 
than the input buffer pool. 


8 


08 


Insufficient resource error 


In switched message, cannot 
retrieve file from process 
file table after five 
attempts. Must generate new 
files. In delayed internal 
succession, insufficient 
main storage allocation. 
Must increase main storage 
allocation. Must increase 
main storage on job card. 


9 


09 


Output message error 


An action scheduled for 
program routing has 
terminated with E 
succession at the secondary 
node. 
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Table D-10. Detailed Status Codes for Screen Formatting Errors - Status Code 7 



Detailed Status 


Detailed Status 






Code 


Code 


Description 


Meaning 


(Decimal) 


(Hexadecimal) 









m 


Validation error; all error 


Check validation error 






fields in variable data 


codes returned in status 






area replaced by hexadecimal 


byte for invalid field. 






Fs and affected field-error 








statuses set in the output- 








status area 




1 


01 


Buffer address indicates a 


Check the length field 






format area not large 


in output message header 






enough to receive the screen 


portion of format area to 






format 


find actual length required 
for the format described. 


2 


02 


Variable data area not large 


Check data-size parameter on 






enough 


the CALL BUILD function and 
increase the length or size 
of the data-size parameter. 
Make it at least as large as 
the screen size. 


3 


03 


Insufficient number of 


Check SFS parameter in the 






terminals configured for SFS 


OPTIONS section of 
configurator. 


4 


04 


Variable data specified when 


Variable data parameter 






no variable data area exists 


specified in BUILD function, 
but no output fields or 
option indicators described 
for the screen format. 


5 


05 


Format dimensions are 


Check screen format 






greater than screen 


generation for length of 






dimensions 


screen format. 


6 


06 


Fatal error; 1/0 error 


Get DM error message from 






reading format file 


console; refer to the 
System Messages Reference 
Manual, UP -8076. 


7 


07 


REBUILD not allowed 


User issued output-only 
screen and can issue a 
REBUILD only with input 
fields. 


8 


08 


Invalid field in variable 


On REBUILD, data description 






data area 


in action program doesn't 
match screen format 
generation. 
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Table D-10. Detailed Status Codes for Screen Formatting Errors - Status Code 7 (cont.) 



Detailed Status 
Code 
(Decimal) 


Detailed Status 

Code 
(Hexadecimal) 


Description 


Meaning 


9 


09 


Variable-data parameter 
specified but no error field 
detected 


Screen coordinator checked 
all data in variable-data 
area and no fields of 
hexadecimal Fs found. 


18 


0A 


Screen format incorrectly 
generated 


On BUILD, data description 
in action program doesn't 
match screen format 
generation. 


11 


OB 


SFS failed 


System error. Take dump and 
contact your Unisys 
representative. 


16 


10 


SFS failed during input 
conversion 


Inadequate main storage in 
system; or format contains 
protected fields and 
terminal does not have 
protect feature or is not 
in protect mode. 


17 


11 


Screen format services error 


Take IMS job dump and 
contact your Unisys 
representative. 


18 


12 


Screen format can't be 
transmitted because this is 
a program- initiated DDP 
transaction. 


Actioi, program processing 
DDP transaction attempted to 
send screen format to 
initiating action program. 
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Appendix E 
Generating Edit Tables 

E.l. Purpose 

The edit table generator offers a convenient means for converting unformatted input 
received from terminal operators into fixed formats required by action programs and 
checking this input for types of data, value ranges, and presence of required fields. 

The output of the edit table generator is written to the named record file 
(NAMEREC). From there it is loaded at the appropriate time by IMS. Each edit table 
is associated with a particular action at configuration time via the EDIT parameter in 
an ACTION section. The edit table utility can be run either before or after 
configuration, but the NAMEREC file must be previously initialized. 

E.2. Generator Input Coding Rules for Edit Table 

Input to the edit table generator is in the form of keyword parameters that define the 
edit table, the fields you want edited, and the edit criteria for each field. Note that the 
statement conventions in Appendix A also apply. 
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Generating Edit Tables 



To code input to the edit table generator, apply the following rules: 

1. Input entries must contain sequence numbers in columns 77 through 80, in 
ascending order. The lowest permissible sequence number is 0001. 

2. Parameters can be coded in any column between 1 and 76, Blanks are ignored 
and are permitted anywhere in the edit table definition. 



c 



Example 

1 



77 



80 



SEP= ; ETAB=ETABTST ;KEY= 1 ; POS=0 ;MAN=Y ; LEN=5 ; 
KEY=2;FIL= ;JUS=L;LEN=15;MAN=Y;TYP=A;P0S=5; 
KEY=3;FIL= ;JUS=L;LEN=20;POS=20;TYP=H;; 



10 
2 
3 



3. Specifications for an edit table and for each field can span more than one line. 
However, a keyword and its value must be contained on one line. 



Example 

INCORRECT 






CORRECT 




SEP=; ETAB=ETABTST ;KEY=1 
|;MAN=Y;LEN=5;MAN=Y;LEN= 


=5;; 


0100 
0200 


SEP= ; ETAB=ETABTST ;KE Y=1 ; POS=0 ; 


0100 




KEYWORD AND VALUE 
NOT ON SAME LINE 















4. A new edit table specification must start on a new line. Each field need not begin 
on a new Une. 

Example 



INCORRECT 



CORRECT 



SEP=;ETAB=ETABTST;KEY=1 ;POS=0; 0100 

HAN=Y;LEN=5; 0200 

KEY=2;FIL= ;JUS=L;LEN=15;HAN=Y; 0300 

TYP=A;P0S=5;;^SeTAB=TABL1, 0400 

KEY=1,LEN=20,POS=20,. 0500 



NEW EDIT TABLE NOT 
SPECIFIED ON NEW LINE 



SEP=;ETAB=ETABTST;KEY=1 POS=0; 0100 

MAN=Y;LEN=5;^SfIL= ;JUS=L; 0200 

LEN=15;MAN=Y;TYP=A;POS=5; ; 0300 

SEP=,ETAB=TABL1,KEY=1.LEN=20, 0400 

POS=20,, 0500 



NEW FIELD NEED 
NOT START 
ON NEW LINE 



c 
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The field separator character specified by the SEP keyword parameter must be 
used as the field separator throughout the edit table specification, as well as in 
the input message to be edited. Double separator characters indicate the end of 
the edit definition. A new edit table can establish a different separator character. 



Example 



INCORRECT 



SEP= ; ETAB=ET ABTST , KEY= l|POS=0| 1 00 



MAM=Y;LEN=5i 



END OF EDIT DEFINITION 
NEEDS DOUBLE SEPARATOR 



0200 



SAME FIELD SEPARATOR 
NOT USED THROUGHOUT 
EDIT TABLE DEFINITION 



CORRECT 



SEP=; ETAB=ETABTST ; KE Y= 1 ; POS=0 ; 
MAN=Y;LEN=5;; 

SEP=iETAB=TABL4.KEY=1 .POS=0. 
MAN=Y.LEN=5.. 



0100 
0200 
0300 
0400 



1 



ESTABLISHES A NEW 

SEPARATOR 

CHARACTER 



6. 



The SEP, ETAB, and KEY parameters must be coded in the prescribed order; the 
remaining keyword parameters can be specified in any order. SEP and ETAB are 
coded once for each edit table. The remaining parameters are repeated for each 
field in the input message to be edited. 



Example 

INCORRECT 






CORRECT 




SEP=;P0S=;LEN=5;B 

1 , 


S 0100 
0200 


SEP= ; ETAB=ETABTST ;KEY= 1 ; POS=0 ; 
HAN=Y;LEN=5;; 


0100 

0200 


ETAB AND KEY PARAMETERS 
DON'T IMMEDIATELY FOLLOW 
SEP 
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7. Numeric values are positive unless preceded by a minus sign (-). The plus sign (+) 
is not permitted in numeric values. The number of numeric characters used to 
specify a nvraieric value may not exceed the length specified by the LEN 
parameter. 



Example 



INCORRECT 



CORRECT 



SEP=;ETAB=TABL1;KEY=1;LEN=i; 0100 
POS=0;HAX=+^^g;MIN=-1;;f 0200 



PLUS SIGN NOT 
ALLOWED 



SEP=;ETAB=TABL1;ICEY=1;LEN=5; 0100 
POS=0;MAX=20000;MIN=-1;; 0200 



NUMBER OF CHARACTERS 
EXCEEDS LENGTH GIVEN 
IN LEN PARAMETER 



\^J 
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E.3. Edit Table Generator Parameters 

The input parameters you give to the edit table generator must follow this format: 

SEP=separator - character 

ETAB=tabLenaroe 

KEY= [keyword 1 
[posit ionj 

LEN=fielcl- length 

POS=starting-position 

[ F I L=f ill- character ] 

JUS= fLl 



MAN= n 



[HAX=niaximutn- value] 
[MlN=niinimum- value] 



A 
B 
TYP=.!l 
N 
P 



( 



V^ 



The separator parameter specifies the field separator character for both the edit table 
definition and the input message to be edited. It cannot be a blank, equal sign, or 
minus sign. This parameter is required, must be the first entry on the first line of the 
edit table definition, and can be specified only once per edit table. 

The edit table name parameter names the edit table and must immediately follow the 
SEP parameter. This specification associates the edit table with an action at 
configuration, via the EDIT=tablename option in the ACTION section. 
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The key field parameter identifies the input message field for which edit criteria are 
specified in subsequent parameters and must be the first parameter specified for each 
field. The edit table generator associates all subsequent specifications with this field 
until it encounters another KEY parameter. Input fields can be positional or keyword. 
Positional fields precede keyword fields. 



c 



KEY=position specifies the relative position of the field as it appears in the input 
message. Positional fields must be defined in numeric order, starting with 1 . 

KEiY=keyword specifies a 1- to 3-character alphanumeric identification. The first 
character must be alphabetic for a keyword field in the input message. The terminal 
operator enters keyword fields in the form keyword^ata. For example, when you 
specify KEY=OLD, the terminal operator might enter OLD=57500 for this field. Once 
a keyword field is identified in the edit table definition, all subsequent fields must be 
defined as keyword fields. 

Figure E-1 shows the correct coding for positional and keyword parameters to the edit 
table generator. 



POSIT ION AL- 



POSITIONAL- 
KEYWORD 



SEP=;ETAB=TABL1;KEY=1;POS=0;HAN=Y;LEN=5; 
-> KEY=2;FIL= ; JUS=L;LEN=15;HAN=Y;TYP=A;POS=5; 
->rKEY=NEW;FIL= ;JUS=L;LEN=ie;POS=20;TYP=H; 
[KEY=OLD;FIL= ;JUS=L;LEN=10;POS=30,-TYP=M;; 



0100 
0200 
0300 

0400 



Figure E-1. Edit Table Parameter Description with Positional and Keyword Parameters 

The length parameter specifies the length of the edited field and is a required 
parameter. You may specify a maximum of 255 characters for alphanumeric fields and 
four characters for binary fields. Ten characters is the maximum length for numeric 
fields unless you specify both MIN and MAX parameters for this field. If you identify a 
numeric field in the action program as packed decimal, you can specify up to 16 
characters in the LEN parameter. 



%&a,i>' 
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Notes: 

1. If the field-length is larger than the width of the screen on which data is to be 
entered, IMS removes the DICE code at the end of each line of terminal input and 
replaces it with a blank character. You must provide for these additional blank 
characters in the action program and include them in the field-length specified by 
the LEN parameter. 

2. The length specified for binary (TYP=B) and packed (TYP=P) fields is the 
maximum length for the field in the input message, not the length of the field in 
your program. For example, if a field is defined as packed with a LEN=3, the 
largest number the terminal operator can key in is 999, even though 1000 may be 
represented in a packed field in 3 bytes. 

3. If the transaction code (the first field in the input message) is less than five 
characters, the terminal operator must key in a space before entering the separator 
character for the next field. You must include the space in the field-length specified 
by the LEN parameter. 

TRANSACTION CODE IS PAY 

SO 

OPERATOR ENTERS 




AND LEN = 4; 

The length of the first field can be greater than five characters, but only the first 
five characters are used in the transaction code. The LEN parameter should specify 
the actual length of the field. 

The starting position parameter specifies the starting position of this field as it 
appears in the edited message and is a required parameter. The first field starts at 0. 

The fill character parameter optionally specifies the fill character inserted in the 
edited field when the field the terminal operator enters as input is shorter than the 
field-length specified by the LEN parameter. The default fill character is 0. If you 
want to fill with spaces (X'40'), code either "FIL=" or "FIL=A"; i.e., you can include or 
omit a space before the separator character for the next field. Binary fields are always 
filled with binary zeros; therefore, this parameter is ignored if specified for a binary 
field. 
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JUS=L left-justifies this field in the edited message. Binary and packed fields are 
always right-justified; therefore, this parameter is ignored if specified for binary or 
packed fields. 

JUS=R right-justifies this field in the edited message and is the default assumed. 

MAN=N indicates that this field is not mandatory in the edited message for input to 
be acceptable. 

MAN=Y indicates that this field is mandatory in the edited message. 

The maximum value parameter specifies the maximum value allowed for the field in 
the input message. This parameter applies only to numeric fields. The highest value 
allowed is 2 to the thirty-first power minus 1: 2^^-l. The number of characters in this 
value must not exceed the length specified by the LEN parameter. 

The minimum value parameter specifies the minimum value allowed for the field in 
the input message. This parameter applies only to numeric fields. The lowest value 
allowed is minus 2 to the thirty-first power minus 1: -(2^^-l). The number of 
characters in this value must not exceed the length specified by the LEN parameter. 

The tjT)e parameter describes the type of data to be contained in the edited field. 

TYP=A specifies alphabetic data. A field defined to the editor as alphabetic is treated 
as an alphanumeric field. 

TYP=B specifies binary data. 

TYP=M specifies alphanumeric data and is the default value. 

TYP=N specifies numeric data. 

TYP=P specifies packed decimal data. 
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E.4. Executing the Edit Table Generator 



Once you code input parameters describing the edit table format and the NAMEREC 
file is initialized, you can execute the ZH#EDT edit table generator using the control 
stream illustrated in Figure E-2. 



// JOB ADDEDT,,A800 

// DVC 20 // LFD PRNTR 

// OPTION DUMP 

// DVC 50 // VOL DS9999 // UBL NAMEREC, DS9999 // LFD NAMEREC 

// EXEC ZH#EDT 

/$ 

input parameters 



input parameters 
/* 
/& 
// FIN 



■«t»^ 



Figure E-2. Sample Execution of Edit Table Generator 

If the input definition is acceptable, the generated edit table is written to the 
NAMEREC file and the following message is issued: 



tablename ADDED 

If the edit table has the same name as a table already existing in the NAMEREC file, 
the new edit table replaces the existing table, and the following message is issued: 

TABLE ADDED, DUPLICATE DELETED 

If errors cause rejection of the edit table, the following message is issued: 
tablename REJECTED 

Another way to determine edit table errors is to look at the UPSI byte. The following 
UPSI b5d;e values pertain to the edit table error status: 



UPSI Byte 
Contents 



Meaning 



00 
40 



No errors 

Warning. ZH#EDT continues processing edit table input parameters; but no edit table is 
built 



/" 






80 



Fatal error. Edit table processing terminates. 
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E.5. Error Processing 

When the edit table generator encounters a file I/O error or certain types of input 
errors, it terminates and prints a message in the output listing. The resulting value in 
the UPSI byte is 80. Most types of input errors do not cause termination. Processing 
and validation continues, but an error message is printed and the edit table is 
rejected. Input specifications for the edit table generator are not printed in the output 
listing. This tjTJe of error results in an UPSI byte value of 40. 

If an I/O error occurs while reading input to the edit table generator, the following 
message is issued, and the program terminates with an UPSI byte value of 80: 

INPUT READ ERROR, SCAN TERMINATED 

If an error occurs while opening, reading, or closing the named record file, the 
following error message is issued and the program terminates with an UPSI byte 
value of 80: 

FILE ERROR, SCAN TERMINATED 

Errors in the input statements are reported in the following format: 

nnnn cc error-message-text 

where: 

nnnn 

Is the sequence number in columns 77 through 80 of the card containing the 
error. 

cc 

Is the column number of the beginning of the input text that is in error. This 
column number is suppressed if the error is detected during final validation 
of all parameters for a given field. 

error -message- text 

Is the description of the error as listed in Table E-1. 

An example of an input statement error and the resultant error message follows: 

Input 

SEP=,ETAB=EDIT1,KEY=1,LEN=5,POS=0,JUS=X,MAN=Y, 0002 

Error Message 

0002 39 JUSTIFICATION ILLEGAL 

Table E-1 lists alphabetically the message texts inserted into the input statement 
error message. In each case, processing continues, unless otherwise indicated in the 
explanation column. 



c 



c 
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Table E-L Edit Table Diagnostic Messages 
Error Message Text Explanation 



B TYPE LENGTH GR THAN 4 
CARDS NOT IN SEQUENCE 
DOUBLE SEPARATOR MISSING 

DUPLICATE NAME 

FIELD NOT ACCEPTED, KEYS STARTED 

FIELD NOT IN SEQUENCE 

FILLER MUST BE SINGLE CHARACTER 

ILLEGAL FIELD TYPE 

INVALID MAN SPECIFICATION 

INVALID NAME 

INVALID SEPARATOR 

JUSTIFICATION ILLEGAL 
KEYWORD ETAB MISSING 
KEYWORD INVALID 



Four characters (one full word) is maximum. 

Scan terminated, run aborted.* 

Warning only; end-of-file encountered while searching 
for separator. 

Duplicate name for nonpositional field 

Positional parameters not allowed after 
nonpositional s started. 

Positional parameters must be in sequence. 

Self-explanatory 

Only A, B, M, N, or P accepted 

Only Y or N accepted 

Name too long or contains invalid characters. 

Scan terminated, run aborted; = and - are not 
allowed as separators.* 

Only R or L accepted 

Self-explanatory 

Self-explanatory 



* These errors set the UPSI byte to 80; all other errors in this table result in an UPSl byte value of 40. 



continued 
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Table E-1. Edit Table Diagnostic Messages (cont.) 
Error Message Text Explanation 



KEYWORD KEY= MISSING 
KEYWORD SEP= MISSING 
LEN OR PCS EXCEEDS MAX 

LEN OR POS MISSING 

LEN ZERO 

MAX OR MIN ABSOLUTE VALUE TOO LARGE 

N TYPE LENGTH GR THAN 10 

NO DEFAULT FOR THIS FIELD 

NO FIELDS DEFINED 

P TYPE LENGTH GR THAN 16 

REPEATED FIELD 

SEPARATOR CHARACTER MISSING 
SEQUENCE NUMBER NOT NUMERIC 
= SIGN MUST FOLLOW KEYWORD 
TOO MANY FIELDS 

XXX OVERLAPS yyy 



Self-explanatory 

Scan terminated, run aborted. * 

Maximum length is 255; maximum position is 
32,767. 

Required parameters 

Length must be at least 1. 

2-1 is largest absolute value allowed. 

Ten characters is maximum unless MAX and MIN 
both specified. 

Parameter value must be specified. 

Empty table not allowed. 

Sixteen characters maximum for packed-decimal 
field. 

Parameter already specified. 

Self-explanatory 

Scan terminated, run aborted.* 

Self-explanatory 

Scan terminated, run aborted; output buffer 
overflow.* 

Warning only; overlapping fields permitted. 



* These errors set the UPSI byte to 80; all other errors in this table result in an UPSI byte value of 40. 
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E.6. Entering input Messages from a Terminal 

When the terminal operator enters an input message for which you've generated an 
edit table, an IMS component called the expanded input editor processes it. The 
following considerations apply when entering input messages from the terminal: 

• When an input message contains a transaction code, the transaction code must 
always be the first field. If the transaction code is less than five characters, enter 
a space before ke3dng in the separator character. 

• Positional fields begin with the first nonblank character and extend to the next 
separator. Positional fields must appear in the same order as specified in the edit 
table definition. If you omit a positional field, enter an additional separator 
character in its position. A positional field entered as input may not contain an 
equal sign. 

• Keywords must be followed by an equal sign with no intervening blanks. Data 
starts immediately after the equal sign and extends to the next field separator. 

• Numeric values are positive unless preceded by a minus sign. The plus sign (+) is 
an invalid character. 

• Error messages are displayed on the first line of the display terminal; therefore, 
it is recommended that you start input messages on the second line so that the 
input is not erased by an error message. 

• If you continue fields from one line to another, IMS removes the DICE code at the 
end of each line and replaces it with a blank character which it sends to the 
action program as part of the data. Always enter on one line fields that do not 
exceed the width of the screen. If a field exceeds the screen width and must be 
continued from one line to another, avoid splitting a word between lines. 

• If the terminal input ends with a positional parameter (no keyword parameters 
are specified), enter a separator character at the end of the input message; 
otherwise, the input message could be partially deleted. A correct terminal entry 
is: 

INFOR, BIOLOGY, CLASS2, MARY J. BLISS, 

When terminal input ends with a kejrword parameter, this is not necessary. 
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E.7. Sample Edit Table Application Using Positional 
and Keyword Parameters 

Figure E-3 and Table E-2 describe sample input to the edit table generator for an 
accounts receivable application and the format in which the edited input is delivered 
to the action program. 



c 



5 25 65 


69 






TRANS 
ID 


NAME 


ADDRESS 


AMOUNT 


SHIP 
NUMBER 




1 






77 80 




SEP=,ETAB=EDIT1,KEY=1,LEN=5, POS=0, MAN=Y, 
KEY=2,LEN=20, P0S=5, FIL=,JUS=L,MAN=Y, 
KEY=3,LEM=40,POS=25,FIL= ,JUS=L. 

ICEY=AMT,LEN=4, P0S=65, MIN=1000, TYP=B,HAN=Y,FIL=0,JUS=R, 
KEY=SN , LEN=6,P0S=69, F I L=, JUS=R, , 




0001 
0002 
0003 
0004 
0005 





Figure E-3. Sample Input to Edit Table Generator and Format of input 
Delivered to Action Program 



Table E-2. Description of Sample Input to Edit Table Generator 
Line Parameter Explanation 



1 



SEP=, 

ETAB=EDIT1 
KEY=1 



The field separator is a comma for both the edit specification and input 
from the terminal. 

The edit table name is EDfTl. 

The first field described is positional. It must be the first field in the input 
message. 



continued 
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V. - ' Table E-2. Description of Sample Input to Edit Table Generator (cont.] 



Line Parameter Explanation 



LEN=5 The edited field is five characters long. 

POS=0 In the edited message the field begins in position 0. 

MAN=Y The field must be present for the message to be acceptable. 

KEY=2 The field is positional. It must be the second field in the input message. 

LEN=20 The edited field is 20 characters long. 

P0S=5 In the edited message the field begins in position 5. 

FIL= The field is to be blank filled in the edited message. 

JUS=L The field is to be left-justified in the edited message. 

MAN=Y The field must be present for the message to be acceptable. 

KEY=3 The field is positional. It must be the third field in the input message. 

LEN=40 The edited field is 40 characters long. 

POS=25 In the edited message, the field begins in position 25. 

FIL= The field is to be blank filled in the edited message. 

JUS=L The field is to be left-justified in the edited message. 

KEY=AMT The field is a keyword field. AMT=n must be specified in the input 

message. 

LEN=4 The edited field is four characters long. 

P0S=65 In the edited message, the field begins in position 65. 

MIN=1000 The minimum level allowed for the message to be acceptable is $10.00 

(entered as 1000). 

TYP=B In the edited message, the field is to be converted to binary. 

MAN=Y The field must be present for the message to be acceptable. 

FIL=0 The field is to be zero-filled in the edit message. (This parameter could 

have been omitted.) 

continued 
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Table E-2. Description of Sample Input to Edit Table Generator (cont) 
Line Parameter Explanation 



JUS=R The field is to be right-justified in the edited message. (This parameter 

could have been omitted.) 

5 KEY=SN The field is a keyword field. 

LEN=6 The edited field is six characters long. 

POS=69 In the edited message, the field begins in position 69. 

FIL= The field is to be blank filled in the edited message. 

JUS=R The field is to be rightiustified in the edited message. (This parameter 

could have been omitted.) 

End of edit definition. 

The following examples show freef orm input from the terminal and the resulting 
messages sent to the action program in accordance with the edit table specifications 
or, in case of error, the output message displayed at the terminal. Note that in the 
edited messages, the 4-character binary field specified for the AMT entry is 
represented by an underlined, 4-hexadecimal-digit field. Spaces between each 
delimiter and the first character of the next field are ignored. 

Terminal input: 



PAYMT, JOHM D. SMITH, 1112 BREEZE DR. PHILA.PA. 19160, 
AHT=2500,SN=123456 



Edited, message received by action program: 

PAYMTJOHNAD.ASMITHAAAAAAA1112ABREEZEADR.APHILA.APA.A19160 
AAAAAAAA09C4 123456 



Terminal input: 



PAYHT.JOHN D. SMITH,, SN=123456,AMT=2500 



Edited message received by action program: 

PAYMT JOHNAD . ASH I THAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAA09C4 1 23456 



c 
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c: 



The address field was not specified as mandatory in the edit table input and is 
omitted here; an additional comma is coded in its position. The AMT and SN fields are 
keyword fields and need not be entered in the order defined in the edit table input. 

Terminal input: 



PAYHT ,JOHN D. SMITH, 1112 BREEZE DR. PHILA. PA. 19160, 
AMT=2500,SN=123456 



Output message: 



ILLEGAL INPUT 



The transaction code field is longer than the LEN specification. 
Terminal input: 



PAYMT,JOHH D. SMITH, 1112 BREEZE DR. PHILA. PA. 19160, 
AHT=700,SN= 123456 



Output message: 



AMT IS BELOW MIN 



Edit table specifies AMT must be at least 1000. 
Terminal input: 



PAYMT, JOHN D. SMITH, 1112 BREEZE DR. PHILA. PA. 19160, SN=123456 



Output message: 



AMT MISSING 



v„ 



AMT was specified as mandatory. 
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E.8. Sample Edit Table Application Including Action ^ 

Program 

This sample application describes an edit table for a customer purchase/payment 
application and includes the action program that uses edit table input. 

E-8. 1 . Edit Table for the Purchase/Payment Application 

Figure E-4 describes the input to the edit table generator. 



SEP=;ETAB=ETABTST;KEY=1;POS=0;MAN=Y;LEN=5; 0100 

KEY=2;FIL= ;JUS=L;LEN=15;MAN=Y;TYP=A;P0S=5; 0200 

KEY=3;FIL= ;JUS=L;LEN=20;POS=20;TYP=M; 0300 

KEY=4;MIN=0001;HAX=9999;TYP=B;LEN=4;POS=40;MAN=Y; 0400 

KEY=5;MIN=-99999999;HAX=99999999;TYP=P;P0S=44;LEN=8;MAN=Y; 0500 

KEY=6;FIL=0;HIN=-20000;MAX=999999999;TYP=N;POS=52;LEN=10;HAN=Y;; 0600 



Figure E-4. Sample Input to Edit Table Generator 

Line 100 designates a semicolon as the field separator for both the edit specification 

and the input from the terminal. The edit table is named ETABTST. The first input ^-^ 

field is positional and is the transaction code. The field begins in position 0, is f | 

mandatory, and is 5 characters long. ^^^ 

Line 200 describes the second input field as positional with blank-fill where the input 
entry is shorter than 15 characters. This second field is left-justified, 15 characters 
long, mandatory, alphanumeric, and be^ns in position 5. 

Line 300 describes the third input field as positional with blank-fill, left-justified, 20 
characters long and alphanumeric. The TYP=M parameter is not reqmred because it 
is the default. 

Line 400 describes the fourth input field as positional and allows a value of not less 
than 1 and not more than 9999 with a length of 4 characters. In the edited message, 
the field is converted to binary and begins in position 40. The field is mandatory. 

Line 500 describes the fifth input field as positional with a minimum value of 
-99999999 and a maximum value of 99999999 in packed decimal format. The field 
begins in position 44, is 8 characters long, and is mandatory. 

Line 600 describes the sixth input field as positional with a zero fill character, 
minimum value of -20000 and maximum value of 999999999 in numeric format 
beginning in position 52 for a length of 10 characters. The field is mandatory. 



Xi„- 
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E.8.2. Action Program (EDITST) for Purchase/Payment Application 



Figure E-5 provides the EDITST action program coding that processes the input 
message received from the edit table and issues an output message to the terminal. 



o 
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Xl^bl 
XI / I 

^^t^H 

XI / 1 

XII Jl 

X t bl 
xi 121 
Xlb t 

XI im 
XI i<;i 
Xlb > 
XI i<;i 
XI b> 



VALUt ib 
WALUt lb 
WALUt ib 
VAtUL lb 



•ptMtHAoL • . 
•PAYr-tN I '. 



VALUt 'NAMt • . 

VALUL bPAtL. 

WAtUt 'AUUKLbb*. 

VALUt bPACL. 

VALUt 'AttUUM'. 

VALUt bPAtt. 

VALUt 'IKANbAtl*. 

VALUt bPAtt. 

VALUL •AMUUNl *. 

VALUL bPAtt. 

VALUt 'UALANtLIOLUl ' 

VAtUt bPAtt. 

VAtUt *bAtANtt tNt wr 

VALUL bPAtt. 



u^ 



u<; 

U2 



Ud 
\id 



b I AlUb-tUUt 
UtUittU-blfllUb-tUUt 
KttOhU-tYPt KLUtt-iNtb 



Pit vmi tonP-H. 
Pit viMi tunp-"*. 

Ot I AitLU-b» AlUb-tCUt . 



U3 PKL UitltU-KttJKU-TYPt Pik. X. 

Ui Utt iVCktU-KttuHD-IYPt Pit X. 

bUtttbbOK-iU Pit Xlbl. 

ItKHiN AliOf»-iNUitA lOK Pit X. 

tOtK-KUttbAtH-iNUitAlUh Pit A. 
IHANbA tl iUN-iU. 

U J YLA K Pit Vl"* I 

UJ lOUAY Pit Vim 

Ui HK-HlN-bLt Pit VIVJ 

UA I A-Ut>--HLt-NAML Pit Xl/I. 

Utt- iNLU-t^itt-NAML Pit XI7). 

i lANL'A KU-Mbb-LiNL-LtNb IH Pit VIM) 

b I ANUAHU-Mbb-NUMOtK-LiNLb Kit Vltl 

(lUKK-AKtA-LtNblH Pit V I m 



tOPP-H. 
CUPP-I. 
tUPfP-**. 



LUPiP-H. 
tUMP-"* I 
tOf^P-H, 



tUNUNUil Y-UA TA-iNPUl -ttNblH Pit VIHI tUMP-H. 



Figure E-5. Sample Action Program (EDITST) Using Edit Table Generator Input 

(Part 1 of 3) 
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UUUbl 

UUUbt 
UUUbb 
UUUbb 
UUJb/ 
UUUSB 
UUUbV 
UUUbU 
UUUbi 

uUub*: 

UUUbi 
UUUbH 

uuub:> 

uUUbb 
UUUbV 
UUUbb 
UUUbV 
UCJU/U 
UUOli 
UJU 1^ 
UUU /J 
UUOft 
UiiUlb 
UJU it> 
UiiLtl 

u'Jiiia 
uuu/y 

uauau 

UJUbl 
ULIUbi:: 

UUUbi 
UUUUH 

uauBi 

i:Ubbb 

uuua r 
uUueu 

UUUbV 

uuuvu 

LUUVi 

uuuy^: 

UUUVi 
UUUVi4 
UULV3 
UUUVb 
UJUV / 
UUUVtt 

uuuyy 
uuiuu 
uuiui 

UUiU^ 

uuiui 

UUlUH 
UUlUb 
LiUiUb 
UUIUI 

uuiUb 
uuiuy 

UUllU 



Ui 



Ul 



U^f LUNl INUII t-UAI A-UUl KU I-LtNy IH 
U^ HOKR-AKLA-lNt Fit 

U^ CUMlNUHY-UAlA-AKLA-iNC 
U^ bUUtLb i-UNi l-iu. 

Ui iKANbAt liUN-UAlt . 
U4 YLAK 
L"* MUNlri 
L'4 lUUAY 
Ui llML-Uh-UAf. 
UH HUUK 
UH MlNUlt 
Vt itLONU 
Ui ^lLLtK 
U^ iUUkLt -TtKfllNAL-tHAHi. 

Ui bOUHtt- ILHMINAL-IYHL Kit X. 
Ui bOUKCt-lLKtt-MiU-LlNt-LLNblH 
Ui bOUKLL-lLKM-Mib-NUMBtK -LINLS 



I-IL 



Hit 
Hit 
UL 

Hit. 






yy. 

vy. 
yy. 
yy. 

XXX. 



ylHl LOHH-<l. 

tOMH-4, 
tUHH-H, 



HlC 
KIC 



yjM J 

y««() 



tOMP- 



U/? 



Ui: 



U^ UUP-HUUt 
ifk, COPY IMA/H. 

U<f bUUkLt- rtKMlNAU-lU 
UA IL- ll«t-b I AHH. 
Ui YtAK 
Ui lOUAY 
Ui Hk-niN-SLt 
ILXI-Lt NblH 
AUXILIA HY-Ut-V-lJ. 
Ui ULLLK 
Ui AUX-Ut^-NO 
LlNt-i -It*. 
IKANbACI fit 

iN-NAft Klb 

iN-AUUK KiC 

lN-Att-^fU KIC 

if«-AMbUNl Hit 

IN-tALANbt Pit 

tOPY OMA/*. 



Clt X , 



u/ 

0/ 
UI 
U/ 

u/ 

u* 

U«A. 

U«i 

U^r 
u.; 

Ui^ 



H t XI4) , 

Kit ye** 
Hit y«m 
Hit y«yi 
Pit y m I 

Hit X. 
Hit X. 

Xlb J. 
A( lb) . 

x(<;u) . 

y<«> tOMH. 

iy tli ivyy tonn-i. 
by »Bi vyy. 



tunp-H. 

tOMH-H. 
tUMH-'*. 

tunp-'*. 



Ui 

Ui 

Ui 

Ui 

Ui 

Ui 

Ui 
Ub 
Ub 
Ob 
Ob 
Ub 
Ub 

Ui 

Ui 



ULbllNA Hon- ILHnlNAL-lU 

b^i-OHI lONb 

ULLtK 

tUNI INUUUb-UUlHUl-CUUL 
ItXI-LLNblH 
AUXlLlAKY-ULVltL-lU. 
Ui AUX-^UNL^1UN 
US AUX-ULVltt-NU 

UUIHUI -«bb-ltX I . 

Llhtl-Ultt Pit X(H). 

LlNtl-bUI Pit XCbUI . 

LiNt^-uitt Pit xim. 

LiNLi-UltL Pit X(1J. 

LlNti-HtAUtK Pit Xlbb'l. 

LlNtH-UltL Pit xmj. 
LlNt«.-OUl . 

NAMLALH Pit A( Ibl . 

ULLtK Kit Xllbl. 

AUUK-ALHNUM Pit Xt^Ul. 

f ILLt« Pit X( IL'I . 

ACt-NU-blN PIC yiBI. 

f iLLLK PIC x^l^l . 

LiNtb-uitt Pit xim. 

LlNtb-UlLL Pit xm». 



Hit 
Hit 
Hit 
Hit 
Hit 

Hit 
Hit 



X m i. 
x(<; I. 
xi<^ ). 
xim. 
yim 

X . 
X. 



CUhP-H. 



Figure E-5. Sample Action Program (EDITS71 Using Edit Table Generator Input 

(Part 2 of 3) 
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i*^" 



UUHH 
UU 1 1 b 
uUllb 
UUil / 

uuii y 

UU 1 <f / 



UJi^V 

LUliU 

uui ji 
UU i i s 

UU I ib 
UUli/ 
UJl J» 

u'j J m 

UU i 4 i 
UUIHM 



Ul 



U3 LiNtb-HtAULK 

UJ LlNt7-UH,t 

Hi LiNt/-our. 

Ub lYPt-lH«NS 

Ub t-iULLH 

Ub AnUUIMf-PAt 

Ub hlLLLK 

Ub oAL-ULU-NUn 

Ub ULLLK 

Ub DAL-NtK-NUh 

yj LlUtiJ-UiCt. 
mUNH. 

Ub UNt-AL-AMI 



Hit XloUl . 

^it xm ). 



eic 

Pit 

Pit 
PIC 
Pit 



xibi. 
x( l^t . 

y I !«(> .vvtki 

vi a). vvtK. 

X< d ). 

9 IB l.VVtK. 

xm ). 



Pit V« IM» VVV. 



PKUtLUUHL UlVlblON UblNb PiB IHA l»tK»\ HA . 

HObbLKtLPlt'.b. 

nUMt CKJ lU LlNtl-Ultt. 

nOJt Nxr-LNt lU LlNt<;-Ultt, LlNti-UltL, LlNm-Ultti 



LlNtb-OltLf Ll^tD-UlCLt Ult«L/-DlCt, LlNtb-Ultt. 

lOtfL IKANbAtI Ut LlNt-1-lN 1U LlNLi-UUI. 

nOWt LlNLi-MtAU 10 L iN L J-ML AULh . 

nUWt LlNtb-HtAb 10 LlNLb-HLAUth . 
iNPUl-tHLt^. 

f13VL IN-NAMt To NAhLALP. 

nuVL IR-AL'UK lO AUuK-AtPNUN. 

nOVL iN-Att-NU 10 Atc-NO-blN. 

i»- IN-AMOUM ib Ltbb IHAN U IHLN nUVL tairHUkAW 10 lYPt-TKANb 
tLbt MOVL UtPUbll lU ITPt-lHANb. 

MUVt IN-APtUUNl fU Ar»OUNl-PAC. 

HOVt iN-BALANtL 10 b At -OLU -Nu 1 . 

AOU 1N-AM0UN( , Irv-BALANtL 
blVlNb liAL-NtW-NUM. 

HUVt 4JL' lU Tt*I-LtNofH OF OHA. 
LA I 1-PKUb. 

tALL 'KtlUNN'. 



Figure E-5. Sample Action Program (EDITST) Using Edit Table Generator Input 

(Part 3 of 3) 



E.8.3. Processing the Purchase/Payment Application 

When the terminal operator enters the unformatted input - transaction code, name, 
address, account number, amount, and balance as follows: 

WIDEP;JAN HALS;1422 AMBER LN PHILA;472;11000;35000 

the edit table generator formats the input according to your edit table input 
parameters (Figure E-4), and the action program EDITST (Figure E-5) receives this 
edited input in its input message area as follows: 



WI DEP ; JANAHALSAAAAAAA ; 1422AAMBERALNAPH I LA A01D8; 
0001 1000 ,-0000035000 
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Note that for easier identification in this example, the binary account field expected as 
input to the action program is shown here as a hexadecimal value and underlined. 

The EDITST action program receives this input message giving the old balance and 
payment amount, computes a new balance, and generates a 5-line output message as 
follows: 



o 



Line 1 
2 
3 
4 
5 
6 
7 


WIDER 






NAME 

ANDREW S. WYETH 


ADDRESS 

1422 AMBER IN PHILA. 


ACCOUNT 
00000472 


TRANSACT 
PURCHASE 


AMOUNT BALANCE (OLD) 
00000000000110.00 00000350.00 


BALANCE(NEW) 
00000460.00 



In the Procedure Division, EDITST moves the transaction code into the first Une of 
the output message, double spaces, moves the NAME-ADDRESS-ACCOUNT header 
to line 3, double spaces, moves the TRANSACT-AMOUNT-BALANCES header to Hne 
6, and begins computations based on your terminal input. 

EDITST places the name, address, and account number entered at the terminal in line 
4 of the output message. Note that the account number entered at the terminal is 
decimal; however, the edit table generator converts this number to binary and 
EDITST receives it as a binary field. 

Note that in your action program, any fields describing decimal values keyed in at the 
terminal must be defined large enough to accommodate the field as received from the 
edit table generator. For example, an 8-digit decimal number entered as an amoimt 
from the terminal and defined by LEN=8 and TYP=P in the edit table parameters 
(Figure E-4, line 500) is defined in the program's input and output message texts as a 
16-byte packed field (Figure E-5, line 84 and 116). This field sizing also applies to 
binary values. 

Next, EDITST tests the amount field (IN-AMOUNT) entered as input to see if it is 
less than zero. If the amount entered was negative, it was for payment; otherwise, it 
was for purchase. EDITST moves these respective constants to the output message 
area. 

After this, the program moves the input amount and old balance to the output 
message area and adds either the negative payment amount or the positive purchase 
amount to the old balance giving the new balance. 

Finally, the total output message text length is moved to the output message area 
TEXT-LENGTH field before the RETURN function ends the transaction. When the 
RETURN fxznction executes, EDITST sends the type transaction, amount of payment 
or purchase, old balance, and new balance to Hne 7 of the output message and, the 
entire output message text to the designated lines. 
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Appendix F 

Using Device-Independent Expressions and 

Field Control Characters 

F.l. General Information 

You use device independent control expressions (DICE sequences) to format input and 
output messages handled by action programs. These codes are needed to control 
various operations, such as cursor positioning and carriage return, on a terminal 
screen. 

This appendix supplies all DICE sequences and their interpretations, describes how to 
use them in formatting messages in your action programs, and discusses the DICE 
macroinstructions used in BAL action programs to create the DICE sequences. In 
addition, it presents limited information concerning the use of field control characters. 

F.2. Formatting Messages 

F.2.1. Output Messages 

There are numerous methods for formatting output messages. The action program can 
use: 

1. Screen format services. For a complete discussion of how to use screen format 
services, see Section 7. 

2. Device-independent control expressions 

3. Format control expressions with UNISCOPE 100 and 200 display terminals 

4. Field control characters (FCCs) with workstations and UTS terminals 

This appendix supplies information on DICE sequences and how to use them. Also 
included is information concerning field control characters. 
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When a program uses format control expressions, it must include a different 
formatting routine for each type of terminal receiving the output. Figure F-1 
illustrates this. 



OUTPUT TEXT AND CONTROL CHARACTERS 



USER 
PROGRAM 



m^^m 



TEXT 



TEXT 



TEXT 





TEXT 




TEXT 





REMOTE 

DEVICE 

HANDLERS 



n. 



TEXT 



TEXT 



TEXT 



^ 



TEXT 



TEXT 



TEXT 




LEGEND: 



^ L 



Terminal-Oriented 
Control Characters 



Figure F-1. Using Terminal-Oriented Control Characters to Format Messages 

Using DICE sequences to format messages eliminates this problem. The remote 
device handler converts DICE sequences to control characters for each destination 
terminal, regardless of type. Some of the control character functions are: 

• Line feed - cursor movement to the first space of a new line 

• Form feed - cursor to the home position of a new page 

• Carriage return - cursor to the beginning of the same line 

• Cursor movement to a specific row and coltmm on a display 

You can place DICE sequences anywhere in a message. As you can see in Figure F-2, 
DICE sequences simplify message formatting. 






F-2 
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OUTPUT TEXT AND DICE 



USER 
PROGRAM 



TEXT 



TEXTg 



REMOTE 

DEVICE 

HANDLERS 



TEXT 



TEXT 





TEXT 


^^^ 


TEXT 







TEXT 




TEXT 





M 

I ^ 




LEGEND: 



DICE Characters 



Terminal-Oriented 
Control Characters 



Figure F-2. Using Dice Sequences to Format IVIessages 



F.2.2. Input Messages 



,^ 



For input, the remote device handler converts control characters received in a message 
into DICE sequences. For certain terminals, your program can analyze these 
sequences to determine cursor position. In addition, input DICE is handy for message 
switch applications because control characters in each input message are converted to 
DICE sequences. The remote device handler converts these sequences into the 
appropriate control characters for the destination terminal. 

When you specify EDIT=c or EDIT=tablename in the ACTION section of the IMS 
configuration, input DICE is stripped from your input message. You should specify 
EDIT=c or EDIT=tablename in your IMS configuration. (Specify EDIT=tablename 
only when you generate an edit table for the action. See Appendix E.) 
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F.3. DICE and ICAM 

You can turn DICE on or off when you define your communications network with the 
DICE operand of the TERM macroinstruction. 

DICE= (Ml) 
(\off/) 

where: 

DICE=ffi 

Remote device handler creates input DICE according to your input terminal 
cursor movements. 

DICE=OFF 

Remote device handler does not create input DICE. 

The default is DICE=(ON). It is recommended that you specify DICE=(ON) or omit 
this operand because many IMS features require the use of input DICE. Certain 
terminal commands and IMS transaction codes are not available when you specify 
DICE=(OFF). 

See Integrated Communications Access Method (ICAM) Technical Overviews, UP-9744, 
for a detailed explanation of input DICE creation, and the IMS System Support 
Functions Programming Guide, UP-11907, for specific IMS considerations. 



o 






F4 UP-9207 Rev. 2 



Using Device-Independent Expressions and Field Control Characters 



v...^'''' 



F.4. DICE Sequence Format 



select 
character 


function 
code 


m field 


n field 



where: 



select character 

Hexadecimal character (10) designates the start of a DICE sequence. 

function code 

Defines the device control sequence that is recognized by the remote device 

handlers on input. On output, this code is a 1-character field defining the 

operation to be performed on the text message. DICE function codes are 

listed in Table F-1. 



o 



m field and n field 

These fields are treated as parameters to the DICE function code. Their 

actual definition varies and is determined by the individual DICE 

macroinstruction. Generally, m relates to vertical positioning and n refers to 

horizontal positioning. 

These fields may be expressed in absolute values (mg and n^) or relative displacement 
values (m^ and n^,). The absolute values ahgn the text message to the actual location 
(row and column) on a page or screen. The relative displacement values give a relative 
location from the present position of the cursor, that is, move cursor two rows down 
and one column to the right. All values are expressed in hexadecimal notation. If you 
choose to use DICE macroinstructions, these parameters must be specified. 



'V_. 
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F.5. Using DICE Macroinstructions in BAL Programs 

DICE macroinstructions let you create DICE sequences (DICE constants) in the same 
way you would create constants in your program; when the assembler expands a DICE 
macroinstruction, your program creates a constant at that location. 

On output, when your program is ready to send a message, it moves the DICE 
constants created from the DICE macroinstructions into the appropriate places in 
your message before it issues the output request. The remote device handler converts 
the DICE constants into the corresponding control characters to produce the necessary 
positioning. 

On input, DICE sequences are automatically created by the remote device handlers 
imless you specify the DICE=(OFF) parameter in your network definition. Table F-1 
hsts the DICE macroinstructions, function code generated, and m and n coordinates as 
they apply to particular devices on input and output. 

You must specify m and n coordinates in your program according to the absolute and 
relative values expressed in Table F-1. mg and ng are absolute values of m and n; m 
and Uj. are relative displacements of m and n. For CRT terminals, the home position is 
(mg ,ng)=(l,l). For character- or page-oriented devices that allow position to top of 
form, the top-of-form position is (mg,ng)(l,l). 

• Absolute positions 

Absolute positions of mg and ng may range as follows: 

mg ranges 1 to r 

where: 

r = maximum number of rows (CRT), or maximum number of Hues per 
page. 

Hg ranges 1 to c 

where: 

c = maximum number of columns (CRT), or maximum number of 
character positions per line. 



^-^ UP-9207 Rev. 2 



Using Device-Independent Expressions and Field Control Characters 



• Relative positions 

Relative displacements of m^, and n^. may begin at zero and range to the bottom 
and right margin of the screen or page. 

If a value of m or n falls outside of the legal range, that value of m or n will cause 
the following action: 

™a or Hg = is interpreted as mg or Ug = 1 

Specifying an absolute or relative value for m or n that is greater than the screen or 
page size causes unpredictable results. 

F.6. Generating DICE Codes 

Macroinstructions are issued to generate the DICE codes. 

60PERAT10NA 



J 



LABEL 



[symbol] 
where: 



dice -macro instruct ion 



OPERAND 



m,n 



\ [symbol] 

1 Ar, 



An optional alphanumeric character string, from one to eight characters 
long, that identifies the specific instruction line. 

dice-macroinstruction 

You specify the appropriate name from the macroinstruction column of 

Table F-1 for the desired DICE sequence. 



A decimal number (0 to 255) indicating the number of lines or rows the 
terminal should advance before starting output of the message (Table F-1). 



A decimal number (0 to 255) indicating the number of spaces or columns to 
the right the terminal should space before starting output of the message 
(Table F-1). 
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10 16 



NEWLINE ZO#POS 0,0 
COORDI ZO#COORD 5,10 



1. This DICE sequence causes movement to a new line. 

2. New text starts at line 5, column 10. 



Column 10 
123456789 10 



n 



1 






2 






3 






4 






Line S-* 5 


T 



^ 



^'Kaii^-'' 
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Table F-1. Dice Input/Output Commands, Codes, and Device Interpretation 



DICE 

Mkio- 

uistmction 


FlIIKtiOtI 


FuiKhon 
Code 
ValiK 


I/O 


in 


1) 

n 


! 

CharKtir- 
otienttd 
OencesO 


cm otvicts 


Pa|> Printint 

OeviMS 

(R IS Not 

interpreted) 


Output rrintir 
(COP) 
m TorniiMl 
Printor (IP> , ' 


Z0#C0ORD 


Set coordinates 


01,i 


1 

N 
P 
U 

T 


m 


Not used 


m and n represent 
the start-of-entry 
POEl cursor 
coordinates. 


^lot used 


Not used 



U 
T 
P 
U 
T 


m 
a 


n 
a 


Action is 
optional.© 


Move cursor to row 
m and column n. 


Action is optional.© 


Action is optional.® 


ZO#FORM 


Forms control 


02„ 


1 

N 
P 
U 
T 


01 


01 


■orm feed 


Form feed 


Not used 


Not used 




u 

T 
P 
U 
T 


m 
a 


n 
a 


Form feed, 
carriage return, 
and advance to 
line m and 
column n |m-l 
line feeds and 
n— 1 spaces to 
ttie right) 


Move cursor to row 
m and column n. 


Top of form and 
advance to line m 
(ml line feeds) 


Form feed, line feed, 
and advance to 
line m and column 
n (m— 1 line feeds 
and n— 1 spaces to the 
right) 


ZOOFORMC 


Forms control 
with clear 
unprotected 
data 


03,6 


1 
N 

P 
U 
T 






Not used 


Not used 


Not used 


Not used 



U 
T 
P 
U 
T 


m 
a 


n 
a 


Action is 
optional.© 


Move cursor to row 
m and column n, 
and clear unpro- 
tected data to 
end of screen. 


Action Is optional© 


Action is optional.® 


ZO#POS 


New line control 


04,. 


1 
N 

P 
U 
T 


00 


00 


Carriage return, 
line feed 


Cursor return 


Not used 


Not used 




U 
T 
P 
U 
T 


m 
r 


n 
r 


Carriage return, 
line feed, fol- 
lowed by m line 
feeds and n 
spaces to the 
right. 


Move cursor to 
beginning of next 
line. Then move 
cursor m lines 
down and n col- 
umns to the right 


Advance (m-f-1) 
lines. 


Line feed, followed 
by m line feeds and 
n spaces to the 
right. 


ZOKPOSC 


New line control 
with clear 


05,6 


1 

N 
P 
U 

T 






Not used 


Not used 


Not used 


Not used 



U 

T 
P 
U 
T 


m 
r 


n 
r 


Carriage return, 
line feed, fol- 
lowed by m lin 
feeds and n 
spaces to the 
right 


Same as 04,6 ex- 
cept area between 
start and end posi- 
tions IS cleared. 


Advance (m4-l) 
lines. 


Line feed, followed 
by m line feeds and 
n spaces to the right 



continued 
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Table F-1. Dice Inpu^Output Commands, Codes, and Device Interpretation (contj 



(, 



DUE 

llaei» 

miliiKhan 


rMtDOB 


CwtB 
Mm 


l/» 


a 


n 


Cktnctv 
Dtvie>«0 


CRT Dnicn 


Otvtm 

■r IS No! 
Irt-rj tfi 


OMpiit Pfwin 

(COP) 

:r TBiii,inl 

Punier /TPl 


ZO«CUR 


Current position 
control 


06,s 




01 


00 


Lme feed 


Line feed 


End of input card 


Not used 




m 

r 


n 
r 


m line feeds 
and n spaces to 
the right 


Move cursor m lines 
down and n columns 
to the right. 


Advance m lines. 


Insert n spaces if 
nonsignificant space 
suppression is allowed. 
If not, insert n DC3 
characters; m is not 
interpreted© 


zorcuRC 


Current position 
control 
with clear 


07,s 








Not used 


Not used 


Not used 


Not used 




m 
r 


n 
r 


m line feeds 
and n spaces to 
the right 


Insert n spaces il 
nonsignificant space 
suppression is 
allowed. If not, insert 
n DC3 characters; m 
is not interpreted. 


Advance m lines. 


Insert n spaces il 
nonsignificant space 
suppression is allowed. 
If not, insert n DCS 
characters; m is not 
interpreted.© 


ZO#BEG 


Beginning 
of current 
line control 


08„ 


--- 


00 

m 
r 


00 

n 

r 


Carriage return 

Carriage return 
followed by m 
line feeds and 
n spaces to the 

right 


Not used 

Move cursor to 
beginning of current 
line. Then move 
cursor m lines down 
and n columns to 
the right. 


Not used 
Advance m lines. 


Not used 

m line feeds and n 
spaces to the right. 


ZO«TABS 


Set tab stop 
at an 
absolute 
position (?) 


09,6 








Not used 


Not used 


Not used 


Not used 




m 
a 


n 
a 


No line feed, 
space to right. 


Set tab stop at row 
m and column n. 


Advance m lines. 


Not used 


ZO#FORMA 


Forms control 
with clear; 
protected/ 
unprotected 
data 


0A,6 








Not used 


Not used 


Not used 


Not used 


U 

T 


m 
a 


n 
a 


Action Is 
optional.© 


Move cursor to row 
m and column n 
and clear pro- 
tected/unprotected 
data to end of 
screen. 


Action is optional.© 


Action is optional.® 



o 



continued 
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Table F-1. Dice Inpul/Output Commands, Codes, and Device Interpretation (cont.) 



"-' '-';.•■ 




• £ada 


*< 

i- 


•t't 


V 






Paiii Pnnliill 

OUICH 

(n aNM 
imemraMl 


Conmnnicalinm 

, Otipiit l>hn(r 

(COP< 

wltrminil 

PrintiT iTPK « 


ZOffERSLN 


Erase to 
end of line 


0B,6 


1 

N 
P 
U 
T 






Not used 


Not used 


Not used 


Not used 



U 
T 
P 
U 
T 


m 

3 


n 
a 


No action 


Cursor does not 
move. Unprotected 
data to the end of a 
line or to the end 
of the first unpro- 
tected field is 
cleared, whicheuer 
comes first 


Advance lines. 


Not used 



Notes: 

1 Most character-oriented terminals can be strapped to handle the carriage return (CR) character and the line 
feed (LF) character as follows; 

■ CR 

1. print mechanism moves to beginning of the same line 
or 

2. print mechanism moves to the beginning of the same line followed by a line feed 

■ LF 

1 . line feed (no column change) 
or 

2. line feed followed by return of the print mechanism to the beginning of the new line 

To achieve device independence between terminal types, the character-oriented terminals must use the first 
option for CR and the first option for LF if the device macroinstruction is ZO#CUR or ZO#BEG. 

Use the first option when the character-oriented terminals are a part of a message switch environment. 

Certain terminals do not have a form-feed capability (that is, some teletypewriters). For these terminals, the 
DICE expressions that specify form feed will line feed. 

continued 
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Table F-1. DICE Input/Output Commands, Codes, and Device Interpretation (cont) 

2 The set coordinates macroinstruction (ZO#COORD) or the forms control with clear macroinstruction 
(ZO#FORMC), when acted upon by character-oriented or page-printing terminals, will vary in its action, 
depending on the usage of the DICE keyword parameter of the TERM macroinstruction at network definition 
time: 

TERM ...,DICE= ([forms 1) .... 
([NEWLINEJ) 

When FORMS is specified, the set coordinates macroinstruction is interpreted as the forms control 
macroinstruction. 

When NEWLINE is specified, the set coordinates macroinstruction and the forms control with clear 
macroinstruction will result in a carriage return, line feed for character-oriented terminals, or advance one line 
for pageoriented terminals; m and n are not interpreted. 

When the DICE parameter is not specified, the default option is NEWLINE. 

3 The UNISCOPE display terminal suppresses nonsignificant spaces on each line (except for the line containing 
the cursor) when text is transmitted to the processor or printed locally on the COP or TP. 

Your program may send data to the UNISCOPE screen containing significant blank segments that include the 
last column of the screen. If this data is transmitted from the terminal to the processor or is printed locally on 
the COP or TP, the blank segments must consist of nonspace characters that are nondisplayable. The DCS 
character meets these qualifications. The ICAM interface provides your program with the capability to prevent 
nonsignificant space suppression on the UNISCOPE display terminal. The "current position control with clear" 
is the only DICE macroinstruction that can perform a clear function if your program is preventing nonsignificant 
space suppression. 

Note: 

The ASCII-to-EBCDIC translation table is modified so that the DC3 character is translated to space 40 .j^^ for 
input from the UNISCOPE display terminal. 

4 When using DICE function code 09 .|^ for setting a tab stop, m=0 and n=0 results in a tab stop being placed 
at the current cursor location (no cursor positioning is performed). This applies to UNISCOPE and UTS 400 
devices only. For teletypewriters and DCT 500 terminals, a space character is inserted. 

When m or n is greater than the maximum allowable m or n, action varies depending on the remote terminal: 

■ UNISCOPE display terminals - wraparound occurs on the screen. 

■ Character-oriented terminals - gives different results depending on device characteristics. 
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F.7. Interpreting DICE Sequences 



When using DICE, your program does not need to be aware of the terminal type. A 
particular DICE denotes the same positioning on any terminal. There are some 
exceptions that result from terminal limitations. 

The interpretation of a DICE by the remote device handler is controlled by: 

1. DICE function code 

2. DICE m and n fields 

3. The terminal involved 

4. The particular device on the terminal being used 

The remote device handlers currently provide device-independent support for three 
classes of remote terminal devices: 

1. Hard-copy character-oriented devices, such as the Unisys Data Communications 
Terminal 475 (DCT 475), Data Communications Terminal 500 (DCT 500), Data 
Communications Terminal 524 (DCT 524), and Data Communications Terminal 
1000 (DCT 1000), and Teletype teletypewriter models 28, 32, 33, 35, and 37. 

2. Hard-copy page printer device, such as the Unisys 1004 Card Processor System, 
Data Communications Terminal 2000 (DCT 2000), and the IBM 2780. 

3. CRT-type terminals, such as the UNISCOPE 100 and 200 and the UTS 400 
display terminals. 

Table F-2 defines the primary output device and the primary input device for each 
terminal type. 
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Terminal Type 



Table F-2. DICE Primary Devices 

Primary Output 
Device 



Primary Input 
Device 



Character-oriented terminals 
Page printing terminals 
CRT terminals 



Printer 
Printer 
Screen 



Keyboard 
Card reader 
Keyboard 



In addition tx» the specified primary devices, each terminal has the ability to support 
one or more auxiliary devices. The auxiliary devices suggested by each terminal are 
listed in Table F-3. 

Table F-3. DICE Usage for Auxiliary Devices 

Remote Terminals Auxiliary Device DICE Usage 



UNISCOPE 



DCT 1000 

DCT 500/nY 
DCT 524 

Batch terminals 



Tape cassette (TCS) 

Communications output printer 

(COP) 

800 terminal printer (TP) 

Card reader/card punch 
Paper tape reader/punch 

Paper tape reader/punch 

Tape cassette (TCS) in paper 
tape read and write only 

Punch 



DICE is applied to the COP. (T) 



DICE is applied as if the 
output^nput is to/from the 
primary device, even though it is 
for the auxiliary device. (?) 



DICE is used for end of network 
buffer sentinel. No forms control 
action is taken. 

Continued 
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Table F-3. DICE Usage for Auxiliary Devices (cont.) 
Notes: 

1 When the print transparent option is not used, DICE is applied to the UNISCOPE screen even though the output 
is sent to an auxiliary device of the UNISCOPE terminal. In this case, the format of the data printed on the COP 
or TP is identical to the screen format. Nonsignificant space suppression by the UNISCOPE terminal may have 
to be prevented to keep the formats identical. 

The full capability of DICE cannot be applied to the COP because of hardware characteristics. All data to a 
UNISCOPE auxiliary device passes through the UNISCOPE terminal. When DICE is applied to the COP, the use 
of print transparent mode means that no carriage returns are transferred to the COP. Line feeds and form 
feeds take a storage position in the UNISCOPE storage and are nondisplayable. These characters are passed 
to the COP where: 

■ An LF causes a line feed followed by return of the print mechanism to the beginning of the new line 

■ An FF causes a page eject and positioning of the print mechanism at the beginning of the first line of the 
form 

The COP has no tabbing capability. 

These characteristics are reflected in the interpretation of DICE output function codes for the COP as shown in 
Table F-2. 

For messages sent to a UNISCOPE auxiliary device with transparent transfer, the cursor to home (ESC e) 
sequence is inserted at the beginning of the text by the RDH. 

2 The control characters that are generated from the DICE macroinstructions are always created for the primary 
device of a character-oriented device, even though your program is sending to an auxiliary device. The 
message and these control characters (carriage returns, line feeds, form feeds, and spaces) will be 
punched/written by the output auxiliary device that was specified by your program or was switch-selected by 
the terminal operator. If the punched/written data is later read by the terminal's input auxiliary device, the 
carriage returns, line feeds, and form feeds are converted to input DICE as specified in Table F-1. 
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F.8. Using DICE Sequences in a COBOL Action Program 



O 



Though COBOL action programs do not issue DICE macroinstructions, they do use 
the function code values in PICTURE clauses to position messages and control the 
cursor. Table F-1 lists and explains the possible DICE I/O commands. The following 
example of output message coding (Figure F-3) illustrates a COBOL action program's 
use of DICE sequences to issue the terminal message shown following the code 
(Figure F-4). 



01 0-H 


■A 


COPY 


DMA. 






02 


DESTINATION-TERMINAL- ID 


PIC X(4). 




02 


SFS 


-OPTIONS. 










03 


SFS-TYPE 




PIC X(2). 






03 


SFS-LOCATION 




PIC X(2). 




02 


FILLER 




PIC X(2). 




02 


CONTINUOUS-OUTPUT 


■CODE 


PIC X(4). 




02 


TEXT- LENGTH 




PIC 9(4) 


COMP-4. 


02 


AUXILIARY-DEVICE- 


ID. 








03 


AUX- FUNCTION 




PIC X. 






03 


AUX-DEVICE-NO 




PIC X. 




02 


OUTPUT -TEXT. 










03 


DICE-SEQ-1 




PIC X(4) 


VALUE ='100A8All". 




03 


LINE-1 




PIC XC22) 


VALUE 'YOU USE DICE SEQUENCES'. 




03 


DICE-SEQ-2 




PIC X(4) 


VALUE ='10010C20'. 




03 


LINE-2 




PIC X(18) 


VALUE 'ON THE OUTPUT FORM'. 




03 


DICE-SEQ-3 




PIC X(4) 


VALUE ='10040E22'. 




03 


LINE-3 




PIC X(14) 


VALUE 'TO FORMAT YOUR'. 




03 


DICE-SEQ-4 




PIC X(4) 


VALUE ='10081026'. 




03 


LINE-4 




PIC X(7) 


VALUE 'MESSAGE'. 



Figure F-3. COBOL Action Program Using DICE Sequences to Format Output IVIessage 



COLUMN 



ROW 

10 
12 
14 
16 



30 32 34 



38 



YOU USE DICE SEQUENCES 

> ON THE OUTPUT FORM 

► TO FORM YOUR 

y MESSAGE 



Figure F-4. A DICE Formatted Output IVIessage on the Terminal Screen 



o 



F-1 6 



UP-9207 Rev. 2 



Using Device-Independent Expressions and Field Control Characters 



Here is a brief description of the DICE sequences used in Figure F-3. 
DICE Sequence Description 



lOOAOAlE 



The select character 10 signals the start of the DICE sequence. 

The function code (OA) clears all protected and unprotected data from the terminal 
screen. 



10010C20 



10040E22 



The m field (OA) and the n field (IE) position the cursor to row 10, column 30. 

The select character 10 is always the same and signals the start of the DICE sequence. 
The function code (01) sets coordinates as directed by the m and n fields of the DICE 
sequence. 

The m field (OC) and the n field (20) position the cursor at row 12, column 32. 

The select character is the same as before. The function code (04) moves the cursor to 
the beginning of the text line and then sets the coordinates as directed by the m and n 
fields. 



10081026 



The m field (OE) and the n field (22) position the cursor two rows below where it 
presently is and in column 34. 

The select character is again the same. The function code (08) returns the cursor to the 
beginning of the current line. The m field (10) and the n field (26) position the cursor two 
rows below the current line and in column 38. 
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F.9. Using Field Control Characters 

Each field control character (FCC) sequence contains a preface control character, a 
screen row number, screen column number, and two character places that define the 
screen operations being performed by the sequence. The field control character 
sequence format is: 

FCC SEQUENCE 
, 1 1 



o 



us 


R 


C 


M 


N 



TEXT US R C M N TEXT 



US is the control character that signals the start of a field control character sequence. 
It corresponds to a hexadecimal IF. 

R is the number of the row in which the field control character is placed. This is the 
hexadecimal value equivalent to the row code for the screen row indicated in 
Figure F-5. 

C is the number of the column in which the field control character is placed. This is 
the hexadecimal value eqxiivalent to the column code for the screen column indicated 
in Figure F-5. 

M is a hexadecimal value placed in the sequence to define bits 4, 5, 6, and 7 of the field 
control character operation. Table F-4 lists the hexadecimal codes you can use. 

N is a hexadecimal value placed in the sequence to define bits 0,1,2, and 3 of the field 
control character operation. Table F-5 lists the hexadecimal codes you can use. 
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Table F-4. Hexadecimal Codes Used as M in the FCC Sequence 

Field Characteristics 

Tab stop, normal intensity, changed field* 

Tab stop, display off (no intensity), changed field* 

Tab stop, low intensity, changed field* 

Tab stop, blinking display, changed field* 

Tab stop, normal intensity 

Tab stop, display off (no intensity) 

Tab stop, low intensity 

Tab stop, blinking display 

Not tab stop, norma! intensity, changed field* 

Not tab stop, display off (no intensity), changed field* 

Not tab stop, low intensity, changed field* 

Not tab stop, blinking display, changed field* 

Not tab stop, normal intensity 

Not tab stop, display off (no intensity) 

Not tab stop, low intensity 

Not tab stop, blinking display 



Normally, when an FCC is generated by the host processor, the changed-field designator is cleared. However, 
the host processor can generate individual FCCs with the changed-field designator set; this capability may be 
used for selective transfer or transmission of fields which were not in fact changed by the terminal operator. 
By sending an ESC u code to the terminal in a text message, the host processor can clear the changed-field 
designators in all FCCs without regenerating each FCC and without altering the data within the fields. 



^^a^"™"-^^ 



ASCII 


Hexadecimal 


Character 


Code 





30 


1 


31 


2 


32 


3 


33 


4 


34 


5 


35 


6 


36 


7 


37 


8 


38 


9 


39 


: 


3A 


; 


3B 


< 


3C 


= 


3D 


> 


3E 


7 


3F 
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Table F-5. Hexadecimal Codes Used as N in the FCC Sequence 



ASCII 


Hexadecimal 


Field Characteristics 


Character 


Code 







30 


Any input allowed 


1 


31 


Alpha only allowed 


2 


32 


Numeric only allowed 


3 


33 


Protected (no entries and no changes allowed) 



o 



34 
35 
36 



Any input allowed, right-justified 
Alpha only allowed, right-justified 
Numeric only allowed, right-justified 



The following diagram illustrates a field control character sequence and the resulting 
output display of a numeric field to which this sequence is applied. Notice the IF 
preface control character is followed by a row and column positioning of the field at 6 
rows down (6C^^) and 30 columns across (7E^g) the screen. At this screen location, the 
next character, the operation value, (37, g. Table F-4) specifies a tab stop with blinking 
display. The last character (32,^, Table F-5) specifies numeric fields only allowed. 




6C 



7E 



37 



32 



FCC SEQUENCE L 



^NUMERIC ONLY 
"allowed (32) 

_TAB STOP 
BLINKING DISPLAY (37) 



NEXT FCC SEQUENCE 



COL 
ROW 
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Appendix G 

Difference between Extended COBOL and 

1974 American Standard COBOL 



G.l. Differences 



If you use the extended COBOL compiler, there are a number of differences in coding, 
compiUng, and linking your action programs. Table G-1 explains. 

Table G-1. Differences for Extended COBOL and 1974 COBOL Action Programs 



o 

v^ 



Extended COBOL 


1974 COBOL 


Mo reentrant code parameter supported 


Reentrant code parameter format is: 
// PARAM IHSCOD=REN 


Shared code parameter format is: 
// PARAM OUT=(M) 


Shared code parameter format is: 
// PARAM IHSCOD=YES 


Linkage editor INCLUDE statement: 
INCLUDE prog-id00 


Linkage editor INCLUDE statement: 
INCLUDE prog- id 


I/O function code format is: 

ENTER LINKAGE. 
CALL statement. 
ENTER COBOL. 


I/O function code format is: 
CALL statement. 


DICE code sequences expressed as 
DICE value multipunch equivalent. 
(See Figure G-3.) 


DICE code sequences expressed as 
DICE value hexadecimal equivalent. 


Restricted reserved words different 
from 1974 COBOL (See 2.3.) 


Restricted reserved words different 
from extended COBOL (See G.6.) 
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G.2. Shared Code Parameter 

Using the shared code parameter allows the extended or 1974 COBOL compilers to 
check the program for conformance to IMS syntax and to issue appropriate 
compilation diagnostics. If you use this option along with the configurator parameters, 
TYPE and SHRDSIZE, programs are allowed to run as shared under multithread 
IMS. 

For shared code parameter formats for extended and 1974 COBOL, see Table G-1. 
Section 11 provides more details about compiling sharable and nonsharable action 
COBOL programs. 

G.3. Reentrant Code Parameter 

Reentrant action programs are only supported under 1974 COBOL. Specify the 
TYPE=RNT parameter in your IMS configuration, and compile the program with the 
IMSCOD=REN parameter to run reentrant COBOL action programs. Increase the 
work area size designation in your IMS configuration to include the compiler's object 
program reentrancy control area size. The 1974 COBOL compiler checks the program 
for conformance to IMS syntax and generates a reentrant object module. 

G.4. Object Module Name in Linkage Editor Control Stream 

When the extended COBOL compiler compiles your action program, it appends the 
first six characters of your program-id with zeros. Thus, when naming the object 
modules on your linkage editor INCLUDE statement, you must append the two zeros. 

The 1974 COBOL object module name is composed of the first six characters of the 
program-id. Thus, the object name on the INCLUDE statement should be the same. 

G.5. ENTER Statements 

When you use the extended COBOL compiler, each I/O function call you issue from 
your action program must be preceded by an ENTER LINKAGE statement and 
followed by an ENTER COBOL statement. For example, if you issued a CALL 'GET' 
function, you must use the following coding format: 

ENTER LINKAGE. 

CALL 'GET' USING filename record-area key. 

ENTER COBOL. 






C 
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O 



For compiling action programs with the 1974 COBOL compiler, only the I/O function 
call is needed. The ENTER statements are accepted by the compiler but cause 
warning diagnostics. 



Figure G-2 illustrates the extended COBOL coding required for the DISP action 
program. In addition, Figure G-3 illustrates the multipunch DICE code equivalents 
that DISP copies from the IMS COPY library (Figure G-2, line 12). 

You initiate the DISP action program by entering the transaction code, DISP (in this 
case the same name as the program), and the 5-digit numeric key of the record 
desired. Figure G-1 shows the input message and corresponding output display. 



INPUT 


DISP 01234 






OUTPUT 


CODE CUSTOMER NAME 


ADDRESS CITY-STATE 


ZIP 




01234 JOHN DOE 


1212 JACKSON PHILA.,PA 


19101 




BALANCE -DUE PAYMENT -DUE 


YR- TO -DATE VOL 






358.22 50.00 


1,065.38 





Figure G-1. Sample Transaction Displaying Customer Record 

DISP retrieves a record from the customer file (CUSTFIL) and displays it at the 
terminal (Figure G-2, line 75). In case of an invalid record key in the input message, or 
any error condition detected by IMS, the program moves an error message to the 
output message area and terminates the transaction (lines 77 and 86-95). 

Note that DISP uses DICE, previously coded and filed in a copy library (Figure G-3) 
for homing the cursor, clearing the screen, and repositioning the cursor to a new line 
(lines 70-72). 
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00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 

00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00035 
00036 
00037 
00038 
00039 
00040 



c> 



IDENTIFICATION DIVISION. 

PROGRAM- ID. DISP. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE -COMPUTER. UN I SYS -9030. 

OBJECT -COMPUTER. UNISYS-9030. 

DATA DIVISION. 

WORKING -STORAGE SECTION. 

77 CUSTFIL PIC X(7) VALUE 'CUSTFIL'. 

77 TEXT-1 PIC X(32) VALUE 'PROCESSING ERROR. STATUS CODE 

77 TEXT-2 PIC X(23) VALUE 'DETAILED STATUS CODE = '. 

01 DICE COPY DICE. 

01 CUSHDR1. 

PIC A(6) VALUE ' CODE '. 

PIC A(20) VALUE 'CUSTOMER NAME '. 

PIC A(15) VALUE 'ADDRESS '. 

PIC A(15) VALUE 'CITY-STATE '. 

PIC A(5) VALUE 'ZIP '. 



02 
02 
02 
02 
02 



01 



PIC A(15) VALUE ' BALANCE-DUE '. 
PIC A(15) VALUE ' PAYMENT-DUE '. 
PIC A(15) VALUE ' YR-TO-DATE VOL'. 



CUSHD1 

CUSHD2 

CUSHD3 

CUSHD4 

CUSHD5 
CUSHDR2. 
02 CUSHD6 
02 CUSHD7 
02 CUSHD8 
LINKAGE SECTION. 

01 PROGRAM- INFORMATION-BLOCK. COPY PIB 
INPUT -MESSAGE -AREA. COPY IMA. 
02 TRANSAC-CDE PIC X<4). 
02 FILLER PIC X. 
02 REC-KEY PIC X(5). 
02 REC-NO REDEFINES REC-KEY 
WORK-AREA. 
02 



01 



PIC 9(5). 



01 



02 



CUS-REC. 






03 CDE 


PIC X(5). 




03 NAME 


PIC X(20). 




03 ADDR 


PIC X(15). 




03 CTY-STE 


PIC X(15). 




03 ZIP 


PIC 9(5). 




03 BLNCE-DUE 


PIC S9(9)V99 


COMP-3. 


03 DUE- IN 


PIC S9(9)V99 


COMP-3. 


03 YTD-VOL 


PIC 9(6)V99. 




ERROR -MSGE. 






03 TXT-1 


PIC X(32). 








Figure G-2. Sample Extended COBOL Action Program DISP (Part 1 of 2) 
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00041 


03 STAT 


PIC 9(4). 


00042 


03 TXT -2 


PIC X(23). 


00043 


03 DSTAT 


PIC 9(4). 


00044 


01 OUTPUT -MESSAGE - 


UREA COPY OMA. 


00045 


02 LINE-0 


PIC X(4). 


00046 


02 LINE-1 


PIC X(64). 


00047 


02 CR-1 


PIC X(4). 


00048 


02 LINE-2. 


- 


00049 


03 CDE 


PIC X(5). 


00050 


03 FILLER 


PIC X. 


00051 


03 NAME 


PIC X(20). 


00052 


03 ADDR 


PIC X(15). 


00053 


03 CTY-STE 


PIC X(15). 


00054 


03 ZIP 


PIC X(5). 


00055 


02 CR-2 


PIC X(4). 


00056 


02 LINE-3 


PIC X(45). 


00057 


02 CR-3 


PIC X(4). 


00058 


02 LINE-4. 




00059 


03 FILLER 


PIC X. 


00060 


03 OUT-BAL 


PIC ZZZ,ZZZ,ZZ9.99 


00061 


03 FILLER 


PIC X(5). 


00062 


03 OUT -DUE 


PIC ZZZ,777,ZZZ.99. 


00063 


03 FILLER 


PIC X(5). 


00064 


03 OUT -VOL 


PIC ZZZ,ZZZ.99. 


00065 


02 CR-4 


PIC X(4). 


00066 


02 LINE-13 


PIC X(4). 


00067 


PROCEDURE DIVISION 


JSING PROGRAM- INFORMATION-BLOCK 


00068 


INPUT-MESSAGE- 


UREA WORK-AREA OUTPUT-MESSAGE-AREA. 


00069 


STRT-CDE-SECT. 




00070 


MOVE CURS -COORD 


TO LINE-0. 


00071 


MOVE CURS-HME TO LINE-13. | 


00072 


MOVE CR TO CR-1 


, CR-2, CR-3, CR-4. 


00073 


CUSTOMER-FILE- SECT. 




00074 


ENTER LINKAGE. 




00075 


CALL 'GET' USING CUSTFIL CUS-REC REC-KEY. | 


00076 


ENTER COBOL. 




00077 


IF STATUS- CODE 


IS NOT = GO TO PROCESS -ERROR. 


00078 


MOVE CUSHDR1 TO 


LINE-1. 


00079 


MOVE CORR CUS-REC TO LINE-2. | 


00080 


MOVE CUSHDR2 TO 


LINE-3. 


00081 


HOVE BLNCE-DUE 


TO OUT-BAL. 


00082 


MOVE DUE- IN TO 


DUT-DUE. 


00083 


MOVE YTD-VOL TO 


OUT -VOL. 


00084 


GO TO NORMAL -TERM. | 


00085 


PROCESS-ERROR. 




00086 


MOVE TEXT-1 TO 


rXT-1. 


00087 


MOVE STATUS -CODE TO STAT. | 


00088 


MOVE TEXT -2 TO 


rXT-2. 


00089 


MOVE DETAILED -STATUS -CODE TO DSTAT. | 


00090 


MOVE ERROR -MSGE 


TO LINE-1. 


00091 


MOVE REC-KEY TO ADDR OF LINE-2. | 


00092 


NORMAL -TERM. 




00093 


ENTER LINKAGE. 




00094 


CALL 'RETURN'. 




00095 


ENTER COBOL. 





Figure G-2. Sample Extended COBOL Action Program DISP (Part 2 of 2) 
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00001 


01 


DICE COPY DICE. 


00002 


* 


DICE SPECIAL CHARACTERS FOR PROGRAM DISP. 


00003 


* 




00004 


* 


FORMS CONTROL & CLEAR. CURSOR TO ROW Y. COLUMN X. AND CLEAR 


00005 


* 


SCREEN. X' 100030201' 


00006 


* 


MULTIPUNCHES 12-11-9-8-1. 12-9-3. 12-9-2. 12-9-1. 


00007 


* 




00008 




02 CURS -COORD. 


00009 




03 DICE-1 PIC X(2) VALUE ' '. 


00010 




03 R0W-Y1 PIC X(1) VALUE ' '. 


00011 




03 C0L-X1 PIC X(1) VALUE ' '. 


00012 


■k 




00013 




POSITION CONTROL NEW LINE.X' 10040000' . 


00014 


* 


MULTIPUNCHES 12-11-9-8-1. 12-9-4. 12-0-9-8-1. 12-0-9-8-1. 


00015 


* 




00016 


77 


CR PIC X(4) VALUE ' '. 


00017 


* 




00018 


* 


SET COORD-CURSOR TO HOME. X' 10010000'. 


00019 


* 


MULTIPUNCHES 12-11-9-8-1. 12-9-8-1. 12-0-9-8-1. 12-0-9-8-1. 


00020 


* 




00021 


77 


CURS-HME PIC X(4) VALUE ■ '. 


00022 


* 




00023 


•k 


POSITION CONTROL & CLEAR. CLEAR TO END OF LINE & NEW LINE. 


00024 


* 


X '10050000'. 


00025 


* 


MULTIPUNCHES 12-11-9-8-1. 12-9-5. 12-0-9-8-1. 12-0-9-8-1. 


00026 


* 




00027 


77 


CLR-LINE PIC X(4) VALUE ' '. 


00028 


•k 




00029 


* 


APPENDING CODE FOR UNISCOPE-100 COP. X'12'. 


00030 


•k 


MULTIPUNCH 11-9-2. 


00031 


* 




00032 


77 


DC PIC X(1) VALUE ' '. 


00033 


* 




00034 


* 


START OF ENTRY CHARACTER SOE. X'lE'. 


00035 


* 


MULTIPUNCH 11-9-8-6. 


00036 


* 




00037 


77 


SOE PIC X(1) VALUE ' '. 



Figure G-3. Example of DICE Sequences Filed in a COPY Library 
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G.6. DICE Codes 



When you compile an action program with the extended COBOL compiler, you must 
express DICE sequences using the multipunch equivalents of the DICE values. Figure 
G-3 shows an example of the statement describing multipunch DICE values used in 
the DISP action program (Figure G-2, line 12). The comments in this copy library 
module explain the hexadecimal values equivalent to the blank multipunch values. 

The 1974 COBOL compiler permits you to use the hexadecimal DICE values directly 
in the action program. The following examples illustrate three possible applications of 
hexadecimal DICE values that conform to 1974 standards. 



01 DICE 

03 FIELD-1 PIC X. 

03 FIELD-2 PIC X. 

03 FIELD-3 PIC X. 

03 FIELD-4 PIC X. 
HOVE ='10' TO FIELD-1. 
MOVE ='03' TO FIELD-2. 
MOVE ='01' TO FIELD-3. 
MOVE ='01' TO FIELD-4. 






03 DICE PIC X(4). 

MOVE ='10030101' TO DICE. 



n DICE PIC X(4) VALUE ='10030101' 



For more detail about DICE code sequences, their interpretation, and use, see 
Appendix F. 
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G.7. Extended COBOL Language Restrictions 

Some COBOL verbs, clauses, and sections are illegal in extended COBOL action 
programs. If you compile them with the shared code parameter, PARAM OUT=(M), 
the compiler locates and deletes them from your program. (See Section 11.) 

The following reserved words are illegal in extended COBOL action programs: 



C'> 



ALTER 

CLOSE 

DECLARATIVE SECTION 

ENTRY 

EXHIBIT 

EXIT-PROGRAM 

FILE SECTION 

INPUT-OUTPUT SECTION 

INSERT 

OPEN 

READ 

READY TRACE 

RELEASE 

RESET TRACE 

RETURN 



REWRITE 

SEEK 

SEGMENT-LIMIT 

SORT 

STOP 

SYSCHAN-t 

SYSCONSOLE 

SYSERR[-m] 

SYSIN 

SYSIN-96 

SYSIN-128 

SYSLOG 

SYSLST 

WRITE 



Other COBOL verbs must not have working-storage items as receiving operands. 
These verbs are: 



\^,^ 



ADD 

COMPUTE 

DIVIDE 

EXAMINE (replacing option) 

MOVE 

MULTIPLY 



PERFORM (varying option) 

SEARCH (varying option) 

SET 

SUBTRACT 

TRANSFORM 



If you compile your action program with the shared code parameter, the compiler flags 
the erroneous statement and issues a precautionary diagnostic. 



X—^' 



G-8 



UP-9207 Rev. 2 



c^ 



Appendix H 

Listing IIVIS DSECTs 



To assemble and produce a listing of the DSECTs for your current system, you use the 
job control statements and the data stream in Figure H-1. 



o 



// JOB IHSOSECT,,., , .IPtE) 

// QGBL NUHLST=I 

// OVC ?0 // SPL ,2X32, CNUKLST,,2621im,,, ,32000 // LFO PRNTR 

// OVC »ES // LBL »Y$M*C // LFD ♦PROC 

// WORK! 

// W0RK2 

// EXEC ASH 

// PARAH OUT^INI 

// PARAH LINrPROC 

/« 

♦ aC0L7J:S0 ON 11:12 SEO •IMSOOIOO' By 100 

♦ aCCL73:80 CH ALL TO *• 

TITLE 'OS/J - IHS DSECTS / EOUATLS 
* 

IWSOSECT START 
« 

PRINT ON, GEN, DATA 

USING *,1S 

EJECT 



2HII0ACT 

ZMUCFCTI 

7MIDFCT 

ZntOIHH 

2M9D0MH 

ZHODPCT 

ZHfOPIB 

ZK»DSIE 

ZMfCTCT 

Zn tOTHCB 

ZH^OTIDT 

END 



EJECT 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 



/e 



Figure H-1. JCL and Data Stream to List IIVIS DSECTs 
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Abnormal termination 

after SEND function, 6-24 

how IMS handles, 3-19 

involuntary, 3-20 

remote transaction, 9-14 

snap dumps, 12-3 

voluntary, 3-20 

(See also Terminator.) 
Abnormal termination indicator 

description, 3-19 

display error codes at terminal, 3-20 

error message formats, 3-19 

resulting operations, (table) 3-21 

successor-id, 3-20 

voluntary termination, 3-20 
Absolute position, DICE sequence, F-6 
Access methods, 5-1, (table) 5-1 
Action 

definition, 1-2 

identification (date/time stamp), 4-10 

updating files, 5-60 
Action program 

closing files, 10-26 

opening files, 10-26 

structure, 10-27 
Action program load area 

in termination snap dump, 12-2 

to find error causes, (figure) 12-2 
Action program routing 

ACTIVATE function call, 9-10 

description, 9-3 

program-initiated transaction, 9-7 
Action programs 

activation record, 1-9 

CALL functions, 1-11 

calling subprograms, 8-1,8-2 



compile streams, 11-2 

definition, 1-2 

delivery notice scheduling, B-52 

efficient coding, 1-8 

ending, CALL 'RETURN', 2-4 

fast load use, 11-10 

interface with IMS, 1-9 

interface with subprograms, 8-2 

languages used, 1-1 

link streams, 11-8 

online recompilation, 11-11 

recovery. Section 12 

routine for DDP, 9-5 

scheduling, 2-10 

snap dumps, 12-1 

storing in load library, 11-10 

succession, 1-6, 3-17 
ACTIVATE function call 

BAL format, 9-11 

COBOL format, 9-11 

description, 9-10 

errors, unsuccessful remote transaction, 
9-14 

multiple ACTIVATE calls, (figure) 9-11 
Activation record 

allocation, 2-10 

contents, 1-9, (figure) 1-10 

structure, 2-8 
ALTER statements, 11-11 
j^Mjproc, in job stream, (figure) 11-6 
Assembling action programs, 11-2 
Audit file 

before-images saved, 3-23 

online recovery, 3-23 

prefix area contents, (table) 12-53 

prefix area format, (figure) 12-53 

rolling back updates, 3-22 

unrecoverable errors, 12-52 
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AUX-DEVICE-NO field, OMA 

AUX operand, network definition, 6-17 
continuous output, 6-28 
description and use, 6-17 
displaying screen format, 7-24 

AUX-FUNCTION field, OMA 
byte setting, (table) 6-29 
continuous output, 6-32 
description, 6-16 
displaying screen format, 7-24 
downline load program, 10-1 
line disconnect, 10-13 
output to auxiliary device, 6-16, (figure) 
6-17 

AUXILIARY-DEVICE-ID field, IMA 
auxiliary device number, 4-14 
example of use, BAL, (figure) 4-15 
example of use, COBOL, (figure) 4-14 
function, 4-14 

AUXILIARY-DEVICE-ID field, OMA, 6-16 

Auxiliary devices 

identification field in IMA, 4-14 
identification field in OMA, 6-16 
input options, continuous output, 6-43 
print transfer options, continuous 

output, 6-30 
print/transfer options, screen 

formatting, (table) 7-5 
receiving formatted messages, 7-24 
supported for continuous output, 6-28 
supported for screen formatting, 7-24 



interface areas, describing, (figure) 2-8 

interface areas, DSECT names, 2-12 

interface with IMS, (figure) 2-12 

link editing, 11-7 

structure, 2-8 

(See also BAL action program 
examples.) 
Basic assembly language (BAL) 

(See BAL action programs; BAL action 
program examples.) 
Before-images, 3-23 
Breakpointing printer files, 5-56 
BRKPT example, B-61 
Buffer, output 

defining for screen format, 7-6 

moving length to TEXT-LENGTH field, 
7-8 

parameter, BUILD function, 7-8 

parameter, REBUILD function, 7-20 

parameter, SEND function, 6-19 
BUILD function 

BAL format, 7-8 

COBOL formats, 7-8 

error returns, 7-13 

example of use, BAL, (figure) 7-11 

example of use, COBOL, (figure) 7-9 

issuing, 7-6 

restrictions, 7-7 



o 






B 



Backward-one-block option, 
cassette/diskette, 6-45 
BAL action program examples 

dialog transaction, delayed succession, 

C-16, (figure) C-19 
simple transaction, C-1, (figure) C-3 
successive simple transactions, C-4, 
(figure) C-6 
BAL action programs 
assembling, 11-2 
calling subprograms, 8-3 
characteristics, 2-9 



CALL function 
description, 1-11 
macroinstruction in BAL, 2-8 
replacing verbs in COBOL, (figure) 2-4 
(See also Function calls.) 

Cassette auxiliary device 

continuous output use, 6-43 
displajdng screen format, 7-24 

Closing files 

from an action program, 10-26 

using OPEN function call, BAL format, 

10-26 
using OPEN function call, COBOL 
format, 10-26 
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COBOL action program examples 
continuous output, (figure) B-53 
dialog transactions, external succession, 

(figure) B-30 
output-for-input queueing, (figure) B-48 
screen formatted messages, (figure) 

B-35 
simple transactions, (figures) B-12 to 

B-25 
COBOL action programs 
calling subprograms, 8-3 
compared to standard COBOL 

programs, 2-4 
compiling, 11-2 
COPY library, 2-11 
differences between extended COBOL 

and 1974 COBOL, Appendix G 
interface areas, describing, (figure) 2-3 
interface with IMS, (figure) 2-11 
link editing, 11-7 
linkage section, 2-2 
restrictions, 2-6 

sharable and nonsharable code, 11-3 
structure, 2-1 
volatile data area, 11-3 
COBOL jproc, use in job streams, (figure) 

11-4, (figure) 11-5 
COBOL, 1974 American National 

Standard, differences between 

extended COBOL, Appendix G 
Coding rules 

BAL action programs, 2-8 
COBOL action programs, 2-1 
COBOL language restrictions, 2-6 
edit table generator, E-1 
extended COBOL, Appendix G 
statements and parameters. Appendix 

A 
Column number, FCC sequence 
coordinate values, (figure) F-19 
description, F-18 
Common storage area files, 5-60 
Communications output printer (COP), 

6-16 
Compiling action programs 

BAL action program with jproc, (figure) 

11-6 
BAL action program without jproc, 

(figure) 11-7 



compile/link stream with jprocs, (figure) 

11-10 
compile/link stream without jprocs, 

(figure) 11-9 
extended COBOL action program with 

jproc, (figure) 11-5 
extended COBOL action program 

without jproc, (figure) 11-6 
1974 COBOL action program with jproc, 

(figure) 11-4 
1974 COBOL action program without 

jproc, (figure) 11-5 
Configuration specifications 

sample IMS configuration, C-71, 

(figure) C-71 
TERMINAL section and TERM 

parameter, 6-11 
Console, sending messages, 6-51 
Continuity data area 

building output message, 6-25 
CONTINUITY-DATA-AREA-INC field, 

3-39 
CONTINUITY-DATA-INPUT-LENGTH 

field, 3-34 
CONTINUITY-DATA-OUTPUT- 
LENGTH field, 3-34 
continuous output use, 6-32 
finding error causes in dump, 12-33 
IMS use, 2-10 
CONTINUITY-DATA-AREA-INC field, 

PIB, 3-34, (figure) 3-35 
CONTINUITY-DATA-INPUT-LENGTH 

field, PIB, 3-32 
CONTINUITY-DATA-OUTPUT-LENGTH 

field, PIB, 3-32 
Continuous output 

AUX-FUNCTION byte setting, OMA, 

(table) 6-29 
backward-one-block option, 6-45 
COBOL example, B-52, (figure) B-53 
continuing via succession, 6-33 
delivery notice status codes, (table) 

6-36, (table) 6-37 
devices receiving continuous output, 

6-28 
handling delivery notice code, 6-46 
identifying code, 6-45 
IMS delivery notice code, 6-35 
message and screen size, 6-33 
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output-only screen format, 7-3 
print form, 6-31 
print mode, 6-31 
print-transparent mode, 6-30 
read option, 6-43 
read transparent option, 6-43 
receiving continuous output code, B-60 
recovery after unsuccessful delivery 

status, 6-36 
reinitiating continuous output message, 

6-38 
report address option, 6-44 
search-and-position option, (table) 6-45, 

6-45 
search-and-read option, 6-43 
search-and-read-transparent option, 

6-44 
search option, (table) 6-44 
setting control page for screen bypass, 

6-46 
to a terminal, 6-30 
to an auxiliary device, 6-30 
to cassette, 6-30,6-43 
to diskette, 6-43 
transfer all, 6-31 
transfer changed, 6-31 
transfer variable, 6-31 
use and configuration, 6-28 
use of AUX-DEVICE-NO indicator, 6-32 
use of AUX-FUNCTION indicator, 6-32 
use of code, 6-35 
CONTINUOUS-OUTPUT-CODE field, 

OMA 
continuous output code setting, 6-35 
description, 6-14 
example, receiving continuous output 

code, B-60 
Control-character-area parameter, 5-53 
Control stream examples 

assembling BAL action program, 

(figure) 11-6, (figure) 11-7 
compiling and linking with jprocs, 

(figure) 11-9 
compiling and linking without jprocs, 

(figure) 11-9 
compiling extended COBOL action 

program, (figure) 11-5, (figure) 11-6 
compiling 74 COBOL action program, 

(figure) 11-4, (figure) 11-5 



edit table execution, (figure) E-9 
link edit stream using LINK jproc, 

(figure) 11-8 
online compile and link stream, (figure) 

11-11 
standard link edit stream, (figure) 11-8 

COP, 6-16 

COPY library 

COBOL names, 2-12 
COPY statement, 1-11 
extended COBOL names, 2-11 
interface area format headers, 1-11 

COPY statement 

copying IMA format, 4-4, (figure) 4-5 
copying OMA format, 6-4, (figure) 6-5 
copying PIB format, 3-2 
use, 2-11 

Cursor, movement and control, F-5, (table) 
F-9 



c 



DAM files 

accessing, 5-24 
Preformatting, 5-24 
unlocking files, 5-51 
work and record area considerations, 
5-59 
DATA-DEF-REC-NAME field, PIB 
description and use, 3-30 
pass name to successor, (figure) 3-31, 
(figure) 3-32 
Data files (See Files.) 
DATE-TIME-STAMP field, IMA 
description and use, 4-10 
testing input message sequence, (figure) 
4-11 
DDP-MODE field, PIB 

distributed data processing, 9-5 
IMS values returned in PIB, 3-36 
tested after remote transaction, 9-13 
Debugging action programs (See Snap 

dumps.) 
DEFINED-FILE-NAME FIELD, PIB 
description and use, 3-30 
pass name to successor, (figure) 3-31, 

(figure) 3-32 
successive action, access source file, 
3-31, (figure) 3-33 
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Defined files 

accessing, 5-37 

function call formats, 5-38 

identifiers, 5-38 

PIB fields, 3-30 

random I/O functions, 5-46 

record t3rpes, 5-40 

sequential I/O functions, 5-48 

status bjd* returns, 5-44, (table) 5-45 
Defined record area, 2-11 
Delayed internal succession 

advantages, 3-18 

description, 3-18 

examples of use, (figure) 3-19 

output-only screen, 7-4 

resulting IMS operations, (table) 3-21 

termination indicator, 3-18 

transaction structure, 1-7 
DELETE function call 

defined files, 5-47 

indexed files, 5-13 

relative files, 5-24 
DELIVERED-RECORD-TYPE field (See 

RECORD-TYPE field.) 
Delivery notice code 

evaluation when TRANSLAT 
configured, 6-41 

example of delivery notice scheduling, 
B-52 

purpose and use, 6-35 

recover continuous output messages, 
6-38 

status codes, (table) 6-36 

testing in BAL action program, 6-41, 
(figure) 6-47 

testing in COBOL action program, 6-39, 
(figure) 6-42 
Destination terminal 

description and use, 6-11 

identifying screen format, 7-6 

output f or-input queueing, 6-48 

sending messages to, 6-19 
DESTINATION-TERMINAL-ID field, 
OMA 

description and use, 6-11 

found in snap dump, 12-40 



DETAILED-STATUS-CODE field, PIB 
codes for all function calls, (tables) D-3 

to D-12 
internal message control, 3-11 
invalid request error, 3-10 
I/O error, 3-10 

screen formatting errors, 3-11 
transaction buff er, 10-22 
values from main to subprogram, 8-3 
Detailed status codes 
BUILD, 7-13 
GETLOAD, 10-11 
GETMEM, 10-24 
internal message control errors, (table) 

D-10 
invalid key errors, (table) D-4 
invalid request errors, (table) D-5 
I/O errors, (table) D-9 
REBUILD, 7-23 
RELMEM, 10-23 

screen formatting errors, (table) D-7 
SEND, (table) 6-23 
SETLOAD, 10-10 
Device independent control expressions 

(DICE) 
absolute and relative positions, F-6 
aux-devices supporting, (table) F-14 
description. Appendix F 
devices supporting, F-14, (table) F-14 
example of receiving DICE sequence, 

(figure) 4-1 7 
format of sequence, F-5 
formatted output message example, 

(figure) F-16 
formatting input messages, F-3 
formatting output messages, F-1 
function code interpretation, (table) F-9 
functions performed, F-2 
in output messages, 6-4 
input/output code conversion, F-6 
interpretation of DICE sequences, F-1 3 
I/O commands, (table) F-9 
macroinstruction format, F-7 
macroinstructions, F-6 
message positioning on screen, F-5 
multipunch hexadecimal equivalents, 

coding, G-7 
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network definition, F-3 

sample filled sequences in COPY 

library, (figure) G-6 
stripping DICE, F-3 
use with input messages, 4-16 

DICE (See Device independent control 
expressions.) 

Direct access method (DAM) (See DAM 
files.) 

Directory routing, description, 9-3 

Diskette auxiliary device 
continuous output use, 6-43 
displaying screen format, 7-24 

Display constants 

example, (figure) 7-3 

screen formatted output messages, 7-3 

Distributed data processing 
action program routing, 9-3 
action program succession, 9-6 
ACTIVATE function call, 9-10 
DDP-MODE field in FIB, 3-36 
directory routing, 9-3 
error returns after CALL ACTIVATE, 

9-14 
initiating a remote transaction, 9-10 
operator-initiated transaction, 9-6 
operator routing, 9-3 
output to aux-device restriction, 9-6 
processing remote transaction, 9-5 
program-initiated transaction, 9-7 
receiving screen formatted input, 7-27 
requirements for use, 9-1 
routing to remote IMS, 9-10 
screen formatting, 7-26 
termination types allowed, 9-8 
terminology, 9-1 
use of screen formats, 7-26 

DLOAD transaction code, 10-2 

Downline load 

configuration option, 10-1 

DLOAD transaction code, 10-2 

error byte description for rejected load, 

(table) 10-9 
GETLOAD function call, 10-11 
how to write user programs, 10-1 
sample program, (figure) 10-4 
SETLOAD function call, 10-10 
UTS programs, storing, 11-10 
UTS 40/UTS 400 programs, 10-1 



DSECT 

multithread control block, (figure) 12-13 
multithread terminal control table, 

(figure) 12-15 
single-thread control block, (figure) 12-9 
single-thread terminal control table, 

(figure) 12-20 
TCS DSECT labels, (table) 6-36 
TM DSECT labels, (table) 6-38 
ZA#DPIB, 3-4 
ZA#IMH, 4-7 
ZA#OMH, 6-8, (figure) 6-6 
ZC#DTCT, (figure) 12-20 

Dump analysis (See Snap dumps.) 

Duplicate-key-count, parameter on function 
call, 5-4 

Dynamic allocation, I/O areas, 5-58 

Dynamic main storage 

output buff er length, 7-19 
requested for screen formats, 7-6 



c 



EDIT parameter, configuration, 4-3 
Edit table generator 

coding rules for input, E-1 

diagnostic messages, (table) E-11 

duplicate edit table name, E-9 

entering input fields for editing, E-1 3 

error processing, E-10 

errors, E-9 

example action program, (figure) E-1 9 

example edit table and use, E-14 

execution, E-9 

parameters, E-5 

positional and keyword fields, E-6 

purpose and use, E-1 
Edited headers 

CALL SNAP dump, 12-6, (figure) 12-6 

termination snap dump, (figure) 12-2 
Edited snap dump, 12-1 
ENTER statement, G-2 
ERET parameter, configuration, 3-9 
Error codes 

BUILD fimction, 7-13 

data management, 3-11 

DETAILED-STATUS-CODE field, 3-10 

detailed-status-codes, 3-10 
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displaying at terminal or console, 3-13 
error termination code testing, (figure) 

3-14 
input validation, screen formatting, 

7-18 
output validation, screen formatting, 

7-13 
REBUILD function, 7-23 
SEND function, (table) 6-23 
SETL function, 5-21 
STATUS-CODE field, 3-7 
Error returns 

AUDCONF/AUDFILE errors, 12-52 
COBOL action programs, 12-57, (tables) 

12-57 
COBOL, 1974 error message, (table) 12- 

57 
data file I/O errors, 12-52 
detailed status codes, (tables) D-3 to 

D-12 
distributed data processing, 9-14 
extended COBOL error message, (table) 

12-57 
output to console, 6-52 
status codes, (table) D-2 
UPSI byte, edit table generation, E-9 
ESETL function call 
defined files, 5-50 
indexed files, 5-23 
relative files, 5-34 
ETAB parameter, edit table input, E-5 
Example programs, BAL 
dialog transactions, C-15 
screen formatting, (figure) 7-11 
simple transaction, C-1 
successive transactions, C-4 
Example programs, COBOL 

calling a subprogram, (figure) 8-6 

continuous output, B-52 

dialog tremsactions, B-27 

edit table generated, (figure) E-19 

extended COBOL, (figure) G-4 

output-f or-input queueing, B-47 

screen formatted messages, B-24 

simple transactions, B-2 

snap dump generated, (figure) 12-28 

subprogram, (figure) 8-8 



Extended COBOL differences. Appendix G 
External succession 

continuous output use, 6-33 

description, 3-15 

example of use, (figure) 3-16 

resulting IMS operations, (table) 3-21 

termination indicator, 3-15 

transaction structure, 1-3 



Fast load feature 

fast load file, 11-10 

separate action program library, 11-10 

use, 11-10 
FCC (See Field control characters.) 
Field control characters 

example of use, F-18 

format, F-18 

hexadecimal codes, M coordinate, 
(table) F-16 

hexadecimal codes, N coordinate, 
(figure) F-19 

row and column values, (figure) F-19 
FIL parameter, edit table input, E-8 
File allocation map, interpretation and use, 

12-35 
Filename 

parameter on defined file function call, 
5-38 

parameter on function call, 5-4 
Files 

accessing defined files, 5-37 

accessing indexed files, 5-7 

accessing relative files, 5-24 

accessing sequential files, 5-35 

closing and reopening, 5-58 

common storage area, 5-60 

dynamic allocation of I/O areas, 5-58 

function calls, 5-3 

identifying to IMS, 5-58 

IMS supported, (table) 5-1 

I/O function call summary, (table) 5-2 

logical deletion, 5-28 

open/close, 5-58 

physical deletion, 5-27 
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Preformatting DAM files, 5-24, 5-32 

shared access, 5-17 

test mode effects on I/O, 5-59 

(See also Defined files; Indexed files; I/O 
function calls; Relative files; 
Sequential files.) 
Footnotes, printing, 5-54 
Forms overflow, 5-54 
Function calls 

ACTIVATE, 9-11 

BRKPT, printer files, 5-54 

BUILD, 7-8 

DELETE, defined files, 5-47 

DELETE, indexed files, 5-13 

DELETE, relative files, 5-28 

detailed status codes, (table) D-3 

determining last successful issued, 
12-42, (table) 12-43 

ESETL, defined files, 5-50 

ESETL, indexed files, 5-23 

ESETL, relative files, 5-34 

GETLOAD, 10-11 

GETMEM, 10-18 

GETUP, defined files, 5-46 

GETUP, indexed files, 5-11 

GETUP relative files, 5-26 

hexadecimal equivalents, 12-43 

INSERT, defined files, 5-47 

INSERT, indexed files, 5-15 

INSERT, relative files, 5-30 

obtaining completion status, 3-9 

PRINT, printer files, 5-53 

PUT, defined files, 5-47 

PUT, indexed files, 5-12 

PUT, relative files, 5-26 

PUT, sequential files, 5-36 

random GET, defined files, 5-39 

random GET, indexed files, 5-8 

random GET, relative files, 5-25 

REBUILD, 7-20 

RELMEM, 10-18 

RETURN, BAL, 2-9 

RETURN, COBOL, 2-3 

RETURN, subprograms, 8-3, 8-5 

returns from, 3-9 

RUN, 10-14 

SEND, 6-19 

sequential GET, defined files, 5-48 
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sequential GET, indexed files, 5-22 
sequential GET, relative files, 5-33 
sequential GET, sequential files, 5-35 
SETK, indexed files, 5-17 
SETL, defined files, 5-48 
SETL, indexed files, 5-22 
SETL, relative files, 5-32 
SETLOAD, 10-10 
SNAP, 12-7 

status codes, (table) D-2 
SUBPROG, BAL, 8-3 
SUBPROG, COBOL, 8-3 
successful delivery, 5-52 
UNLOCK, 5-59 
UNLOCK, printer files, 5-63 
Fvmction code, DICE sequence, F-5 



GET function call 

errors, sequential GET, 5-26, 5-39 
random for defined files, 5-54 
random for indexed files, 5-9 
random for relative files, 5-29 
sequential files, 5-42 
sequential for defined files, 5-56 
sequential for indexed files, 5-26 
sequential for relative files, 5-39 
status codes returned, (table) D-2 

GETLOAD function call 

COBOL and BAL formats, 10-11 
error-bj^e definition for rejected load, 

(table) 10-9 
receiving control after error, 10-7 
status/detailed status codes, 10-12 
successful/unsuccessful message header, 

10-7 
transfer record, 10-7 

GETMEM function call 

providing transaction buffer interface, 

10-20 to 10-23 
status codes, 10-24 

GETUP function call 
defined files, 5-54 
indexed files, 5-12 
relative files, 5-30 
status codes returned, (table) D-2 
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HANGUP action program, 10-13 
Headers, page, 5-62 
Hold record locks (H indicator), 3-24, 
(figure) 3-26, (table) 3-21 



I 



ICAM 

clearing queues, 6-25 

continuous output requirements, 6-29 

DDP requirements, 9-1 

interface during continuous output, 
6-35 

labels equated to delivery notice code, 
6-37 

SEND function considerations, 6-20 

TCS DSECT, 6-41 

terminal name, 6-11 
IMA (See Input message area.) 
Immediate internal succession 

description, 3-15 

example of use, (figure) 3-17 

files allocated to first program, 3-18 

resulting IMS operations, (table) 3-21 

successor programs, 3-17 

termination indicator, 3-19 

transaction structure, 1-3 
IMS 

local, 9-2 

primary, 9-2 

remote, 9-2 

secondary, 9-2 

terms, 1-2 
Indexed files 

accessing, 3-7 

changing access modes, 5-17 

random I/O functions, 5-7 

sequential I/O functions, 5-17 

shared file access, 5-18 
Indexed sequential access method 

(See ISAM files.) 
Initiating terminal 

displaying screen format, 7-26 

sending output message to, 6-18 



Input message 

delivery notice code, 6-35 

INSIZE parameter, 4-2 

obtaining text length, 4-12 

receiving control sequences, 4-19 

receiving DICE sequences, 4-17 

receiving from previous program, 4-1 

receiving screen formatted input, 4-19 

response from remote transaction, 9-13 

status bytes, screen formats, 7-18 

use of field control characters, 4-16 

using edit table generator, 4-18, 
Appendix E 
Input message area (IMA) 

automatic space allocation, 4-3 

AUXILIARY-DEVICE-ID field, 4-14 

BAL control header format, 4-6, (figure) 
4-6 

COBOL control header format, 4-4, 
(figure) 4-4 

configuring size, 4-2 

contents, 4-7 

DATE-TIME-STAMP field, 4-10 

description, 4-1 

errors returned after unsuccessful 
remote transaction, 9-14, (table) 9-14 

find error causes in dump, 12-40 

general layout, 4-2 

IMS use, 2-10 

overestimating size, 4-3 

size, 4-2 

SOURCE-TERMINAL-ID field, 4-8 

TEXT-LENGTH field, 4-12 
INSERT function call 

defined files, 5-47 

indexed files, 5-15 

relative files, 5-30 

status codes returned, (table) D-2 
INSIZE parameter, configuration, 4-2 
Integrated communications access method 

(See ICAM.) 
Interface areas 

description in BAL action program, 
(figure) 2-80 

description in COBOL action program, 
(figure) 2-2 

generated by BAL DSECTs, 2-10 
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in CALL SNAP dump. 12-7 

in termination snap dump, 12-4 

relationship to action program, 1-9, 
(figure) 1-10 

single/multithread dump layout 
differences, 12-8 

use, 1-9 

USING clause, 2-2 
Internal message control errors, detailed 

status codes, (table) D-10 
Invalid key errors, detailed status codes, 

(table) D-4 
Invalid request, detailed status codes, 

(table) D-5 
Involuntary termination, 3-20 

(See also Abnormal termination.) 
I/O error, detailed status codes, (table) D-9 
I/O function calls 

detailed status codes, (tables) D-3 to 
D-12 

format, 5-3 

parameters, 5-3 

random for defined files, 5-46 

random for indexed files, 5-7 

random for relative files, 5-24 

sequential files, 5-39 

sequential for defined files, 5-48 

sequential for indexed files, 5-17 

sequential for relative files, 5-32 

status codes, (table) D-2, (table) D-3 

summary, (table) 5-2 

(See also Function calls.) 
ISAM files 

access methods, 5-7 

logical deletion, 5-13 

no changing key field values, 5-12 

positioning parameters on SETL, (table) 
5-22 

unlock for, 5-51 



Job control 

assembling BAL action programs, 11-6 
compiling COBOL action programs, 

11-4 
edit table generator, E-9 



link editing action programs, 11-7 
recompiling and linking, 11-11 
(See also Control stream examples.) 
Job initiation, RUN function, 10-14 
JUS parameter, edit table input, E-8 



K 



Key 

MIRAM partial key search, 5-20 

parameter for edit table input, E-5 

parameter on defined file function call, 
5-38 

parameter on function call, 5-3 
Key-of -reference 

changing, 5-19 

omitting, 5-18 

parameter on function call, 5-4 

setting, 5-18 



LEN parameter, edit table input, E-6 
Line disconnect, 10-13 
Link editing action programs 

LINK jproc format and use, 11-7 

object module name, G-2 

standard link edit stream, (figure) 11-8 

stream using LINK jproc, (figure) 11-8 
LINK jproc, format and use, 11-7 
Link map 

example link map, (figure) 12-44 

purpose and use, 12-44 
Load code prefix, DLL program, 10-7 
Load library 

fast load requirement, 11-10 

replacing action programs, 11-11 

storing action programs, 11-19 

storing UTS programs, 10-1 
Load module name, 11-7 
Local IMS, 9-2 
Local terminal 

displaying screen format, 7-27 

sending message, 9-6 
Locap-name, 9-2 
Lock-disposition parameter, 5-56 
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LOCK-ROLLBACK-INDICATOR field, PIB 

automatic record locking, 3-22 

before-images, 3-22 

description, 3-22 

found in snap dump, 12-39 

holding record locks, 3-26 

lock for update, 3-30 

releasing record locks, 3-26 

rollback prints, 3-22 
Locks 

for update, 3-30 

lock rollback indicator setting, 3-24 

record, automatic, 3-22 

releasing, UNLOCK function, 5-51 
Logical delete 

defined files, 5-47 

indexed files, 5-13 

relative files, 5-28 



M 



M coordinate, DICE sequence 

description, F-5 

use, F-6 
Macro library, format header DSECTs, 

1-11 
MAN parameter, edit table input, E-8 
Master parameter, SEND fiuiction, 6-19, 

(figure) 6-20 
Master terminal, sending message, 6-19 
Master workstation, 6-51 
MAX parameter, edit table input, E-8 
]!^6SS3.£r6 siz6 

STANDARD-MSG-LINE-LENGTH 
field, 3-33 

STAND ARD-MSG-NUMBER-LINES 
field, 3-33 
Messages 

DICE formatted output, (figure) F-16 

input. Section 4 

output, Section 6 

positioning on screen, F-5 

screen formatted. Section 7 



MIN parameter, edit table input, E-8 
MIRAM files 

access methods, 5-7 

changing key field values, 5-12 

configuring for random access, 5-7, 5-24 

file extension, 5-28 

key of reference, 5-8 

logical deletion, 5-13 

multikeyed, 5-7 

partial key search, 5-20 

physical deletion, 5-14 

positioning parameters on SETL, (table) 
5-22 

sequential, 5-35 

single keyed, 5-13 
Multiple-segment identifier, 5-39 
Multipunch, DICE values, G-7 



N 



N coordinate, DICE sequence 

description, F-5 

use, F-6 
Network definition (See ICAM.) 
New rollback point (N indicator), 3-24, 

(figure) 3-24, (table) 3-23 
Nonsharable COBOL programs 

link editing, 11-8 

PARAM statement for compile, 11-2, 
(table) 11-3 
Normal termination 

default termination value, 3-15 

description, 3-15 

N termination indicator, 3-15 

resulting IMS operations, (table) 3-21 

transaction structure, 1-3 



Old rollback point (0 indicator), 3-24, 

(figure) 3-25 
OMA (See Output message area.) 
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Opening files 

from action programs, 10-26 

using OPEN function call in COBOL 
format, 10-26 

using OPEN function call in BAL 
format, 10-26 
Operator routing, 9-3 
Option indicator 

coding, 7-9 

input, 7-17 

setting bytes, 7-6,7-12 

temporary screen format changes, 7-5 

use instead of REBUILD, 7-20 
Output-f or-input queueing 

description and requirements, 6-46 

errors, 6-48 

example action program, B-47, (figure), 
B-48 

use, 6-47 

with continuous output, 6-49 

with screen bypass device, 6-50 
Output message 

building in CDA, 6-26 

building in input area, 6-26 

building in work area, 6-26 

continuous output, 6-30 

DICE sequences, 6-4 

displayed at source or destination 
terminal, 6-18 

issuing multiple, 6-19 

listed at auxiliary device, 6-18 

output-f or-input queueing, 6-49 

printed as continuous output, 6-18 

queued as input to successor program, 
6-18 

screen formatted, 7-7 

sent from work area, 6-19 

to another terminal, 6-1 
Output message area (OMA) 

AUX-DEVICE-NO field, 6-17 

AUX-FUNCTION field, 6-16 

AUXILIARY-DEVICE-ID field, 6-16 

contents and layout, 6-2 

CONTINUOUS-OUTPUT-CODE field, 
6-14 

DESTINATION-TERMINAL-ID field, 
6-11 

header format, BAL, 6-6, (figure) 6-6 

header format, COBOL, 6-4, (figure) 
6-4 



IMS use, 2-10 
purpose, 6-1 

SFS-LOCATION field, 6-13 
SFS-OPTIONS field, 6-13 
SFS-TYPE field, 6-13 
size, 6-3 

text description, BAL, 6-9 
text description, COBOL, 6-4 
TEXT-LENGTH field, 6-15 
Output status area 
defining, 7-6 
output validation error codes, 7-14 



PARAM statement, compile 

sharable/nonsharable COBOL 
program, 11-3, (table) 11-3 
Parameter list 

determining number of parameters 

passed, 12-43 
DSECT labels to locate, 12-42 
location, main to subprogram, 8-3 
register 1 contents, 2-9 
Partial-key-count, parameter on function 

call, 5-6 
Physical delete 

indexed files, 5-14 
relative files, 5-29 i 
PIB (See Program information block.) 
Polled devices, continuous output, 6-37 
POS parameter, edit table input, E-8 
Position 

parameter on defined file f imction call, 

5-38 
parameter on function call, 5-7 
PREDICTED-RECORD-TYPE field (See 

RECORD-TYPE field.) 
Preface control character, FCC sequence, 

F-18 
Primary device 

delivery notice status codes returned, 

(table) 6-36 
device independent control expression, 

(table) F-14 
displaying messages, 6-16 
Primary IMS, 9-2 
Primary key, MIRAM files, 5-7 
Print form, continuous output, 6-31 
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PRINT function call, 5-53 
PRINT function call example, B-61 
Print mode 

continuous output, 6-30 

writing screen formats to aux-devices, 

7-24, (table) 7-25 
PRINT NOGEN, BAL instruction, 4-6 
Print transparent mode 
continuous output, 6-30 
writing screen formats to aux-devices, 

7-24, (table) 7-25 
Printer files 

assignment, 5-52 
breakpointing, 5-56 
defining, 5-56 

extension during breakpoint, 5-56 
function calls to, 5-52 
locking, 5-55 
releasing, 5-52 
unassigned, 5-57 
Program information block 
BAL format, 3-4, (figure) 3-4 
COBOL 1974 PIB format, 3-2, (figure) 

3-1 
Contents, 3-1 , 3-7, (figure) 3-1 
CONTINUITY-DATA-AREA-INC field, 

3-34 
CONTINUITY-DATA-INPUT-LENGTH 

field, 3-34 
CONTINUITY-DATA-OUTPUT- 
LENGTH field, 3-34 
DATA-DEF-REC-NAME field, 3-30 
DEFINED-FILE-NAME field, 3-30 
DETAILED-STATUS-CODE field, 3-10 
extended COBOL PIB format, 3-2 
IMS use, 2-10 
LOCK-ROLLBACK-INDICATOR field, 

3-22 
RECORD-TYPE field, 3-12 
SOURCE-TERMINAL-CHARS, 3-36 
STANDARD-MSG-LINE-LENGTH 

field, 3-33 
STANDARD-MSG-NUMBER-LINES 

field, 3-33 
STATUS-CODE field, 3-7 
SUCCESS-UNIT-ID field, 3-34 
SUCCESSOR-ID field, 3-12 
TERMINATION-INDICATOR field, 

3-15 
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TRANSACTION-ID field, 3-30 

WORK-AREA-INC field, 3-33 

WORK-AREA-LENGTH field, 3-34 
Program registers 

abnormal termination snap, 12-3 

in termination snap dump, 12-2, 
(figure) 12-2 

voluntary termination snap, 12-3 
Program status word, to determine cause of 

abnormal termination snap, 12-46 
PUT function call 

defined files, 5-47 

indexed files, 5-12 

placement in program, 5-27 

relative files, 5-26 

sequential files, 5-36 

status codes returned, (table) D-2 



R 



Random access 

defined files, 5-46 

indexed files, 5-7 

MIRAM consideration, 5-7 

relative files, 5-24 
Read option, cassette/diskette, 6-43 
Read transparent option, cassette/diskette, 

6-43 
REBUILD function call 

COBOL and BAL formats, 7-20 

description, 7-20 

error returns, 7-23 

example of use, BAL, (figure) 7-22 

example of use, COBOL, (figure) 7-21 
Record area 

ISAM and DAM considerations, 5-5 

parameter on function call, 5-3, 5-53 

size, 5-5 
Record-number parameter, 5-5 
Record-size parameter, 5-53 
RECORD-TYPE field, PIB 

delivered record type, 3-12 

description, 3-12 

predicted record type, 3-12 

predicted record type found, (figure) 
5-42 

predicted record type, not found, 
(figure) 5-42 

skipping to other record type, 5-42 
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Records 

accessing defined, 5-42 

area size, 5-59 

defined record tj^es, 5-41 

determining defined record type, 5-41 

empty set, 5-49 

locking, 3-22 

retrieving logically deleted, indexed, 
5-11 

retrieving logically deleted, relative, 
5-25 

selecting record areas, 5-49 

unlock function, 5-51 
Recovery 

audit file, 12-51 

online file recovery, 12-51 
Reentrant code 

definition, 1-8 

subprograms, 8-1 
Register 

assigning interface areas, 2-8 

contents for subprogram, 8-3 

parameter list, register, 2-9 
Relative files 

accessing, 5-24 

random I/O functions, 5-24 

sequential I/O functions, 5-32 

shared file access, 5-32 
Relative position, DICE sequence, F-7 
Release record locks (R indicator), 3-25, 

(figure) 3-29, (table) 3-24 
RELMEM, 10-20 
Remote IMS, 9-2 
Remote transaction 

DDP-mode field, PIB, 3-36 

error returns, 9-14 

initiating, 9-11 

operator-initiated, 9-6 

processing, 9-5 

program-initiated, 9-7 

receiving response message, 9-13 

status, 3-36 

unsuccessful, 9-14 
Replenish screen, 7-19 to 7-23 
Report address option, cassette/diskette, 
6-44 



RETURN function 

after REBUILD function, 7-19 

BAL action program, 2-10 

COBOL action program, 2-1 

description, 2-4 

issuing output messages, 6-1 

not issued after ACTIVATE, 9-12 

screen formatted messages, 7-4 

sending message at end of action, 6-18 

subprogram, BAL, 8-3 

subprogram, COBOL, 8-3 

versus SEND functions, 6-26 
Return status codes 

GETMEM, 10-24 

RELMEM, 10-24 
Rollback 

abnormal termination, 3-19 

automatic file, 12-51 

establishing rollback point, 3-22 

LOCK-ROLLBACK-INDICATOR field, 
3-22 
Rollback points, 3-22 
Row number, FCC sequence 

coordinate values, (figure) F-19 

description, F-18 
RUN function call, 10-14 



SCALL, 10-22 

Screen b3T)ass device, output-f or-input 

queueing, 6-50 
Screen format services configuration, 7-2 

data management considerations, 7-1 

requirements, 7-1 

terminal restrictions, 7-1 

terminals supporting, 7-1 

(See also Screen formats; Screen 
formatting.) 
Screen formats 

build menu screen, B-24 

building error screen, 7-5 

display at initiating terminal, 7-26 

display at local terminal, 7-27 

display error format, 7-19 
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display screen format, 7-6 

display screen format, BAL, (figure) 

7-11 
display screen format, COBOL, (figure) 

7-9 
display transaction code, (figure) 7-17 
example action program, (figure) B-25 
identifying, 7-6 
input fields replenished, 7-5 
input/output use, 7-3 
input validation, 7-5 
making temporary changes, 7-5 
output display constants, 7-3 
output-only use, 7-3 
print/transfer options, (table) 7-24 
replenish screen, 7-19 to 7-23 
send to aux-devices, 7-24 
setting text length, 7-6 
variable data, 7-3 
Screen formatting 

BUILD function call, 7-8 

building in dynamic main storage, 7-12 

creation and use of screen formats, 7-1, 

(figure) 7-2 
displaying error screen in DDP, 7-27 
displaying screen format, BAL, (figure) 

7-11 
displajdng screen format, COBOL, 

(figure) 7-9 
input validation error codes, 7-18 
output message, SFS-LOCATION field, 

6-13 
output message, SFS-TYPE field, 6-13 
output message size, 6-3 
processing screen formatted messages, 

7-3 
REBUILD function call, 7-20 
receiving screen formatted input, 4-16 
using screen format services, 7-1 
validating input data, 7-1 8 
Search-and-position option, 

cassette/diskette, 6-43 
Search-and-read option, cassette/diskette, 

6-43 
Search-and-read transparent, 

cassette/diskette, 6-43 
Secondary IMS, 9-2 



Select character, DICE sequence, F-5 

SEND function 

format and description, 6-19 
in distributed data processing, 7-26 
issuing multiple output messages, 6-19 
master parameter, 6-19, (figure) 6-20 
output-f or-input queueing, 6-46 
output message to another terminal, 

6-1, 6-19, (figure) 6-20 
requirements for use, 6-20 
sending message from work area, 6-19 
status/detailed status codes returned, 

(table) 6-23 
versus RETURN function, 6-26 
with screen formatted messages, 7-4 

SEP parameter, edit table input, E-5 

Sequential access 
defined files, 5-48 
indexed files, 5-17 
relative files (MIRAM), 5-32 
sequential files, 5-35 

Sequential files 
accessing, 5-35 
I/O functions, 5-35 

Serially reusable code 
definition, 1-8 
subprograms, 8-1 

SETIME WAIT function call, COBOL and 
BAL formats, 10-17 

SETK function call 
indexed files, 5-19 
status codes returned, (table), D-2 

SETL function call 
defined files, 5-48 
errors, 5-34 
indexed files, 5-20 
relative files, 5-33 
status codes returned, (table) D-2 

SETLOAD function call 

COBOL and BAL formats, 10-10 
program control after DLL, 10-7 
status/detailed status codes, 10-10 

SFS-OPTIONS field, OMA 

clearing SFS-LOCATION, 7-7 
description, 6-13 

SFS-LOCATION field values, 6-13 
SFS-TYPE field values, 6-13 
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Sharable code 

definition, 1-8 

PARAM statement for COBOL, 11-3 

use of working-storage section, 2-1, 
(figure) 2-2 

volatile data area, 11-2 
Shared code parameter, 11-2 
Snap dumps 

abnormal snap dump analysis, 12-46 

analysis of termination snap, 12-35 

CALL SNAP dump, 12-1,12-6 

CALL SNAP dump layout, (figure) 12-6 

edited/unedited dumps, 12-1 

error code interpretation, 12-46 

error codes in PIB, 12-39 

example program to generate snaps, 
(figure) 12-28 

locating bad instruction address, 12-46 

sample abnormal termination snap, 
(figure) 12-47 

sample CALL SNAP dump, (figure) 
12-49 

sample termination snap dump, (figure) 
12-36 

SNAP function call format, 12-7 

termination snap dump, 12-1, 12-35 

termination snap dump layout, (figure) 
12-2 
Snap termination indicator 

description, 3-20 

displaying error codes at terminal, 3-21 

resulting IMS operations, (table) 3-21 

successor-id, 3-20 

voluntary termination, 3-20 
Source terminal 

characteristics, 3-36 

identifying, 4-8 

types, 3-436 
SOURCE-TERMINAL-CHARS field, PIB 

example of use, 3-37 

terminal attributes, 3-38 

terminal types, 3-36 
SOURCE-TERMINAL-ID field, IMA 

contains locap-name, DDP, 9-5 

defining terminal to ICAM, (figure) 4-8 

example coding, (figure) 4-9 

testing, 4-9 
STANDARD-MSG-LINE-LENGTH field, 
PIB, 3-33 



STANDARD-MSG-NUMBER-LINES field, 

PIB, 3-33 
Status bj^e returns, defined files, 5-44, 

(table) 5-45 
STATUS-CODE field, PIB 
description, 3-7 
detailed-status-code, 3-10 
invalid request I/O errors, 3-9 
receiving error returns, 3-8 
redefined, 3-10 
status codes, I/O function calls, (table) 

D-2 
testing in BAL action program, (figure) 

3-9 
testing in COBOL action program, 

(figure) 3-9 
values and end meanings, 3-7 
values from main to subprogram, 8-3 
Status codes 

BUILD function, 7-13 

GETLOAD function, 10-11 

I/O function calls, (table) D-2 

meanings, 3-7 

output delivery notice codes, (table) 

6-36 
REBUILD function, 7-23 
SEND function, (table) 6-23 
SETLOAD function, 10-10 
Subcode, data management error, 3-10 
SUBPROG function call 
BAL format, 8-3 
COBOL format, 8-3 
description, 8-3 
Subprograms 

calling/called program languages, 8-2 
example application, (figure) 8-6, 

(figure) 8-8 
interface with action programs, 8-2 
not recompiled online, 11-11 
parameter list location, 8-3 
reentrant, 8-1 
register contents, 8-3 
save status/detailed status, BAL 

program, 8-5 
save status/detailed status, COBOL 

program, 8-3 
serially reusable, 8-1 
SUBPROG function call, BAL format, 
8-3 
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SUBPROG function call, COBOL 
format, 8-3 

successor-id, BAL sp.bprogram, 8-3 

use, 8-1 
SUCCESS-UNIT-ID field, PIB, 3-35 
Succession 

definition, 1-4 

delayed internal, 1-6, (figure) 1-6 

external, 1-5, (figure) 1-5 

immediate internal, 1-6, (figure) 1-6 

SUCCESSOR-ID field, PIB, 3-12 
Successor action program 

continuous output, 6-33 

example of formatted input fields, 
(figure) 7-13, (figure) 7-16 

identifying, 3-12 

receiving defined file name, (figure) 
3-31 

receiving delivery notice code, 6-35 

receiving formatted input, 7-15 

remote transaction, 9-13 
SUCCESSOR-ID field, PIB 

continuous output, 6-33 

description, 3-12 

displaying error codes, 3-13, (figure) 
3-14 

interpretation with termination 
indicators, 3-12 

use, 3-12 

with subprograms, 3-12 



TCS DSECT, 6-41 

TCT {See Terminal control table.) 

Terminal control table, snap dump format, 

12-2, 12-5, (figures) 12-15 to 12-26 
Terminal printer, 6-16 
Terminals 

attributes, 3-48 

DESTINATION-TERMINAL-ID field, 
6-11 

names, configuration, 6-11 

names, network definition, 6-11 

SOURCE-TERMINAL-CHARS field, 
3-36 

supporting screen format services, 7-1 

types, 3-36 



Index 



Termination 

involuntary, 3-20 

normal, (figure) 1-4 

snap dump, 12-1, 12-35, (figure) 12-2 

types, 1-3 

types allowed, formatted input, 7-15 

types allowed, program-initiated 
transactions, 9-8 

voluntary, 3-20 

(See also Abnormal termination.) 
TERMINATION-INDICATOR field, PIB 

default value, 3-15 

description of all indicator values, 3-15 

in snap dump, 12-39 

involimtary termination, 3-20 

resulting IMS operations, 3-21 

summary of indicators, (table) 3-21 

volimtary termination, 3-19 
TEXT-LENGTH field, IMA 

example of testing, (figure) 4-12 

function, 4-11 

qualifying as data name, 4-11 
TEXT-LENGTH field, OMA 

additional bsrtes required, 6-15 

description, 6-15 

found in snap dump, 12-40 

OUTSIZE parameter on configuration, 
6-15 
THCB (See Thread control block.) 
Thread control block 

finding action program load area errors, 
12-41 

locations in dumps, 12-4 

multithread format, (figure) 12-13 

single-thread format, (figure) 12-9 

termination snap dump, (figure) 12-2 
TP, 6-16 
Transaction buffers 

acquiring, 10-18 

allocating, 10-18 

COBOL action programs, 10-20 

currently allocated, 10-21 

defining, 10-20 

detailed status codes, 10-24, 10-25, 
Appendix D 

error codes, 10-24 

GETMEM, 10-22,10-25 

number per transaction, 10-18 

pool size, 10-18 
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releasing, 10-23 

RELMEM, 10-23,10-25 

size, 10-18 

status codes, D-8 

status code 0, 10-18 
Transaction code 

definition, 1-2 

dialog, 1-3 

edit, (table) consideration, E-5 

screen formatted message, 7-3 

single-thread IMS, 1-3 
TRANSACTION-ID field, PIB, 3-20 
Transactions 

code, 1-3 

definition, 1-2 

dialog, (figure) 1-3 

dynamic structure, 1-7, (figure) 1-7 

local, 9-2 

processing, 1-2 

program-initiated, 9-7 

remote, 9-5 

simple, (figure) 1-2 

structure, 1-3 

termination types, 1-3 
Transfer all, continuous output, 6-31 
Transfer changed, continuous output, 6-31 
Transfer record, 10-7 
Transfer variable, continuous output, 6-31 
TYP parameter, edit table input, E-8 
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Unedited snap dump, 12-1 
UNLOCK function call, 5-51,5-52 
Unpolled devices, continuous output, 6-37 



Variable data 

defining area, 7-6 

example, (figure) 7-3 

screen formatted messages, 7-3 
Variable fields, screen formatting 

error screens, 7-20 

example displaying transaction code, 
(figure), 7-17 

input, input/output, or output only, 7-3, 
7-8 



input validation error codes, 7-18 

output validation error codes, 7-13 

transaction code as variable field, 7-16 
Volatile data area 

configuration specification, 11-3 

description, 11-3 

shared code differences in dump, 12-8 
Voluntary termination, 3-20 

(See also Abnormal termination; 
Termination.) 

w 

Work area 

action program use, 2-10 
storage media considerations, 5-59 
to build output messages, 6-26 
to find error causes in dump, 12-41 
to send output message, 6-19 
to transfer contents to subprogram, 8-3 
WORK-AREA-INC field, 3-34 
WORK-AREA-LENGTH field, 3-34 
WORK-AREA-INC field, PIB, 3-34 
WORK-AREA-LENGTH field, PIB, 3-34 



ZA#CONT field, OMA, 6-14 
ZA#DDPMD, PIB 

description, 3-38 

tested after remote transaction, 9-13 
ZA#DPIB DSECT 

contents, (figure) 3-4 

generation, 3-4 
ZA#DTE field, PIB, 3-34 
ZA#IDEV field, IMA, 4-14 
ZA#IDTS field, IMA, 4-10 
ZA#IMH DSECT 

contents, (figure) 4-7 

generation, 4-7 

PRINT NOGEN, 4-7 
ZA#ISTID field, IMA, 4-8 
ZA#ITL field, IMA, 4-12 
ZA#OAUX field, OMA, 6-16 
ZA#ODTID field, OMA, 6-11 
ZA#OSFSO field, DMA, 6-13 
ZA#OTL field, OMA, 6-15 
ZA#PCDI field, PIB, 3-34 
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ZA#PCDIN field, PIB, 3-34 
ZA#PCDO field, FIB, 3-34 
ZA#PDDRN field, PIB, 3-30 
ZA#PDFN field, PIB, 3-30 
ZA#PDSC field, PIB, 3-10 
ZA#PLRI field, PIB, 3-22 
ZA#PMLL field, PIB, 3-33 
ZA#PMNL field, PIB, 3-36 
ZA#PSC field, PIB, 3-7 
ZA#PSID field, PIB, 3-12 
ZA#PSIND field, PIB, 3-15 
ZA#PTID field, PIB, 3-30 
ZA#PWA field, PIB, 3-33 



ZA#PWAI field, PIB, 3-33 
ZA#SPLOC field, OMA, 6-13 
ZA#SFTYP field, OMA, 6-13 
ZA#TATTR field, PIB, 3-38 
ZA#TME field, PIB, 3-34 
ZA#TTTYP field, PIB, 3-36 
ZG#CALL macroinstruction, 2-10 
ZM#DIMH macroinstruction, 4-6 
ZM#DOMH macroinstruction, 6-8 
ZM#DPIB macroinstruction, 3-4 
ZM#DTCT, 12-15 
ZM#DTHCB, 12-9 
ZUKLOD action program, 10-1 
ZZPCH command, 11-11 
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